SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

O objeto.

• Representa um controle pop-up em uma barra de comandos.

Propriedades.

• Application, BeginGroup, BuiltIn, Caption, CommandBar, Controls, Creator, DescriptionText, Enabled, Height, HelpContextId, HelpFile, Id, Index, IsPriorityDropped, Left, OLEMenuGroup, OLEUsage, OnAction, Parameter, Parent, Priority, Tag, TooltipText, Top, Type, Visible e Width.

Métodos.

• Copy, Delete, Execute, Move, Reset e SetFocus.

Exemplo.

• Ao abrir o seu...

• ... aplicativo no Word XP,...

• ... um controle popup será adicionado à barra de ferramentas Padrão. Será um menu ( do tipo Arquivo, Editar, Exibir ) com os itens Registro e Opções.

• E ao fechar o aplicativo, o controle será excluído.

• Ok, microsoftiano(a) amigo(a). Simples. Muito simples.
• Abra o Editor do Visual Basic,...

• ... selecione o seu projeto e...

• ... insira o...

• ... módulo para receber as rotinas.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exemplo ( continuação ): A rotina CriaMenuPopUp.

• Declare a variável MenuPopUpRegistro e o seu tipo ( CommandBarPopup ).

• Em CriaMenuPopUp,...

• ... insira,...

• ... na barra de ferramentas Padrão,...

• ... um controle msoControlPopup.

• Com o bloco With MenuPopUpRegistro...End With, vamos acessar as propriedades e métodos do controle, que você está criando.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exemplo ( continuação ): Título e Marcador.

• Digite um ponto,...

• ... selecione Caption e...

• ... informe o título ( Formulários ).

• Com Tag,...

• ... defina o marcador ( o texto que você quiser ).

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exemplo ( continuação ): Criando a lista.

• Com Controls,...

• ... adicione...

• ... 2 controles...

• ... do tipo msoControlButton.

• E faça Visible = True.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exemplo ( continuação ): Personalizando os itens.

• Com With MenuPopUpRegistro.Controls, você acessa...

• ... as propriedades...

• ... da primeira opção do menu.

• Em seguida, acesse o segundo item do controle Popup e...

• ... defina as propriedades Caption e...

• ... BeginGroup.

• Veja o código completo de CriaMenuPopUp.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exemplo ( continuação ): Excluindo o controle.

• Em ExcluiMenuPopUp,...

• ... declare a variável Controle e o tipo ( CommandBarControl ).

• Para cada controle...

• ... da coleção CommandBarControls...

• ... da barra de ferramentas Padrão,...

• ... verifique a propriedade Tag.

• Encontrando o controle, que você criou, exclua-o com a ajuda do método Delete.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exemplo ( continuação ): Os eventos Open e Close do objeto Document.

• Na janela Projeto, clique 2 vezes em ThisDocument.

• Em Objeto,...

• ... selecione Document.

• Em Procedimento,...

• ... acesse Open e...

• ... execute CriaMenuPopUp.

• Com o evento...

• ... Close,...

• ... exclua o controle da barra de ferramentas Padrão.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exemplo ( continuação ): Teste.

• Salve o código,...

• ... feche o Editor VBA e...

• ... o documento.

• Abra-o, novamente.

• Clique em Ativar macros.

• O controle PopUp será criado.

• Clique nesta seta...

• ... para exibir os itens.

• Clique em Fechar janela e...

• ... Padrão voltará ao padrão.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta