Parceria RicardoHorta.Net + SUBMARINO !!

Excel XP: Controle de Ponto 1.0 - Cap. 30.

• Na primeira parte do evento Click, For each... verifica se existe alguma forma chamada LabelCodigo.
• Observe, guerreiro(a) microsoftiano(a), que a pesquisa é feita na coleção Shapes da planilha TelaFun.
• Em caso afirmativo, o objeto Shape é deletado ( CaixaAjuda.Delete ).

• Com o método AddShape, você adiciona um objeto Shape à coleção Shapes de TelaFun.
• TextFrame representa a moldura de texto. E é assim que funciona. Para inserir um texto em uma forma, você precisa primeiro criar a moldura para receber o texto.
• Com Characters.Text é definido o texto.
• A propriedade VerticalAlignment define o alinhamento vertical do texto.
• A propriedade HorizontalAlignment define o alinhamento horizontal do texto.
• A propriedade AutoSize ajusta o tamanho da forma ( objeto Shape ) ao tamanho do texto. Assim, você evita que o objeto fique muito maior do que o conteúdo.
• E com a propriedade Name, você define o nome da forma que está sendo criada.
  Por isto, na primeira parte do código, você verifica se existe algum objeto com este nome ( LabelCodigo ). Se você tentar criar 2 objetos com o mesmo nome, uma mensagem de erro será exibida, interrompendo a execução do programa. Não será possível criar a caixa para exibir a ajuda e mamãe não vai gostar.

• Criada a forma de desenho, você não vai querer mantê-la com aquela aparência branquela, esquálida, como as pernas da sua vizinha que não sabe o que é Sol há séculos.
• Você não pode melhorar a sua colega de condomínio, mas pode formatar e dar vida às formas inseridas na sua planilha. Então, vamos lá.
• Com Fill.ForeColor.RGB, é definida a cor do objeto Shape.
• Com Line.Visible, você ativa as bordas.
• Line.ForeColor.RGB formata a cor das bordas.
• E com Shadow, você ativa, define a posição ( OffSetX / OffSetY ) e a transparência ( Transparency ) da sombra.

• O código acima ( With TelaFun.Shapes... ) também pode ser escrito assim. Questão de opção. A escolha é sua.

Parceria RicardoHorta.Net + SUBMARINO !!

Download.

	Nome	Tamanho
	exp_controle_de_ponto_v01_030.zip	55 Kb

RicardoHorta.Net

Parceria RicardoHorta.Net + SUBMARINO !!

www.ricardohorta.net - Direitos adquiridos - Autor: Ricardo Horta