VB问题.谁来帮我解决！

来源：百度知道 编辑：UC知道 时间：2024/06/23 02:54:40
用vb做这样的一个程序，有三个窗体分别为Form1.Form2.Form3.其中Form1中有个TEXT1和一个Command1.我想在TEXT1中输入(Form2).然后点下Command1则Form2窗体就出来.再次输入(Form3)按下Command1则Form3窗体就出来.我不怎么懂.但是还是请高手帮助一下.谢谢
最好是把全部代码写一下,谢谢了

'
'如果窗体多了用Select太麻烦.下面这个代码不管多少个窗体,通吃.

Option Explicit

Private Sub Command1_Click()
On Error GoTo Error1
Dim FormName As Form
Set FormName = Forms.Add(Text1.Text)
FormName.Show
Error1:
MsgBox "窗体 " & Text1.Text & " 不存在", vbOKOnly + vbCritical, "Error"
End Sub

有个通法。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
For Each Form In Forms
If LCase(Form.Name) = LCase(Text1.Text) Then Form.Show
Next
End Sub

Private Sub Form_Load()
Load Form2 '在这里把你的全部Form都Load进来
Load Form3
End Sub

题目太简单,方法太多了,参考:
不区分大小写,

Private Sub Command1_Click()
If StrComp(Text1, Form2.Name, vbTextCompare) = 0 Then Form2.Show
If StrComp(Text1, Form3.Name, vbTextCompare) = 0 Then Form3.Show
End Sub

Private Sub Command1_Click()
text1.text = lcase(text1.text) '全部转小写
Select case text1.text
case