VB按钮的问题

来源：百度知道 编辑：UC知道 时间：2024/05/10 21:44:43
我做了一个工程,包括70多个窗体,我想做一个文本框和一个按钮,在文本框里输入哪个数就显示出哪个窗体,比如我在文本框里输入一个1,则form1就显示出来,请高手们帮帮忙吧,谢谢了

'哇~哈~哈，五分我也要...

'在Text1.Text里输入窗体的名称，点Command1就能看到效果。
'注:显示不存在的窗体会报错
'如果你想实现只输入窗体名称末尾的数字就显示窗体，请把 _
'Set FormName = Forms.Add(Text1.Text)这句替换成 Set FormName = Forms.Add("Form" & Text1.Text)

'-----主要代码如下-----
Private Sub Command1_Click()
Dim FormName As Form
Set FormName = Forms.Add(Text1.Text)
FormName.Show
End Sub

判断好了

Private Sub Text1_Change()
If Val(Text1.Text) = 1 Then
Form1.Show
End If
End Sub

Private Sub Command1_Click()
a = Text1
Select Case a
Case 1
Form1.Show
Case 2
Form2.Show
Case 3
Form3.Show
.
.
.
.
.
.
case 70
form70.show
end select
End Sub