VB高手进！很冷门的问题！

来源：百度知道 编辑：UC知道 时间：2024/05/17 05:39:49
我想做个程序，一个文本框，三个按钮，，一个“是”一个“否”一个“退出”；文本框里写一个问题，点“是”文本框出下一个问题，点“否”出对立问题，可是一个按钮只有一个点击事件，不能像“下一步”那样连续点击！高手给看看该如何解决！不要说创建多个窗体！说的就是在一个窗体上，一个文本框内点一下出下一题！我的QQ：332337621
如能给出代码最好，给出方向也行！谢了！
就是说，如何让一个按键能像我们平时用的“下一步”那样，能重复按，而且按了之后能击发多个内容！

放三个按钮和一个textbox控件，"yes1"，"no1"等换成你的问题就行了。
Private Sub Command1_Click()
Static i As Integer
i = i + 1
Select Case i
Case 1
Text1 = "yes1"
Case 2
Text1 = "yes2"
Case 3
Text1 = "yes3"
Case 4
Text1 = "yes4"
Case 5
Text1 = "yes5"
End Select
End Sub

Private Sub Command2_Click()
Static j As Integer
j = j + 1
Select Case j
Case 1
Text1 = "no1"
Case 2
Text1 = "no2"
Case 3
Text1 = "no3"
Case 4
Text1 = "no4"
Case 5
Text1 = "no5"
End Select
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "是"
Command2.Caption = "否"
Command3.Caption = "退出"
End Sub

'不知道你说的是不是这样的效果
'我没有写完,你可以