我在 vb.net 中有五种形式。
1. Welcome Form
2. Home Form
3. LogIn Form
4. Work1 Form
5. Work2 Form
还有一个枚举:
Public Enum OpenForm
F_WORK1=1
F_WORK2=2
End Enum
我在模块中声明了它的所有对象:
Public frmHome As Home
Public frmLogin As LogIn
Public frmWork1 As Work1
Public frmWork2 As Work2
然后,当欢迎表单加载时:
Me.Hide()
frmHome = New Home
frmHome.show()
在 Home Form 中,有两个按钮。还有 Home Form,我没有关闭它。我一直打开它,直到应用程序关闭。
第一个按钮,用于打开 Work1 表单。当用户点击它时,它将打开登录表单,用户必须输入用户名和密码:
frmLogin = 新登录(OpenForm.F_WORK1)
frmLogin.showDialog()
第二个按钮,用于打开 Work2 表单。当用户点击它时,它将打开登录表单,用户必须输入用户名和密码:
frmLogin = 新登录(OpenForm.F_WORK2)
frmLogin.showDialog()
在登录表单中,有一个名为 btnLogin 的按钮。这是登录表单代码:
Private frm As OpenForm
Public Sub New(f as OpenForm)
InitailizeComponent()
frm = f
End Sub
当用户单击 btnLogin 时:
If frm=OpenForm.F_WORK1 Then
frmWork1 = New Work1()
frmWork1.showDialog(frmHome)
frmLogin.Close()
ElseIf frm=OpenForm.F_WORK2 Then
frmWork2 = New Work2()
frmWork2.showDialog(frmHome)
frmLogin.Close()
End If
然后 Work1 或 Wor2 表单打开。但是登录表单没有关闭。
问题:
- 我想在用户单击 btnLogin 后关闭登录表单并打开 Work1 或 Work2 表单。
- 当用户最小化 Work1 或 Work2 表单时,我希望 Home Form 也最小化。当用户鼠标移动任务栏时,我希望它预览我打开的表单。
- 每个表单(Home Form、Work1 Form 和 Work2 Form)都包含很多控件,这些控件使我的用户界面非常缓慢且不流畅。所以我希望它先加载它的包含,然后再看到表单。
感谢您的帮助。