|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Criando um Botão 3D com um Picture
|
 |
|
|
|
Postada em 1/10/2004 por Spider84
'Adicione um PictureBox no Form, altere a propriedade "BorderStyle = 0 - None"
'Adicione uma Bitmap, Icon ou qualquer outra figura a sua escolha na propriedade "Picture" e copie esse código abaixo
'Declarando variavel p/ armazenar valor da esquerda(L_pos) e do topo (T_pos) do picture
Dim L_pos, T_pos As String
Private Sub Form_Load()
L_pos = Picture1.Left 'Armazenando valor da esquerda
T_pos = Picture1.Top 'Armazenando valor do topo
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Left = L_pos + 15 'Recebendo novo valor da esquerda
Picture1.Top = T_pos + 10 'Recebendo novo valor do topo
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Left = L_pos 'Recebendo o valor de origem
Picture1.Top = T_pos 'Recebendo o valor de origem
End Sub
|
|
|
|
|
