19-03-17, 04:40 AM
السلام عليكم ,, انا جديد على الفيجوال بيسك و اريد ان اصنع لعبة تتكون من عشرة ازرار و picturebox1 , مع عشر صور تأتي بشكل عشوائي,
ما أريده هو : كيف اجعل اي زر ضغطت عليه مسبقا باستدراج نفس الصورة السابقة التي اظهرها على 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
ممكن احد اساعدني ,, مشكووور