登陆成功后如何彻底关闭登陆窗口?
一个登陆窗口form1
登陆成功后,form2.show
form2出来后想把form1彻底关闭,不要用hide.能做到吗?
[解决办法]
不能这么做登陆窗口,要创建一个启动模块来触发,名字为main, main模块代码:
Module main
Sub main()
Form1.ShowDialog()
If Form1.blnLoginSucc = True Then
Application.Run(Form2)
End If
End Sub
End Module
把启动项目设为main
[解决办法]
你form2.show是form1中进行调用的吧。改成：
1.添加1个模块;
2.在模块中定义一个过程Main,如下：
Public Sub Main()
End sub
2.在Main中启动登录窗口form1 ，并根据返回值来判读是否启动form2,参考如下：
Dim objForm As Form
gblnLogin = False ' 全局变量，记录是否登录成功
objForm = New Form1 ' 登录窗口
Application.Run(objForm)
objForm.Dispose()
If gblnLogin = False Then
Application.Exit()
Else
objForm = New Form2
Application.Run(objForm)
objForm.Dispose()
Application.Exit()
End If
3.工程属性中的“通用属性”中修改启动对象为sub main
