打开富文件文本框(VB.NET)

Question

我正在编写一个文档编写器，并且我包含了选项卡的特性，而且我在使用RichTextboxes的多个选项卡打开文件时遇到了困难(我不确定这是否会影响任何事情)

以下是代码：

 Public Sub openFile()
    Dim ofd As New OpenFileDialog
    ofd.Filter = fileFilter
    ofd.FileName = ""
    Select Case ofd.ShowDialog()
        Case DialogResult.OK
        loadFile(Path.GetFileName(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

试图捕捉到问题，并说它找不到文件。但是它正在搜索.exe目录中的文件

有人知道怎么解决这个问题吗？

Answer 1

之所以发生这种情况，是因为您只将文件名(而不是完整路径)传递给您的loadFile()方法。

method只返回路径的文件名和扩展名部分。例如，如果您要调用：

Path.GetFileName("C:\Users\John\Hello World.txt")

该方法将返回：

Hello World.txt

因此，将该调用从代码中删除，您应该可以这样做：

Case DialogResult.OK
    loadFile(ofd.FileName)