Anasayfa
Doğum tarihi
tarafından 'Mouse ile nesne sürükleme
'1 Adet command butonu ekleyin
Dim Fx As Integer
Dim Fy As Integer
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Fx = X
Fy = Y
Command1.Drag 1
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Command1.Left = X - Fx
Command1.Top = Y - Fy
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = X & " " & Y
Command1.Left = X
Command1.Top = Y
End Sub
'1 Adet command butonu ekleyin
Dim Fx As Integer
Dim Fy As Integer
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Fx = X
Fy = Y
Command1.Drag 1
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Command1.Left = X - Fx
Command1.Top = Y - Fy
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = X & " " & Y
Command1.Left = X
Command1.Top = Y
End Sub
