RTFが正しく

Question

私はリッチテキストボックス

私はそれがリッチテキストボックスにこれを置くファイルを開くたびに.RTFをオープンしようとしているが、リッチテキストボックスに開きませんRTF]

これが開くように私のコードです：

Public Sub openFile() 
    Dim ofd As New OpenFileDialog 
    ofd.Filter = fileFilter 
    ofd.FileName = "" 
    Select Case ofd.ShowDialog() 
     Case DialogResult.OK 
      loadFile(ofd.FileName) 
    End Select 
End Sub 
Public Sub loadFile(ByVal file As String) 
    Try 
     fileName = file 
     setText(IO.File.ReadAllText(file)) 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub 
Public Sub setText(ByVal value As String) 
    Dim t As RichTextBox = tabH.SelectedTab.Controls.OfType(Of RichTextBox)().First() 
    t.Text = value 
End Sub 

アプリは、それが最初のタブを追加するためのコードを使用して実行したとき、私はタブコントロールを持っているし、何のメインテキストボックスがありません。コード：

Public Sub newFile() 
    Dim t As New TabPage 
    Dim p As New RichTextBox 
    t.Text = "Untitled" 
    p.Parent = t 
    p.Dock = DockStyle.Fill 
    tabH.TabPages.Add(t) 
    t.Visible = True 
    AddHandler p.KeyDown, Sub(sn As Object, e As KeyEventArgs) makeChanged() 
End Sub 

Answer 1

t.Rtf = valueを使用する必要があります。

.Textプロパティを設定すると、そのままデータが入力されますが、Rtf propertyを設定すると、RTFとしてデータが解析されます。

また、RichTextBox.LoadFile Methodの使用を検討することもできます。