|
|
|
|
|
|
|
|
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
|
|
|
|
|
