Figuras Como Botao

[mestre fyoda]

como eu poderia fazer com que um icone virace um botao ?

e aonde eu acho esse toolbar ?

[Dead-Drunk]

crie um evento na propriedade click de qualquer imagem e pronto!!! ela é um botão...

[mestre fyoda]

mas como eu faço para criar um evento na propriedade click de qualquer imagem e pronto!!! ela é um botão?

[Dead-Drunk]

vai na tua imagem...

clica duas vezes nela... vai aparecer a telinha dos codigos...

já na propriedade click..

digite

Unload me

execute teu programa e click na imagem....

e pronto.... tua imagem é um botão para fechar teu programa....

falou.... vê c é só criar um botao de imagem q você quer ou ew não entendi tua pergunta...

[mestre fyoda]

consegui fazer , mas agora tenho uma duvida cruel , eu tenho 4 icones , e eu quero que cada icone faça coisas diferentes .

Como que se faz isso ?

Detalhe , eu fiz com toolbar e um ImageList .

[mestre fyoda]

já resolvi o outro problemas mas agora tenho outro .

como faço para dar espaço entre os icones nesse codigo abaixo ?

Private Sub Form_Load()
   Toolbar1.ImageList = ImageList1
   Toolbar1.Buttons.Add , , "teste1", , 1
   Toolbar1.Buttons.Add , , "teste2", , 2
End Sub

[Dead-Drunk]

todo este codigo q você digitou você pode editar na propriedade da toolbar... é bem mais facil...

e ai você cria em codigo só o evento...

eu faço assim...

Private Sub NOMEDASUATOLLBAR_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key

Case Is = "NOMEDOBOTAO"

AQUI VAI O EVENTO....

Case Is = "NOMEDOBOTAO"

AQUI VAI O EVENTO...

End Select

End Sub

espero q ajude...

flow...

[mestre fyoda]

valeu pela dica , agora estou em na Facu , mas quando chegar em casa vou testar qualquer coisa eu posto aqui , mas tenho uma duvida .

Como faço para que cada icone que esteja no toolbar eles fiquem independentes da toolbar , tem como fazer na propriedade do toolbar isso ?

Por exemplo , eu tenho 2 icones , um para sair e o outro para abrir o cadastro , como faço para que cada botão execute o seu cvodigo ?

E aonde eu coloco o nome do icone na propriedade ?

[Dead-Drunk]

então é exatamente o q eu te mandei...

Private Sub tbrCadastro_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key

Case Is = "CADASTRO"

frmCadastro.show

Case Is = "SAIR"

unload me

End Select

End Sub

pronto... neste exem[plo o nome da minha toolbar é tbrCadastro

e eu defini 2 boões com Key = CADASTRO e Key = SAIR

tenho um frame = frmCadastro

e pronto estou com uma toolbar q abre o frmCadastro e fecha o programa

entendeu...

quanto a deixar botoes independente da toolbar.... não entendi... como assim?

se você quer botoes independentes você pode usar imagens ou os proprios botoes e definir eventos pra cada um deles..... como no post q eu fiz anteriormente....

é isso ae cara... qualquer coisa posta ae.... flow...

[mestre fyoda]

valeu mano deu certinho , outra duvida , para os submenus como que eu faço ?

como eu deixo uma toolbar invisivel ou enable , detalhe eu coloquei a key do icone como cadastro .

Por favor me passe os dois codigos do enable e do visible .

[Dead-Drunk]

With NOMEDAToolbar

.Buttons(1).Enabled = False

.Buttons(2).Enabled = True

End With

falou...

[mestre fyoda]

valeu mano .

teria como você me mandar para o meu email icones para cadastrar , excluir , atualizar , icone do word , icones de abrir arquivos .

o_drunk@yahoo.com.br

Grato pela atenção .

[Dead-Drunk]

velho dá uma pesquisada na net q tem varios sites q tem uns icones muito legais...

falou...

[mestre fyoda]

axei umas figuras muito loucas mas eles no micro eles estao com as cores normais mas quando coloco no vb ela fica preto e branca , o q esta acontecendo ?

[mestre fyoda]

foi mal gente , mas não sei o que aconteceu , eu fechei o programa e abri ele e funcionou . Esse vb as vezes é foda .

pode trancar.

[Dead-Drunk]

ah... beleza então... falou..

[mestre fyoda]

valeu gente por enquanto sobre toolbar não tenho mais duvida , mas pesso aos admins que não tranquem porque possa ser que eu venha a ter alguma duvida .