vb中which的用法

来源：百度知道 编辑：UC知道 时间：2024/05/07 07:24:45
请各位帮我看看下面的代码，which是什么意思啊，多谢了，明天要考二级了，真的很急啊！！！
Private Sub vbCopy_Click()
If which = 1 Then
Text3.Text = Text1.Text
ElseIf which = 2 Then
Text3.Text = Text2.Text
End If
End Sub

Private Sub vbCut_Click()
If which = 1 Then
Text3.Text = Text1.Text
Text1.Text = ""
ElseIf which = 2 Then
Text3.Text = Text2.Text
Text2.Text = ""
End If
End Sub

Private Sub vbEdit_Click()
If which = 1 Then
If Text1.Text = "" Then
vbCut.Enabled = False
vbCopy.Enabled = False
Else
vbCut.Enabled = True
vbCopy.Enabled = True
End If
ElseIf which = 1 Then
If Text2.Text = "" Then
vbCut.Enabled = False
vbCopy.Enabled = False
Else

1.这是声明了名称为which的模块级变量，在程序执行过程中根据它的值控制程序的走向。

2.VB6.0中没有which这个关键字。

3.问帖给出的代码是复制、剪切和编辑的代码，仅是根据which变量的值有条件地执行相应的代码。

4.程序使用了If...Then...Else 语句来控制程序走向。

If...Then...Else 语句，根据表达式的值有条件地执行一组语句。

语法：

which在这里表示选定的TextBox是哪一个。若Which＝1表示选定了Text1，Which=2表示选定了Text2。这样vbCopy、vbCut、vbEdit、vbPaste四个按钮便能根据Which变量的取值决定相应的操作。

which是cut,copy,paste动作的源文本框编号

四个应该不是按钮,而是菜单,因为点击vbedit时设定了其他几个是否可用,显然是顶级菜单"编辑"