SaveText(RichTextBox1)
Private Sub SaveText(ByVal RichTextBoxToSave As RichTextBox)
Dim SaveFileDialog1 As New SaveFileDialog
SaveFileDialog1.Filter = "Plain Text File (*.txt)|*.txt|Rich Text File (*.rtf)|*.rtf"
SaveFileDialog1.DefaultExt = "*.txt"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName = "" Then Exit Sub
If SaveFileDialog1.FilterIndex = 2 Then
RichTextBoxToSave.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
Else
RichTextBoxToSave.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If
Diagnostics.Debug.WriteLine("Text written to file: " & SaveFileDialog1.FileName)
End Sub
|
No comments:
Post a Comment