文件未显示在OpenFileDialog中

时间:2015-09-24 16:41:37

标签: vb.net file

我正在尝试在VB 2012中执行类似文本编辑器的操作,因此我有一个带有“OpenFile”选项的MenuStrip。当它被点击时,它会触发一个OpenFileDialog控件并向我显示具有我想要的扩展名的文件。问题是,如果我用菜单条中的另一个选项关闭文件,当我想打开同一个文件时,我第一次使用相同的OpenFile选项打开,OpenFileDialog没有显示该文件。

你知道为什么吗?

以下是我打开文件的方式:

Private Sub OpenFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenFileToolStripMenuItem.Click
    'Open File
    If OpenFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
        If Not (OpenFile.FileName = "") And OpenFile.CheckFileExists Then
            NewFile = New StreamReader(OpenFile.FileName)
            If NewFile IsNot Nothing Then
                Me.TextBox_Main.Text = NewFile.ReadToEnd
                Me.TabPage1.Text = OpenFile.FileName.Substring(OpenFile.FileName.LastIndexOf("\") + 1)
            End If
        End If
    End If
End Sub

以下是关闭文件的方法:

Private Sub CloseFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseFileToolStripMenuItem.Click
    'Close Files
    If NewFile IsNot Nothing Then
        NewFile.Close()
        NewFile = Nothing
    End If
    Me.TextBox_Main.Text = ""
    Me.TabPage1.Text = "New Tab"
End Sub

0 个答案:

没有答案