作者j76992001 (人缘有待等)
看板Visual_Basic
标题[.NET] 如何停留在执行的表单画面上
时间Thu May 28 11:08:53 2009
Public Class Form1
Dim x, a, b
Private Sub Button4_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button4.Click
x = CInt(Int((10 - 10 + 1) * Rnd() + 10))
Label1.Text = x
End Sub
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
If Label1.Text = "" Then
MsgBox("请先按开始", , "注意")
End
End If
Label1.Text = Val(Label1.Text) - 1
If Val(Label1.Text) > 4 Then
a = CInt(Int((3 - 1 + 1) * Rnd() + 1))
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 4 Then
a = 3
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 3 Then
a = 2
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 2 Then
a = 1
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 1 Then
MsgBox("我认输了", , )
ElseIf Val(Label1.Text) = 0 Then
MsgBox("我获胜了", , )
End
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button2.Click
If Label1.Text = "" Then
MsgBox("请先按开始", , "注意")
End
End If
Label1.Text = Val(Label1.Text) - 2
If Val(Label1.Text) > 4 Then
a = CInt(Int((3 - 1 + 1) * Rnd() + 1))
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 4 Then
a = 3
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 3 Then
a = 2
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 2 Then
a = 1
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 1 Then
MsgBox("我认输了", , )
ElseIf Val(Label1.Text) = 0 Then
MsgBox("我获胜了", , )
End
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button3.Click
If Label1.Text = "" Then
MsgBox("请先按开始", , "注意")
End
End If
Label1.Text = Val(Label1.Text) - 3
If Val(Label1.Text) > 4 Then
a = CInt(Int((3 - 1 + 1) * Rnd() + 1))
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 4 Then
a = 3
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 3 Then
a = 2
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 2 Then
a = 1
MsgBox("我拿走" & a & "粒", , )
b = Val(Label1.Text) - a
Label1.Text = b
MsgBox("还剩下" & b & "粒", , )
ElseIf Val(Label1.Text) = 1 Then
MsgBox("我认输了", , )
ElseIf Val(Label1.Text) = 0 Then
MsgBox("我获胜了", , )
End
End If
End Sub
End Class
如题 这是一个捡石头的游戏 表单介面上有四个按钮 分别是"拿一粒石头" "拿两粒石头"
"拿三粒石头" "开始" 但是如果在没按开始之前 就先按了其他三个按钮 用来显示数字的
Label1还是会跑出数字来(看是按多少 就会负多少) 目前自己能让这个情况不发生的
方式就是在每个Button_Click的最前面插入条件假如Label是""的话 直接终止程式
想请问版上各位 是否能够只让MsgBox的讯息跑出来 然後继续停留在执行画面呢??
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.38.15.130
※ 编辑: j76992001 来自: 114.38.15.130 (05/28 11:10)
1F：推 catchtest:把End改成Exit Sub即可 05/28 13:13
2F：→ j76992001:感谢帮忙 问题解决了^^ 05/28 20:15