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 Sub
End Class
6、 效果
