- 27 Ocak 2007
- 3,178
- 1
- 603
PictureBox veya herhangi bir nesneyi (Mousemove özelliği olan) form içinde fare ile tutup gezdirebilirsiniz
bu örneği diğer nesnelerde de uygulayabilirsiniz HAT TA form'un kendinde de uygulayabilirsiniz. formun herhangi bir yerinden fare ile tutup gezdirebilirsiniz.
Kod:
Dim sol, ust, d
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
sol = X
ust = Y
d = 1
'okxd®2004
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And d = 1 Then
With Picture1
.Left = .Left + X - Val(sol)
.Top = .Top + Y - Val(ust)
End With
End If
'okxd®2004 [URL="https://tik.lat/bvgh3"] www.vbornek.com[/URL]
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
d = 0
End Sub