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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تكرار نص بترقيم نور الهدى الهدى 2 24 منذ 18 دقيقة مضت
آخر رد: نور الهدى الهدى
  محتاج مساعدة فى استعداة السورس كود لى برنامجي Mohamed Magdy 0 20 أمس, 12:18 AM
آخر رد: Mohamed Magdy
  مساعدة في كود sofiane-phy 7 109 15-01-19, 10:15 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] مساعدة في كود حفظ البيانات Hamoody 6 141 07-01-19, 05:54 PM
آخر رد: elgokr
  [كود] محتاج مساعدة في الاكواد دي اسامه الهرماوي 6 164 30-12-18, 03:28 PM
آخر رد: alsouf
  [سؤال] طلب مساعدة vb.net: إرسال بيانات من داتاقريدفيو الى نمودج وورد hamzatalbi 3 233 18-12-18, 10:26 AM
آخر رد: dell
  محتاج مساعدة فى حظر لينك معين من الويب بروزر Mohamed Magdy 1 62 18-12-18, 03:16 AM
آخر رد: elgokr
  مساعدة السعيدي 12 349 08-12-18, 12:01 AM
آخر رد: السعيدي
  شباب محتاج مساعدة فى اداة ال vlc Mohamed Magdy 2 104 05-12-18, 10:49 AM
آخر رد: Mohamed Magdy
  مساعدة ضرورية بخصوص برنامج Aminsoft 4 221 04-12-18, 06:40 AM
آخر رد: asemshahen5

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


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