تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في picture drag and drop
#1
السلام عليكم و رحمة الله و بركاته
انا مبتدئ في Vb 2008
اريد عمل برنامج مسابقة للأطفال
و أريد أن اقوم بتحريك(draganddrop) صورة من مكان الى مكان فيه اسم الصورة في نفس الفورم اذا وضعت في المكان الصحيح تظهر رسالة قبول .ورسالة الرفض في حال و ضعها في مكان اخر الصورة في المرفقات
المرجو المساعدة جزاكم الله خيرا


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
كود :
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
ممكن تكتب اي كود لفحص نتيجة المكان الصحيح

مثال بسيط لاهم مهمة لفكرة اللعبة حسب مافهمت من سؤالك الباقي عندث اطلاق الماوس تكتب كود التحقق هل المكان الجديد صحيح ام لا


الملفات المرفقة صورة/صور
   

.zip   WindowsApplication1.zip (الحجم : 37.45 ك ب / التحميلات : 391)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
#3
بارك الله فيك
شكرا جزيلا لك يأخي الكريم
لقد وضعت الكود و عمل بشكل جيد.

ممكن تكتب لي كود لفحص نتيجة المكان الصحيح.
المثال المرفق لم يعمل معي
شكرا جزيلا
الرد }}}}
تم الشكر بواسطة:
#4
فحص المكان الصحيح الظاهر طار من راسي بسبب انشغالي بعدة امور الفترة الماضية لكن
ممكن اي واحد يساعدنا بكود فحص اسم البارنت فان اكن الاسم الصحيح اذا ...
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: @@أبورائد@@ , khalid0577
#5
شكرا جزيلا مجهود رائع
جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته


أنظر هذا الموضوع (@@@ لعبة تعليمية بسحب الصور واسقاطها على اسمها @@@)

السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة: سعود , hoob computer , khalid0577
#7
شكرا جزيلا
هذا ما كنت أبحث عنه
جزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة: @@أبورائد@@


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في عملية الإضافة الحفظ والتعديل لثلاث جداول ahmedfa71 2 123 منذ 6 ساعة مضت
آخر رد: سعود
  [VB.NET] مطلوب مساعدة بشكل عاجل في حل مشكلة في الإتصال بالقاعدة "بمقابل مادي" asadtaif 4 103 22-06-17, 11:04 PM
آخر رد: moh_g
  [سؤال] احتاج الى مساعدة في التحكم في ملف تكست خارجي malek369 1 66 20-06-17, 07:38 AM
آخر رد: سعود
  ممكن مساعدة من الاخوة benali17 1 50 20-06-17, 06:45 AM
آخر رد: سعود
  [VB.NET] مساعدة في العمل على موقع بإستخدام HttpWebReuest asda 0 47 17-06-17, 05:20 AM
آخر رد: asda
  مساعدة في كود الاضافة والتخزين و الحذف والتعديل و البحث khaled12345 5 191 16-06-17, 08:17 PM
آخر رد: khaled12345
  مساعدة في اغلا ق الشاشة الترحيبيه بعد دقيقة وفتح الشاشة الرئيسيه للمشروع khaled12345 2 80 13-06-17, 10:33 PM
آخر رد: khaled12345
  ممكن مساعدة اخواني في Inherits ابراهيم كركوكي 6 271 10-06-17, 12:37 AM
آخر رد: ابراهيم كركوكي
  [VB.NET] احتاج الى مساعدة في message box malek369 3 105 09-06-17, 02:37 PM
آخر رد: lkaam
  [VB.NET] مساعدة في طباعة تقرير عن طريق viwe محمد بوقزاحة 0 56 09-06-17, 02:32 AM
آخر رد: محمد بوقزاحة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم