Toolbar

[Denis_Rave]

Aki estou eu de novo enchendo o saco de vocês.....hehe

eu tenho uma duvida

como façoi pra poder codificar cada botaum de uma toolbar???

vlw........

[Graymalkin]

Necessariamente você não precisa criar os botões por código, basta clicar com o botão direito na Toolbar e escolher "Properties", daí criar os botões na aba Buttons da janela que surgiu. No entanto, se sua vontade é mesmo criar os botões por código, você pode fazer da seguinte maneira:

    Toolbar1.ImageList = ImageList1
    Toolbar1.Buttons.Add , , "teste", , 1
    Toolbar1.Buttons.Add , , "teste2", , 2

O código acima supõe que você tem também uma ImageList que contém duas imagens (de índices 1 e 2).

Abraços,

Graymalkin

[Denis_Rave]

não, os botoes eu já criei...eu qeuria era saber como colocar um codigo dentro dos botoes, para cada um ter uma função...

[Graymalkin]

Ah tá. Então você pode fazer assim:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Caption
        Case "teste1"
            MsgBox "Primeiro botão!"
        Case "teste2"
            MsgBox "Segundo botão!"
    End Select
End Sub

É claro que, ao invés de usar a propriedade Caption, você pode usar a propriedade Index e identificar os botões por seus índices. Aí fica a seu critério.

Abraços,

Graymalkin

[Denis_Rave]

vlw....brigadaum........

[Ø£¡vë¡®'§®]

Vou aproveitar seu tópico hehehe e vou perguntar se alguém sabe sobre como eu coloco icones em um menubar...

vlw galera abraçossssss

Ø£¡vë¡®'§®

[Denis_Rave]

vem ca, agora me esbarrei num negocio

eu fiz td certinhu assim no case........mas tem um negocio q não deu certo

como fazer para q quando eu clikar no 1 botao, o segundo seja habilitado....com o enable???

[Graymalkin]

Sim, com a propriedade Enabled do objeto Button que está na coleção Buttons.

Abraços,

Graymalkin

[Denis_Rave]

mas ainda nun entendi....da uma olhada

o botao 2 ta enabled=false

Select Case Button.Index
Case 1
Data1.Recordset.Edit
Text1.Enabled = True

eu queria encaixar um codigo pro botao 2 ser habilitado quando se clikasse no 1º.....

como faço???

[Graymalkin]

Leia de novo:

Sim, com a propriedade Enabled do objeto Button que está na coleção Buttons.

.

Portanto, basta você fazer:

ToolBar1.Buttons(2).Enabled = True

A linha acima é a transcrição da frase que coloquei na mensagem anterior. Se Buttons é uma coleção, então cada elemento que faz parte da coleção é um objeto do tipo Button que por sua vez tem seus próprios métodos e/ou propriedades.

Abraços,

Graymalkin

[Denis_Rave]

ahh....vlw

se sabe pacas.....vlw diu novo

[William Rodrigues]

Vou aproveitar seu tópico hehehe e vou perguntar se alguém sabe sobre como eu coloco icones em um menubar...

Opa !!!

Dê uma olhadinha nesse post. Faça uma busca antes de postar brother...Fiz uma busca por ícone aqui no fórum e achei esse post. Ajude a nossa comunidade a crescer e a deixar o nosso fórum mais organizado e sem muitos post repitidos...Conto com você

Abraços,

William Rodrigues