在VB中加入“文件——打开”功能

来源：百度知道 编辑：UC知道 时间：2024/06/06 20:00:11
我想在VB里面做一个菜单，“文件——打开”，我想一点击它就弹出一个文件对话框，可以选择一个文本文件，点击“打开”后可以将此文本文件中的文本导入TextBox空间之中，请问该如何制作？
要附上代码和详细制作方法！
求诸位大哥了，我可是个小菜鸟啊！13岁，初学编程，请多指教！
问题在于：那个“CommonDialog”往哪里画呀？我在窗体里试着画，可总是出错！说什么“该部件的许可信息没有找到”！
我用的是VB6精简版，请诸位量身订制解决方案！
不过也谢谢那位给我“保存”代码的老兄，我正要往坛子上发问题呢......

启动VB，在窗体上画一个TEXTBOX，MultiLine属性设为True，ScrollBars属性设为2。点击“工具”--“菜单编辑器”，在标题中输入“文件(&F)”，在名称中输入“Fi”，再点击“下一个”，点一下向右的箭头，在标题中输入“打开(&O)”，在名称中输入“Op”，点确定，至此菜单的工作完成。
下面加入通用对话框：点“工程”--“部件”，从中找到“Microsoft Common Dialog Control 6.0”，把前面的方框内打上勾，点“关闭”。在窗体上画一个刚添加的通用对话框控件。
下面开始写代码：
单击窗体上的“文件”，选“打开”，这时会跳出代码框。在其中输入：
Dim FileName0 As String, FileText As String, R As String
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen '打开对话框
FileName0 = CommonDialog1.FileName
If FileName0 = "" Then Exit Sub
Open FileName0 For Input As #1
Do While Not EOF(1)
Line Input #1, FileText
R = R + FileText & Chr(13) + Chr(10)
Loop
Text1.Text = R
Close #1
好了，你可以成功了。

Option Explicit

'首先是选择菜单 工程-部件，勾选 Microsoft Common Dialog Control 6.0
'工具栏里面选择CommonDialog，在窗体上画一个。
'文本框的 MultiLine = True
Private Sub For