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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة ibrahimmakhool 2 40 اليوم, 02:52 AM
آخر رد: elmezo
  مساعدة لتصميم برنامج إسلامي بإمتياز hichem1 3 80 أمس, 09:43 PM
آخر رد: عبد العزيز البسكري
Information مساعدة لتونسي مبتدأ عن برنامج صلاة hichem1 0 61 22-04-18, 02:17 AM
آخر رد: hichem1
  مساعدة جزاكم الله خيرا fouadhdfouad 1 47 20-04-18, 09:11 PM
آخر رد: elmezo
  مشكلة في الإتصال بقاعدة الAccess ارجوكم مساعدة فراس صلاح 0 75 20-04-18, 05:18 PM
آخر رد: فراس صلاح
  [VB.NET] مساعدة في ارسال الصوت Beep dubai.eig 0 67 16-04-18, 10:55 AM
آخر رد: dubai.eig
  مساعدة في ربط قاعدة البيانات عزف الرياح 0 59 13-04-18, 12:41 AM
آخر رد: عزف الرياح
  [كود] ممكن مساعدة لسه مبتدئ 2 69 11-04-18, 09:32 AM
آخر رد: لسه مبتدئ
  [VB.NET] طلب مساعدة فراس الغزي 12 248 10-04-18, 10:28 PM
آخر رد: محمود بكرى
Photo احتاج مساعدة جزاكم الله خيرا عادل ادعبدالله 0 57 08-04-18, 11:42 PM
آخر رد: عادل ادعبدالله

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


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