Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Estou desenvolvendo um programa onde clico em uma imagem e ela deve manter uma determinada função em quando o botão do mouse estiver clicado nela. Quando eu soltar o botão do mouse a imagem teve voltar para o normal.
Como eu posso fazer isto?
Dês de já obrigado.
E tbm Botão esquerdo e direito do mouse.
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
List1.Visible = True
List1.Top = StatusBar1.Panels(1).Text
List1.Left = StatusBar1.Panels(2).Text
End If
If Button = 1 Then
List1.Visible = False
End If
End SubSe houver mais alguém que queira postar algo fique à-vontade.
Encontrei o que queria e estou postando aqui.
General
Dim Mouseacima As Integer
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mouseacima = "1"
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Mouseacima = "1" Then
Image1.Top = Image1.Top + Y - 150
If Image1.Top >= 2500 Then
Image1.Top = 2499
End If
If Image1.Top <= 299 Then
Image1.Top = 300
End If
End If
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mouseacima = "0"
End Sub