1、新建文件“打开文件对话框”
2、新建窗体form1
3、向form1添加控件richtextbox1
4、添加命令按钮
5、添加代码Public Class Form1 '打开文件 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click Dim openFile1 As New OpenFileDialog If (openFile1.ShowDialog() = DialogResult.OK) _ And (openFile1.FileName.Length > 0) Then Me.RichTextBox1.LoadFile(openFile1.FileName, _ RichTextBoxStreamType.PlainText) End If End SubEnd Class
6、效果