Untitled
By: a guest | Apr 30th, 2010 | Syntax:
VB.NET | Size: 0.93 KB | Hits: 111 | Expires: Never
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim RTFText As String = RichTextBox1.Text
If RTFText.Trim() <> String.Empty Then
sfdRTF.Filter = "RTF Files *.rtf|All files *.*"
sfdRTF.OverwritePrompt = True
sfdRTF.RestoreDirectory = True
Dim drSave As DialogResult = sfdRTF.ShowDialog()
If drSave = DialogResult.OK Then
Dim filename As String = sfdRTF.FileName
Dim stream_writer As StreamWriter
stream_writer = File.CreateText(filename)
stream_writer.WriteLine(RTFText)
stream_writer.Close()
End If
End If
End Sub
End Class