VB 2010 openfiledialog 文件格式无效

Question

我已经在文本编辑器上工作了一段时间，接近完成终于决定开始研究这个问题，这个问题困扰了我很长一段时间......

我有一个 openfiledialog 总是给我“文件格式无效”的错误

Private Sub OpenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenToolStripMenuItem.Click
    Dim openWork As New OpenFileDialog
    openWork.Filter = "Text Documents (*.swtf)|*.swtf|Text Documents (*.rtf)|*.rtf|All Files (*.*)|*.*"
    If openWork.ShowDialog = Windows.Forms.DialogResult.OK Then
        RichTextBox1.LoadFile(openWork.FileName, RichTextBoxStreamType.RichText)
        Title.Text = System.IO.Path.GetFileNameWithoutExtension(openWork.FileName)
    End If
End Sub

错误 RichTextBox1.LoadFile(openWork.FileName, RichTextBoxStreamType.RichText) 没有解决方案，但总是给我“文件格式无效”错误 - 包括我的自定义文件扩展名和 .rtf“富文本文件”扩展名.

谢谢！

Answer 1

如果您打开的文件是真正的富文本文件，它就可以工作。如果您尝试加载不是 .rtf 的文件，则会抛出 file format not valid 错误，因为您在 LoadFile 方法中使用了RichTextBoxStreamType.RichText。

你可以试试这样的……我在 VB2010 中测试过，它可以工作：

    Dim openWork As New OpenFileDialog
    openWork.Filter = "Text Documents (*.swtf)|*.swtf|Text Documents (*.rtf)|*.rtf|All Files (*.*)|*.*"
    If openWork.ShowDialog = Windows.Forms.DialogResult.OK Then
        'if the file is an .rtf, use the rich text format, if not, use plain text
        RichTextBox1.LoadFile(openWork.FileName, IIf(System.IO.Path.GetExtension(openWork.FileName) = ".rtf", RichTextBoxStreamType.RichText, RichTextBoxStreamType.PlainText))
        Title.Text = System.IO.Path.GetFileNameWithoutExtension(openWork.FileName)
    End If