vb select case 与数组组合用法

来源：百度知道 编辑：UC知道 时间：2024/06/02 05:26:35
谁知道怎么错了? 怎么改正? 界面上有一个按钮command1,数组型option(0)和option(2).
Private Sub Command1_Click()
If Text1 <> "chen" Then
MsgBox "密码错误，请重新输入", 0, "提示"
Else
Select Case option.index
Case 0
form2.Show
Case 1
form3.Show
End Select
End If
Unload Me
End Sub

等待高手.

'“Option”是保留关键字，不能用作变量名、控件名

Private Sub Command1_Click()
If Text1 <> "chen" Then
MsgBox "密码错误，请重新输入", 0, "提示"
Else
Select Case True '注意看这里
Case Option1(0).Value '注意看这里
form2.Show
Case Option1(1).Value
form3.Show
End Select
End If
Unload Me
End Sub

。。。。。
If Text1 <> "chen" Then
这句你是想让文本框输入的文本作为密码吗？还是Text1只是变量名，文本框应该是Text1.text

Select Case在这种情况下不好用，应该用if
option.index这里也不对，option是控件名，关键字不能直接用，而且还是数组，没有这种方法
你可以用
if option1(0).value then
form2.Show
elseif option1(1).value then
form3.Show
end if

Private Sub Command1_Click()
If Text1 <> "chen" Then
MsgBox "密码错误，请重新输入", 0, "提示"

If Option1(0).Value = True Then form2.Show
If Option1(1).Value = True Then form3.Show

End If
Unload Me