السلام عليكم و رحمة الله و بركاته
انا مبتدئ في Vb 2008
اريد عمل برنامج مسابقة للأطفال
و أريد أن اقوم بتحريك(draganddrop) صورة من مكان الى مكان فيه اسم الصورة في نفس الفورم اذا وضعت في المكان الصحيح تظهر رسالة قبول .ورسالة الرفض في حال و ضعها في مكان اخر الصورة في المرفقات
المرجو المساعدة جزاكم الله خيرا
كود :
Public Class Form1
Dim ax, ay As Integer
Dim dr As Boolean
Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
dr = True
ax = Windows.Forms.Cursor.Position.X - PictureBox1.Left
ay = Windows.Forms.Cursor.Position.Y - PictureBox1.Top
End If
End Sub
Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
If dr Then
PictureBox1.Left = Windows.Forms.Cursor.Position.X - ax
PictureBox1.Top = Windows.Forms.Cursor.Position.Y - ay
End If
End Sub
Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
dr = False
End Sub
End Class
هذا الكلاس مثال لتحريك مربع صورة انظر للاحدث المستخدمة والتعريفات الموجودة
يعني عند حدث اطلاق الزر الايسر PictureBox1_MouseUp
ممكن تكتب اي كود لفحص نتيجة المكان الصحيح
مثال بسيط لاهم مهمة لفكرة اللعبة حسب مافهمت من سؤالك الباقي عندث اطلاق الماوس تكتب كود التحقق هل المكان الجديد صحيح ام لا
فحص المكان الصحيح الظاهر طار من راسي بسبب انشغالي بعدة امور الفترة الماضية لكن
ممكن اي واحد يساعدنا بكود فحص اسم البارنت فان اكن الاسم الصحيح اذا ...
شكرا جزيلا مجهود رائع
جزاك الله خيرا