UC知道vb 打开txt
来源：百度知道 编辑：UC知道 时间：2024/06/30 17:05:45
我有一个textbox控件（text1），现在我想点击一个按钮，然后弹出打开对话框，这个对话框与我插入的对话框差不多，不过是打开文件，双击TXT文件，text1中就会出现TXT文件里的内容，如何办到，谢谢！
VB爱好者（QQ讨论群。NEW人少，所以收人）：96247273
VB爱好者（QQ讨论群。NEW人少，所以收人）：96247273
首先，在部件里添加一个microsoft common dialog control 6.0
再加入文本框（设置multiline=true,scrollbars=2）,按钮
然后写入如下代码
Private Sub Command1_Click()
On Error GoTo err
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
Text1.Text = ""
Dim TextLine
Open CommonDialog1.FileName For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Text1.Text = Text1.Text & TextLine & vbNewLine ' 在调试窗口中显示数据。
Loop
Close #1 ' 关闭文件。
Exit Sub
err:
MsgBox "未选择文件"
End Sub