USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Varios icones em um commandbutton
Postada em 16/1/2008 por Treze            
Alguém um dia quis criar um comandbutton dinamico
então me perguntaram como, era simples porém ralei
pra conseguir, então achei devia postar aqui  para todos

vamos a dica.

insira um imagelist e um commandbutton em seu form

inclua quantos icones quiser no imagelist

agora basta você fazer referência ao commandbutton desta forma

Private Sub Form_Load()
' este será o icone fixo do botão
Command1.Picture = ImageList1.ListImages(1).ExtractIcon
' este aparecerá quando o botão for pressionado
Command1.DownPicture = ImageList1.ListImages(2).ExtractIcon
End Sub

a partir dai use sua imaginação para criar um botão dinamico


exemplos de uso:

você poderia colocar um icone de advertência para campos em branco
mudando apenas a referencia do icone ao se pressionar o botão

código exemplo:
insira 01 textbox 01 commandbutton e 01 imagelist
agora insira 03 icones no imagelist e cole este código

no form

Private Sub Form_Load()
Command1.Picture = ImageList1.ListImages(1).ExtractIcon
End Sub


Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Text1.Text = "" Then
Command1.DownPicture = ImageList1.ListImages(3).ExtractIcon
Else
Command1.DownPicture = ImageList1.ListImages(2).ExtractIcon
End If
End Sub

se o text1 estiver vazio o botão vai retornar um icone de advertência.

por enquanto é só

aproveitem a dica

e OBRIGADO










 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página