تقييم الموضوع :
  • 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 0 32 20-10-18, 10:23 AM
آخر رد: Mohamed Magdy
Exclamation [VB.NET] احتاج مساعدة في حساب رصيد اجازة لموظف algiloshy@gmail.com 0 40 19-10-18, 06:40 PM
آخر رد: algiloshy@gmail.com
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 29 646 17-10-18, 11:43 PM
آخر رد: عبد العزيز البسكري
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 94 16-10-18, 04:55 PM
آخر رد: mohamedgadain61
  هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ hassan 14 26 789 15-10-18, 11:35 PM
آخر رد: hassan 14
  مساعدة في datatGridviwe DOX.1 5 141 10-10-18, 12:23 AM
آخر رد: حريف برمجة
  [VB.NET] مساعدة بخصوص كود الحفظ ay.alhaj 19 311 04-10-18, 10:22 PM
آخر رد: ay.alhaj
  [سؤال] مساعدة في كود تحديث برنامج ScreamVoice 9 171 03-10-18, 02:48 PM
آخر رد: ScreamVoice
  مساعدة فى برنامج اصنعوة (مكرار) naderalkeng54 4 132 28-09-18, 10:59 AM
آخر رد: naderalkeng54
  مساعدة في كود التعديل يتم التعديل لكن لا يقف على نفس الصف المعدل في الداتا جريد فيو essawq 22 585 26-09-18, 11:36 PM
آخر رد: elgokr

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


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