دوست عزيز من يه برنامه براتون آماده كردم اميدوارم كه به دردتون بخوره!
اين رو هم اشاره كنم كه كد بسيار ساده اي داره و علاوه بر اون تصوير رو هم مات نميكنه!
اين كدهاش هستش و برنامه رو هم Attach ميكنم براتون:
Dim x, y As Integer
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
PictureBox1.Cursor = Cursors.SizeAll
x = e.X
y = e.Y
End If
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Application.DoEvents()
PictureBox1.Top = Windows.Forms.Cursor.Position.Y - Me.Top - y
PictureBox1.Left = Windows.Forms.Cursor.Position.X - Me.Left - x
End If
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
PictureBox1.Cursor = Cursors.Default
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Parent = PictureBox2
PictureBox1.BackColor = Color.Transparent
End Sub
پاسخ با نقل قول