VB.NET怎样实现打开、保存、另存为、打印功能？
我怎么实现不了呢？只是能显示打开、保存界面，但并不能真正的实现。
望知道的兄弟姐妹帮忙，小妹这儿先谢过了。

'打开
Private Sub MenuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuOpen.Click
RichTextBox1.Clear()
OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|rtf文件(*.rtf)|*.rtf|所有文件(*.*)|*.*"
OpenFileDialog1.FileName = RichTextBox1.Name
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.InitialDirectory = "g:\"
OpenFileDialog1.RestoreDirectory = False
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
'Select Case OpenFileDialog1.FilterIndex
'Case 1
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
' Case 2
'RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
'End Select
End If
Me.Text = "我的记事本 - " & OpenFileDialog1.FileName
End Sub
'保存
Private Sub MenuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuSave.Click
SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|rtf文件(*.rtf)|*.rtf|所有文件(*.*)|*.*"
SaveFileDialog1.FileName = RichTextBox1.Name
SaveFileDialog1.FilterIndex = 1
SaveFileDialog1.InitialDirectory = "g:\"
SaveFileDialog1.RestoreDirectory = True
If SaveFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
'Select Case SaveFileDialog1.FilterIndex
' Case 1
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
' Case 2
'RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
'End Select
End If
End Sub

打开和保存我是实现了，但是感觉功能有点问题，具体是怎么回事我也说不清楚，只是感觉用着不舒服，不是很人性化，呵呵，还请高手指教下

谢谢，谢谢，可以实现，但是好象只能实现一次。第二次就不行了的。

保存有点复杂了

Me.SaveFileDialog1.Filter = "RTF 文件(*.rtf)|*.rtf|TXT 文件(*.txt)|*.txt"
Me.SaveFileDialog1.ShowDialog()
If Me.SaveFileDialog1.FilterIndex = 1 Then
form4.RichTextBox1.SaveFile(Me.SaveFileDialog1.FileName)
Else
form4.RichTextBox1.SaveFile(Me.SaveFileDialog1.FileName, 1)
End If
我用是MDI，是位师兄教我的，拿来共享了，让我们共同进步吧。
谢谢了哦。樊宇