تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال nooralcown 7 54 أمس, 07:47 PM
آخر رد: nooralcown
  مساعدة لفهم كود التسجيل abureem93 0 19 أمس, 06:37 PM
آخر رد: abureem93
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 15 1,230 21-01-18, 08:30 PM
آخر رد: محمود صالح
  [VB.NET] محتاج مساعدة في كود في datagirdviwe saudisgames 2 63 20-01-18, 09:31 PM
آخر رد: saudisgames
  مساعدة في عمل برنامج مكتب هندسي المتألق9 0 55 25-12-17, 09:08 PM
آخر رد: المتألق9
  [مساعدة] تحويل من #C إلى Vb أحمد إبراهيم سعد 5 155 19-12-17, 01:26 PM
آخر رد: silverlight
  [VB.NET] مساعدة يا شباب ابغي عمل لعبة خفيفة اون لاين 0theghost0 0 67 14-12-17, 06:28 AM
آخر رد: 0theghost0
  [VB.NET] مساعدة لمنع تكرار البيانات او تجميعها علي حسب التاريخ englishman210 15 318 13-12-17, 11:00 AM
آخر رد: englishman210
  [VB.NET] نا اريد مساعدة سريعة حنان المغربى 0 82 12-12-17, 04:14 PM
آخر رد: حنان المغربى
  مساعدة في فاتورة مبيعات الدريساوي 2 121 09-12-17, 11:58 PM
آخر رد: الدريساوي

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


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