我有一个名为 MainForm 的 MDIParent 表单。它有一个名为 SelectDB 的子窗体。在 SelectDB 表单中,我有一个按钮,单击该按钮会打开 FileDialog 以浏览并选择一个 .MDB 文件。文件的路径显示在文本框中。获得 .MDB 文件后,子窗体关闭并且 MainForm 可见。在 MainForm 我有一个标签,它应该显示我在文本框中得到的路径。此外,当子表单打开时。菜单条也应该被禁用,或者你可以说 MDI 表单中的所有控件都应该被禁用。
我的 MainForm.vb (MDIParent) 代码是这样的:
导入 System.Windows.Forms
Public Class MainForm
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sDB.MdiParent = Me
sDB.Show()
End Sub
Public Sub Formload()
msMenu.Enabled = True
lblPath.Text = OG.GetValue("DBPath")
Me.Refresh()
End Sub
End Class
我的 SelectDB.vb(子表单)代码是这样的:
Public Class SelectDB
Private Sub btnBrowse_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
Dim dlg As New OpenFileDialog
dlg.DefaultExt = ".txt"
dlg.Filter = "MDB Files (*.mdb)|*.mdb"
Dim result As Nullable(Of Boolean) = dlg.ShowDialog()
If result = True Then
Dim filename As String = dlg.FileName
txtPath.Text = filename
End If
OG.SetValue("DBPath", txtPath.Text)
main.Formload()
Me.Hide()
End Sub
Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
Application.Exit()
End Sub
Private Sub SelectDB_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Application.Exit()
End Sub
End Class
请帮我解决一下这个。