Dim ct As Windows.Forms.RichTextBox ct = e.Form.Controls("SplitContainer2").Panel1.BaseControl.Controls("Ric") Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 ct.LoadFile(dlg.FileName,System.Windows.Forms.RichTextBoxStreamType.RichText) '保存原格式 End If