ARRASTAR FRAME EM FORM EM TEMPO DE EXECU?ÃO
Olá,
Gostaria de fazer com que ao clicar e segurar em um frame ele pudesse ser arrastado pelo formulario e solto em outra posição.
Alguem pode me ajudar.
Desde já agradeço
Gostaria de fazer com que ao clicar e segurar em um frame ele pudesse ser arrastado pelo formulario e solto em outra posição.
Alguem pode me ajudar.
Desde já agradeço
Public pressionado As Boolean
Private Sub Form_Load()
pressionado = False
End Sub
Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
pressionado = True
End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (pressionado) Then
Frame1.Top = Frame1.Top + Y
Frame1.Left = Frame1.Left + X
End If
End Sub
Private Sub Frame1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
pressionado = False
End Sub
Private Sub Form_Load()
pressionado = False
End Sub
Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
pressionado = True
End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (pressionado) Then
Frame1.Top = Frame1.Top + Y
Frame1.Left = Frame1.Left + X
End If
End Sub
Private Sub Frame1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
pressionado = False
End Sub
Tópico encerrado , respostas não são mais permitidas