RTF Problems

hi everybody i have just 2Quick questions to ask:

3)when I open any rich text document in my rich text box the formatting is lost and all I get is a ton of font code

4)in my rich text box if I highlight any text my application crashes, in VB, before I compile it I get a warning saying that stream reader and stream writer are being used in code before they are declared, but looking at the code that looks OK .

My Code:

Imports Microsoft.VisualBasic.FileIO

Public Class MainWindow

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click

Dim sr As IO.StreamReader

'streamreader is used to read text

Dim FileName As String = String.Empty

'declaring filename that will be selected

Try

With OpenFileDialog1

'With statement is used to execute statements using a particular object, here,_

'OpenFileDialog1

.Filter = "Text files (*.txt)|*.txt|" & "Rich Text Documents (*.rtf)|*.rtf|" & "All files|*.*"

'setting filters so that Text files and All Files choice appears in the Files of Type box

'in the dialog

If .ShowDialog() = Windows.Forms.DialogResult.OK Then

'showDialog method makes the dialog box visible at run time

sr = New IO.StreamReader(.OpenFile)

'using streamreader to read the opened text file

'displaying text from streamreader in richtextbox

End If

End With

Catch es As Exception

Finally

If Not (sr Is Nothing) Then

End If

End Try

End Sub

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click

Dim sw As IO.StreamWriter

'streamwriter is used to write text

Dim FileName As String = String.Empty

'declaring filename that will be selected

Try

With SaveFileDialog1

.Filter = "Text files (*.txt)|*.txt|" & "Rich Text Files(*.rtf)|*.rtf|" & "All files|*.*"

If .ShowDialog() = Windows.Forms.DialogResult.OK Then

sw = New IO.StreamWriter(FileName)

'using streamwriter to write text from richtextbox and saving it

End If

End With

Catch es As Exception

Finally

If Not (sw Is Nothing) Then

End If

End Try

End Sub

Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub PrintPreviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub FontCtrlFToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontCtrlFToolStripMenuItem.Click

Try

With FontDialog1

'initializing the dialog box to match the font used in the richtextbox

'default color is Black

If .ShowDialog = Windows.Forms.DialogResult.OK Then

'calling a method setFont() to set the selected font and color

End If

End With

Catch es As Exception

End Try

End Sub

Private Sub setFont()

Try

With FontDialog1

If .ShowColor Then

'setting the color

End If

End With

Catch ex As Exception

End Try

End Sub

Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click

End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

End Sub

Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

RichTextBox1.Text = " "

'clears the text in richtextbox

End Sub

Private Sub FontDialog1_Apply(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontDialog1.Apply

End Sub

Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

End Sub

Private Sub ImportText(ByVal filename As String)

End Sub

Private Sub ExportText(ByVal filename As String)

End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

Me.Close()

End Sub

Public NotInheritable Class PrintDialog

Dim CommonDialog

End Class

Private Sub PrintToolStripMenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem1.Click

' Declare the PrintDocument object.

Dim docToPrint As New Printing.PrintDocument

' This method will set properties on the PrintDialog object and

' then display the dialog.

' Allow the user to choose the page range he or she would

' like to print.

PrintDialog1.AllowSomePages = True

' Show the help button.

PrintDialog1.ShowHelp = True

' Set the Document property to the PrintDocument for

' which the PrintPage Event has been handled. To display the

' dialog, either this property or the PrinterSettings property

' must be set

Dim result As DialogResult = PrintDialog1.ShowDialog()

' If the result is OK then print the document.

If (result = Windows.Forms.DialogResult.OK) Then

End If

' The PrintDialog will print the document

' by handling the document's PrintPage event.

End Sub

Dim docToPrint As New Printing.PrintDocument

Private Sub document_PrintPage(ByVal sender As Object, _

ByVal e As System.Drawing.Printing.PrintPageEventArgs)

Dim docToPrint As New Printing.PrintDocument

' Insert code to render the page here.

' This code will be called when the control is drawn.

' The following code will render a simple

' message on the printed document.

Dim text As String = "In document_PrintPage method."

Dim printFont As New System.Drawing.Font _

("Arial", 35, System.Drawing.FontStyle.Regular)

' Draw the content.

End Sub

Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click

Clipboard.SetText(Me.RichTextBox1.SelectedText)

End Sub

Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click

Me.RichTextBox1.Paste()

End Sub

Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click

Me.RichTextBox1.Cut()

End Sub

End Class