我也是新手,大家一同交流!
需要用到的控件:Microsoft Common Dialog Control 6.0
Microsoft RichText Box 6.0
代码:
Private Sub Command1_Click()
'指定打开文件的类型
CommonDialog1.Filter = "文本文件(*.txt) *.txt"
'打开
CommonDialog1.ShowOpen
'Microsoft RichText Box 6.0控件,比Textbox更好用
'清空文本内容
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
'将打开的txt文件的内容显示在RichTextbox中
RichTextBox1.LoadFile FileName
End Sub