24-02-13, 12:57 AM
اضف الصور الى الريسورس واكتب الكود الاتي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim I As Integer
I = Rnd() * 8
Select Case I
Case 1
PictureBox1.Image = My.Resources.Chrysanthemum
Case 2
PictureBox1.Image = My.Resources.Desert
Case 3
PictureBox1.Image = My.Resources.Hydrangeas
Case 4
PictureBox1.Image = My.Resources.Jellyfish
Case 5
PictureBox1.Image = My.Resources.Koala
Case 6
PictureBox1.Image = My.Resources.Lighthouse
Case 7
PictureBox1.Image = My.Resources.Lighthouse
Case 8
PictureBox1.Image = My.Resources.Penguins
End Select
End Sub