VB.NET问题！200分

来源：百度知道 编辑：UC知道 时间：2024/06/07 17:17:51
问题我放在程序里面了....虽然这问题很菜，但是我还是要给200分！
因为是200分，所以我要多提一个问题：假如我建有2个窗体form1很form2
怎么实现点击form1中的一个按钮调用到form2？

问题2来了：
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
op1 = txt1.Text
op2 = txt2.Text
op3 = txt3.Text
op4 = txt4.Text
ba = txt3.Text
If op1 = "" Then
MsgBox("你已没有钱了，请重新开始", vbOKOnly + vbInformation, "游戏失败")
txt1.Text = 100

（想要这样，如果上面成立，则返回窗口，不执行ElseIf以后的语句，如果不成立则执行ElseIf以后的语句 ）
ElseIf op1 = 0 Then
MsgBox("你已没有钱了，请重新开始", vbOKOnly + vbInformation, "游戏失败")
txt1.Text = 100
End If
If op2 = "" Then
MsgBox("最少需要下注1", vbOKOnly + vbInformation, "输入错误")
ElseIf op2 = 0 Then
MsgBox(&qu

第一个问题：跳转到另一个窗体使用语句 Object.show，
你可以在form1任一控件事件下编写form2.show就行，如果还隐藏form1的话，再添加一句from1.hide
第二个问题
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
op1 = txt1.Text
op2 = txt2.Text
op3 = txt3.Text
op4 = txt4.Text
ba = txt3.Text
If op1 = "" Then
MsgBox("你已没有钱了，请重新开始", vbOKOnly + vbInformation, "游戏失败")
txt1.Text = 100

在这个位置添加一句代码
exit sub

不过我看你这段程序漏洞百出，我改正了一下，不过没明白你为什么用单选按钮去接收文本框的数据，所以就按照你的改了。改正后的代码如下：声明一下，你程序里的txt在我程序里是text，忘改了。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ba As String
op1.Text = Text1.Text
op2.Text = Text2.Text
op3.Text = Text3.Text
op4.Text = Text4.Text
ba = Text3.Text
If op1.Text = "" Then