Microsoft Word XP - RicardoHorta.Net - www.ricardohorta.net

RicardoHorta.Net - Word XP: Controles: CommandButton

SUBMARINO: Fácil ! Rápido ! Seguro !

O controle.

É um botão de comando que ao ser clicado pode ser utilizado para abrir formulários, imprimir documentos, abrir uma janela, fechar o Word XP e assim por diante. O evento padrão de um CommandButton é o Click. O que for inserido neste evento será executado quando o usuário clicar sobre ele com o botão esquerdo do mouse.

Propriedades.

Acelerator, AutoSize, BackColor, BorderColor, BorderStyle, BoundColumn, Cancel, Caption, ControlTipText, Default, Enabled, Font, ForeColor, Height, HelpContextID, IntegralHeight, Left, Locked, Picture, PicturePosition, MouseIcon, MousePointer, TabIndex, TabStop, Tag, TakeFocusOnClick, Top, Visible, Width, WordWrap.

Métodos.

Move, SetFocus, ZOrder.

Eventos.

BeforeDragOver, BeforeDropOrPaste, BeforeUpdate, Click, DblClick, Error, KeyPress, MouseMove, Enter, Exit, KeyDown, KeyUp, MouseDown, MouseUp.

Como inserir ?

Para inserir um controle CommandButton no formulário, abra Caixa de ferramentas e clique em Botão de comando.

Em seguida, clique no UserForm.

A propriedade Accelerator.

Accelerator permite que você atribua uma tecla de atalho a um CommandButton. O usuário poderá escolher entre clicar no botão ou utilizar [ Alt ] + [ a tecla que você especificar ].
Como padrão, esta propriedade está vazia. Isto significa que o usuário precisará clicar no botão para executar o evento Click.

Escolhendo a tecla de atalho.

Crie um UserForm e adicione 3 controles: Rótulo, Caixa de Listagem e Botão de comando.
Selecione o UserForm e altere a sua propriedade Name: UserForm_Sites.

Na propriedade Caption do Rótulo, digite o texto: Escolha os seus sites favoritos. Clique na seta à direita da proprieadade Font, e escolha Arial para o tipo de letra e 12 para o tamanho.
Em seguida, clique na seta à direita de ForeColor e escolha Azul para a cor da fonte.

Selecione a Caixa de Listagem e altere a propriedade Name: ListBox_Sites.

Insira o botão de comando e...

...digite Fechar na propriedade Caption.
E altere o valor da propriedade Name para CommandButton_Fechar.

Neste momento, os controles estarão assim.

Criando a lista de opções da ListBox.

Insira as linhas de código abaixo no evento Initialize do formulário.

Em seguida, clique na seta à direita da caixa Objetos e escolha CommandButton_Fechar.

A procedure relativa ao evento padrão do controle será criada.

Você irá utilizar este botão para fechar o formulário. A sintaxe do comando é: Unload UserForm_Sites.

Como você não definiu a propriedade Accelerator do CommandButton, para fechar o formulário será preciso clicar no botão. Algumas pessoas, no entanto, preferem o teclado, utilizando um conjunto de teclas. [ Alt ] e [ mais alguma coisa ].

Na janela Propriedades, selecione o controle CommandButton_Fechar.

E defina a letra H como a tecla aceleradora. E aí você me pergunta: Como o usuário irá descobrir qual letra é a aceleradora ? O pessoal do Bill Gates também pensou nisso. A letra H de Fechar ficará sublinhada.

Testando a propriedade Accelerator.

Clique uma vez apenas com o botão esquerdo dentro do evento Initialize e pressione F5.

Agora, meu ( minha ) jovem, o seu usuário poderá clicar no botão para fechar o formulário ou utilizar o conjunto de teclas [ Alt ] + [ H ] ( Observe a letra sublinhada ).

A propriedade Picture.

Como padrão, os botões de comando são inseridos sem imagem.

Utilize a propriedade Picture para exibir imagem e texto nos botões.

Clique neste botão e...

...a caixa de diálogo Carregar figura será exibida. Aqui é com você. Localize no seu computador uma imagem e clique no botão Abrir. Dê preferência a imagens pequenas, pois o botão, também, é pequeno.

O resultado será este aí.

A propriedade PicturePosition.

Você deve estar se perguntando: Ué, cadê o texto ? Calma. Como padrão, a imagem é posicionada acima do texto ( fmPicturePositionAboveCenter ). Como a altura do botão é pequena, o valor da propriedade Caption ficou escondido. Calma. Tem solução prá tudo nesse mundo. E é para isto que existe PicturePosition.

Selecione a opção fmPicturePositionLeftCenter e...

... a imagem ficará à esquerda do texto.

A propriedade Cancel.

Você deve utilizar no mínimo 2 botões em cada UserForm. Um para lhe informar que o usuário fechou o formulário e deseja continuar o processamento. Com o segundo botão, o usuário tem a opção de cancelar a tarefa. Sabendo qual botão foi clicado, você poderá definir qual ação será executada.
É aí que entra a propriedade Cancel.

Cancel pode assumir 2 valores: True e False. Como padrão, o seu valor é False. Quando a propriedade Cancel de um botão é igual a True, se o usuário pressionar a tecla [ Esc ], o evento Click deste botão será executado.
Insira outro botão no seu formulário e altere as seguintes propriedades:
1. Name: CommandButton_Cancelar.
2. Caption: Cancelar.
3. Cancel: True.

Em seguida, clique nele 2 vezes com o botão esquerdo para...

...criar o código do evento Click: Unload UserForm_Sites.

Testando a tecla [ Esc ].

Clique uma vez apenas com o botão esquerdo dentro do evento Initialize e pressione F5.

Agora, o usuário tem 2 opções para fechar o formulário. E você tem como saber se ele, após escolher uma das opções da caixa de listagem, deseja continuar ou interromper o processamento.
Pressione [ Esc ] e o formulário será fechado. É o evento Click do controle CommandButton_Cancelar trabalhando.

A propriedade Default.

Como padrão, os botões de comando têm a mesma hierarquia, ou seja, nenhum deles tem preferência para ser executado.

No entanto, se você alterar o valor da propriedade Default de um CommandButton para True, quando o usuário teclar [ Enter ], o evento Click deste botão será executado.
Exceção à regra: se, por exemplo, o foco estiver no botão Cancelar e o usuário teclar [ Enter ], será executado o evento Click do botão focado. E como você altera o foco dos controles ? Ora... utilizando a tecla [ Tab ]. Mas isto é assunto para outro módulo ( Benza Deus, haja assunto ! ).
Vamos fazer um teste. Selecione o controle CommandButton_Fechar e ...