تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة من فضلكم
#1
السلام عليكم ,, انا جديد على الفيجوال بيسك و اريد ان اصنع لعبة تتكون من عشرة ازرار  و picturebox1 , مع عشر صور تأتي بشكل عشوائي,



ما أريده هو : كيف اجعل اي زر ضغطت عليه مسبقا باستدراج نفس الصورة السابقة التي اظهرها على picturebox1.



هذه اكواد اللعبة:






كود :
  Private Function getImage() As Image
       Dim indx As Integer
       Dim img As Integer
       Dim rtn As Image = Nothing
       Label2.Enabled = False
       If _unusedImages.Count > 0 Then
           indx = _ran.Next(0, _unusedImages.Count)
           img = _unusedImages(indx)    
           rtn = _images(img)          
           _unusedImages.RemoveAt(indx)  
       Return rtn
   End Function

Private Sub CreateUnusedIndexList()
       _unusedImages.Clear()
       For indx As Integer = 0 To 9
           _unusedImages.Add(indx)
       Next

   End Sub

Private Sub Buttons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click,
               Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click,
       Button7.Click, Button8.Click, Button9.Click, Button10.Click

      If CType(sender, Button).BackColor = Color.Gray Then
           هنا اريد كود ارجاع نفس الصورة التي ظهرت سابقا في الزر المضغوط
PictureBox1.Image = الصورة التي ظهرت في الزر  مسبقا
           GoTo okk
       End If

       CType(sender, Button).BackColor = Color.Gray
       PictureBox1.Image = getImage()
okk:
End Sub

ممكن احد اساعدني ,, مشكووور
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج مساعدة فى نافذة الدخول Mohamed Magdy 2 79 منذ 6 ساعة مضت
آخر رد: ahmadpal
  مساعدة في إنشاء ملف نصي ahmedfa71 2 79 أمس, 05:22 PM
آخر رد: ahmedfa71
  [سؤال] احتاج مساعدة يظهر لدى خطأ ExecutionengineException was unhandled dametucorazon 0 37 أمس, 09:09 AM
آخر رد: dametucorazon
  مساعدة فى كود الخصم فى الفاتورة سمير جمال 1 73 25-02-19, 10:22 AM
آخر رد: elgokr
  طلب مساعدة في عمل chart محمد خيري 6 151 23-02-19, 01:28 AM
آخر رد: elgokr
  مساعدة في موقع panels على الفورم ؟؟؟ abdullhadi999 2 114 16-02-19, 02:45 AM
آخر رد: أحمد النجار
Information [VB.NET] مساعدة : حساب الناتج الاجمالي georgos 4 139 15-02-19, 11:35 PM
آخر رد: georgos
  مساعدة بمشكلة مكتبات الوورد و الاكسل محمد خيري 0 74 12-02-19, 12:39 AM
آخر رد: محمد خيري
  مساعدة هامة احتاج كود يقوم بعمل طباعة تلقائية ل ReportViwer مجرد فتح الفورم mohamedgadain61 1 153 11-02-19, 09:47 AM
آخر رد: mohamedgadain61
  مساعدة في اتمام المشروع georgos 0 117 11-02-19, 01:32 AM
آخر رد: georgos

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


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