[.NET] VB2008 打地鼠 急!!
請輸入專案類型(網站專案或者應用程式專案)：
大家好，我們正在用vb2008做打地鼠
大部分的指令都出來了
但有一個部分很奇怪
想問問看是哪出現了問題
(有問題的部分我用"---"標示)
我們的問題是
用什麼語法
才可以讓M1 到 M9 的圖片隨機出現
以下為我們的程式碼:
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
Timer2.Enabled = True
If RadioButton1.Enabled = True Then
Timer2.Interval = 1000
ElseIf RadioButton2.Enabled = True Then
Timer2.Interval = 600
ElseIf RadioButton3.Enabled = True Then
Timer2.Interval = 300
End If
Timer1.Interval = 1000
Label2.Text = 30
Label3.Text = 0
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
End
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If Label2.Text > 0 Then
Label2.Text = Label2.Text - 1
ElseIf Label2.Text = 0 Then
Timer1.Enabled = False
MsgBox("您的分數為 " & Label3.Text & " 分，好棒！", , "Congratulation!")
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer2.Tick
Randomize()
--------問題出現點---------
M1.Visible = False
M2.Visible = False
M3.Visible = False
M4.Visible = False
M5.Visible = False
M6.Visible = False
M7.Visible = False
M8.Visible = False
M9.Visible = False
---------------------------
End Sub
Private Sub M1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles M1.Click, _
M2.Click, M3.Click, M4.Click, M5.Click, M6.Click, M7.Click, M8.Click, M9.Click
Dim score As Integer
score = score + 1
Label3.Text = score
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
MsgBox("當OPEN小將出現時，用游標打中他即可加一分，否則不加分。請先選擇難易度後
，再按遊戲開始鍵！每次遊戲時間為30秒鐘！", , "O-P-E-N！")
End Sub
End Class
感謝解答!!! 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.13.144.67
→
05/23 10:19, , 1F
05/23 10:19, 1F
→
05/23 10:19, , 2F
05/23 10:19, 2F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
