كيف يمكن اتباع صوره ووضعها في اي مكان عند الضغط علي النموذج

بالبداية قم بتعريف متغيرين من نوع Integer ، نحط فيهم قيمة الـ X و الـ Y لمؤشر الفارة ..

في الحدث MouseMove للفورم ، ضع هذا الكود ..

و في الحدث Click للفورم ، ضع هذا الكود ..

بكذا كل ما ضغطت على الفورم بيتغير مكان الصورة الى مكان الماوس لمن ضغطت على الفورم ..

بالتوفيق ،،

kooy كتب:

السلام عليكم

ورحمه الله وبركاته

كيفكم اخواني

لديا طلب

كيف يمكن اتباع صوره ووضعها في اي مكان عند الضغط علي النموذج

أخي هذا طلبك

'تحريك الصورة داخل النموذج
Public Class Form1
    Private oControlOffsetPoint As Point
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        Dim sX As Integer = RectangleToClient(New Rectangle(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y, 1, 1)).Left - oControlOffsetPoint.X
        Dim sY As Integer = RectangleToClient(New Rectangle(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y, 1, 1)).Top - oControlOffsetPoint.Y
        If e.Button = Windows.Forms.MouseButtons.Left Then
            sender.Location = New Point(sX, sY)
            PictureBox1.Left = sX
            PictureBox1.Top = sY
        End If