VB.Netテキストをテキストボックスに読み込む問題

Question

私はしばらくの間作業してきたシンプルなスティッキーノートアプリケーションを持っていて、テキストボックスにテキストを読み込んだり読み込んだりする問題に遭遇しました。ここに私の現在のコードは次のとおりです。

Private Sub newNote_Click(sender As Object, e As EventArgs) Handles newNote.Click 
    Dim newNoteFrm As New Notes 
    newNoteFrm.Show() 
End Sub 

Private Sub exportNote_Click(sender As Object, e As EventArgs) Handles exportNote.Click 
    Dim saveFile As New SaveFileDialog 
    Dim myStream As Stream 
    saveFile.Title = "Export/Save Note" 
    saveFile.Filter = ".txt|*.txt|All Files|*.*" 
    saveFile.FilterIndex = 0 

    If saveFile.ShowDialog() = DialogResult.OK Then 
     RichTextBox1.SaveFile(saveFile.FileName, RichTextBoxStreamType.RichText) 
     Me.Text = saveFile.FileName.ToString 
    End If 

End Sub 

Private Sub importNote_Click(sender As Object, e As EventArgs) Handles importNote.Click 
    Dim openFIle As New OpenFileDialog 
    openFIle.Filter = ".txt|*.txt|All Files|*.*" 
    openFIle.FilterIndex = 0 
    If openFIle.ShowDialog() = DialogResult.OK Then 
     RichTextBox1.Text = IO.File.ReadAllText(openFIle.FileName) 
    End If 
End Sub 

問題は、この部分に来る：

Private Sub importNote_Click(sender As Object, e As EventArgs) Handles importNote.Click 
    Dim openFIle As New OpenFileDialog 
    openFIle.Filter = ".txt|*.txt|All Files|*.*" 
    openFIle.FilterIndex = 0 
    If openFIle.ShowDialog() = DialogResult.OK Then 
     RichTextBox1.Text = IO.File.ReadAllText(openFIle.FileName) 
    End If 
End Sub 

何らかの理由で、私は.txtファイルとして、このアプリケーションから任意のファイルをエクスポートするときに、私は再することはできませんアプリケーションで問題なく開いてください。これは、私がこのプログラムから特別に保存したファイルを再度開いたときに起こっていることです。 （注：メモ帳やワードパッドから.txtファイルを保存しても、問題なく開くことができます。アプリケーションから保存してアプリケーションで開くと発生します）。 これは私がファイルを再オープンしてください：

{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Kristen ITC;}} 
\viewkind4\uc1\pard\lang1033\f0\fs18 (my text that I saved shows here)\par 
} 

^これはリッチテキストボックスに配置されているため、わかりません。私はファイルを間違って保存していると仮定していますか？助けてくれてありがとう

Answer 1

どうやってファイルを保存しますか？

RichTextBox1.SaveFile(saveFile.FileName, RichTextBoxStreamType.RichText) 

このファイルの、RTF形式のファイル、名前、（と拡張子選びだし）を保存あなたはRichTextboxStreamType.RichTextオプションを使用しているので、フォーマットには影響を与えません。

SaveFileメソッドによって保存されたRTFテキストを理解できるRichTextBoxメソッドを使用する必要があります。

If openFIle.ShowDialog() = DialogResult.OK Then 
    RichTextBox1.LoadFile(openFIle.FileName) 
End If