一个登陆窗体的问题！！！！！！！！！！！！！！！！

[mingyuebin]

一个登陆窗体，一个主窗体，当用户名和密码匹配时，显示主窗体，并close登陆窗体，但出现这样的问题当我close登陆窗体时，整个应用程序就退出，请大家帮我想想办法。我想要的是彻底地把登陆窗体关掉，而不是仅仅隐藏.

[ms44]

dispose

[benlee]

application.run(frmnext)
转过去就行了
不过你的frmnext必须定义在全局里，而不是登陆里

[mingyuebin]

楼上各位，能不能给出代码？

[Anhowe]

我觉得程序启动是启动的是主窗体，后再在菜单中调出Login窗体，如果正确，则所有菜单可用，否则就不可用，这用对注销程序的及切换用户会更好做

[bue]

这个问题我也遇到过，我用的f3.ShowDialog
Me.Dispose

[mingyuebin]

to bue(e人)

这样并不能彻底地关闭登陆窗体，要f3关闭后登陆窗体才会关闭

[yuxi007]

我是这样做的：以Public定义两个变量，第一个是登陆窗体，第二个是主窗体，这两个变量必须定义在 Sub Main（）之前，在Sub Main()中加入以下代码：

登陆窗体变量=new 登陆窗体 '初始化登陆窗体变量
application.run(登陆窗体变量)

再在“用户名和密码匹配时”执行：
主窗体变量＝new 主窗体
主窗体变量.show

之后再卸载登陆窗体就行了

[lirh]

up

[mingyuebin]

to yuxi007()

但是这样会把主窗体也一起卸载掉的

[xiyun]

mainform.visible=false
loginform.showdialog

在loginform里面
mainform.visible=ture
loginform.dispose()

[mingyuebin]

我是这样做的

在主窗体的Load的事件中
dim frm_login as new Login()
frm_login.showdialog()
在Login窗体中

if '输入的username & pwd正确' then
success=true
me.close
endif

[menuvb]

unload 窗体

[斗斗来三]

GZ