Question

vb怎么利用inputbox函数,按姓名查询信息？

在fomr2怎么用inputbox函数来输入姓名查询出信息？。。。。信息在form1的文本框中，（）
在form1里 是按“浏览”按钮 使用 commondialog 控件的showopen"打开"txt文件将内容显示到 文本框里。。。
现在问题是按form1的“查询“按钮 用inputbox函数 来查询 将相关信息显示到新的窗口 ，就是form2中显示。。 比如点查询 输入姓名。。姓名所带的信息就显示到form2哪里了。。
不知道你看的懂不- -

Answer 1

'首先定义一个全局变量
public TheName as string
'在Form2中，比如单机一个按钮：
Private Sub Command1_Click()
TheName = InputBox(, "")
End Sub
‘这是TheName变量被赋值了。
你在Form1里面直接引用就可以了。

追问

完全看不懂啊。。。我是非计算机专业的。- -这个好像略麻烦啊

追答

每太看懂题目。
因为楼主主要看inpoutbox
在Form2里面是可以访问form1.text1.text的。
inputbox前面已经说过，之后就是查询了。这就得看你text1中的文本是啥样子的了。

追问

在form1里 是按“浏览”按钮 使用 commondialog 控件的showopen"打开"txt文件将内容显示到 文本框里。。。
现在问题是按form1的“查询“按钮 用inputbox函数 来查询 将相关信息显示到新的窗口 ，就是form2中显示。。 比如点查询 输入姓名。。姓名所带的信息就显示到form2哪里了。。
不知道你看的懂不- -

追答

哦，现在看懂。
这样子呗。我觉得应该这样子，不需要你说的还要讲text文件的内容转移到文本。
dim TheName as string '名字
public TheInfor as string ’名字和名字对应的信息：
’我所认为的是，你的名字和名字对应的信息在text文件的同一个行里面。

’form1中一个按钮
‘点击事件里
thename=inputbox(,"")
‘然后就是逐一查询了
‘逐一查询步骤：
'1读取text文件第一行内容到变量TheInfor；
'2查看thename是否与 if mid(TheInfor，1，len(thename))=thename ,说明查询到了，结束
'3若2没有查询到返回到1，只不过读取text第二行内容。

读取到了就简单了。
调用form2，当然你可以在form2中加textbox控件。将TheInfor 赋值给textbox.text。
基本思路就是这样。

追问

txt内容转到文本是浏览按钮的功能

这个查询要求的是 ：点了。显示form2.。然后才是inputbox函数，按姓名查询 ，我刚按你说的在form1的
Private Sub Command1_Click()
Name = InputBox("请输入职工姓名")
Form1.Hide
Form2.Show
End Sub
。运行就出现编译错误了= =
话说从读取txt文件第一行到变量。是利用什么啊？貌似没学过

追答

额……，好吧。
Name 你定义了吧？要定义才成。 最好改为其他名字，name占用关键词。
至于读取text文件的某一行到变量，参照一下顺序文件读写就知道了。
当然你可以用其他的方式处理一下你的字符串。以达到查询的目的。
如果你不着急的话，我一会回到宿舍在帮帮你。我现在要下班了。