UC知道用VB制作一个简单记事本问题！
来源：百度知道 编辑：UC知道 时间：2024/05/22 06:31:55
比如我定义如下控件：
text文件控件名字：a_txt
对话框控件名字：cmd_dlg
一个按扭名字：cmd_open
我想实现这样的一个功能，单击cmd_open就弹出一个对话框，然后选择一个文本文件(*.txt)。打开，就会在a_txt这个控件上边显示文本文件内容，应该怎么样做呢？我不太懂VB，请各位朋友帮我完成代码编写。
大家帮帮忙好吗？
text文件控件名字：a_txt
对话框控件名字：cmd_dlg
一个按扭名字：cmd_open
我想实现这样的一个功能，单击cmd_open就弹出一个对话框，然后选择一个文本文件(*.txt)。打开，就会在a_txt这个控件上边显示文本文件内容，应该怎么样做呢？我不太懂VB，请各位朋友帮我完成代码编写。
大家帮帮忙好吗？
Private Sub cmd_Open_Click()
Dim FileN$, FreeF%, T$
cmd_dlg.Filter = "文本文件(*.txt)|*.txt"
cmd_dlg.CancelError = True
On Error GoTo endsub
cmd_dlg.ShowOpen
FreeF = FreeFile
FileN = cmd_dlg.FileName
Open FileN For Input As FreeF
Line Input #FreeF, T
a_txt.Text = T
Do Until EOF(FreeF)
Line Input #FreeF, T
a_txt.Text = a_txt.Text + vbNewLine + T
Loop
Close FreeF
endsub:
End Sub