作者irs2408 (irs2408)
看板Visual_Basic
标题[.NET] VB2008 打地鼠 急!!
时间Mon May 23 04:22:46 2011
请输入专案类型(网站专案或者应用程式专案)：
大家好，我们正在用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
1F：→ MOONRAKER:你需要使用TIMER，还有乱数。另外那不叫「语法」。 05/23 10:19
2F：→ MOONRAKER:if else endif select case sub function 这种才是语法 05/23 10:19