我正在尝试在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