Question

VB打开文本框赋值

请问一下高手。。。。VB怎么实现以下类容：
在同一个文本框里面，输入8001，弹出8001窗体；输入8002，弹出8002窗体。。。。。以此类推

Answer 1

楼主参考一下，假设输入在 Text1 中。

在程序启动时，要用 Load formxxxx ，把窗体全部加载。

你的 8001、8002什么的，是纯数字的，应该是窗口的 Caption属性吧！

Private Sub Command1_Click()
   Dim objFrm As Form
   Dim lFlag As Long
   lFlag = -1
   For Each objFrm In Forms
      If (objFrm.Caption = Text1) Then
         lFlag = 0
         objFrm.Show
         Exit For
      End If
   Next
   If (lFlag) Then MsgBox "没有指定的窗体。", 32
End Sub

追问

我制定好存款窗口8001，转账窗口8002.当我在文本框输入8001的时候，弹出存款的窗口，8002弹出转账窗口，窗体的内容不一样的

追答

你说的这些，我知道。
关键是，你说的8001、8002什么的，不可能是窗体的“名字”。
因为纯数字的，不可能是对象名称。
你要注意分清楚窗体的 Name属性和Caption属性。
Name才代表的是“对象”。
象 Form1、Form2、FormMain这样的，才是代表窗口的。
你的程序总有一个“入口”的吧。在那儿，把这些窗口全部用Load加载。
如果你自己描述不清楚，别人都要去猜。
至少，你可以把工程资源管理器窗口那儿的截图，发出来看看吧。

Answer 2

1. 你先把所有窗口都 加载

    load  8001窗体

    load  8002窗体

    ....

2. 显示输入的窗口假设你的文本框是text1

   
   

   Dim oA As Form

   For Each oA In Forms

       If oA.Name = Text1.Text Then oA.Show

   Next

追问

弹不出来

追答

你的窗口文件要先存在才可以弹。
假设你有个窗口form1,你可以
Dim a As New Form1

a.Caption = Text1.Text
a.Show

追问

我的意思是，我制定好存款窗口8001，转账窗口8002.当我在文本框输入8001的时候，弹出存款的窗口，8002弹出转账窗口，窗体的内容不一样的

追答

那你按我前面说的去做没问题，我自己写代码验证过了，可能的bug是窗口名的大小写不匹配不弹出。2 改成下面就好了
Dim oA As Form
For Each oA In Forms
If LCase(oA.Name) = LCase(Text1.Text) Then oA.Show
Next
还有你说的8001，8002等窗口，你得写代码让他们关闭时 隐藏而不是真的关闭，否则下次就无法弹出。

Answer 3

Private Sub Text1_Change()
MsgBox Text1.Text
End Sub
不过手动输入的话只能输入一个 复制粘贴可以随意输入

Answer 4

select case textbox1.text
case "8001"
msgbox "存款窗口"
case "8002"
msgbox "转帐窗口"
case else
msgbox "某某窗口"
end select