以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]basemainform.visible = False 隐藏窗体和显示窗体  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143244)

--  作者:2900819580
--  发布时间:2019/11/18 16:02:00
--  [求助]basemainform.visible = False 隐藏窗体和显示窗体

QQServer.ServerIp = e.Form.Controls("txtIP").Value \'指定IP地址
QQServer.ServerPort = e.Form.Controls("txtPort").Value \'指定端口
QQServer.HeartbeatInterval = e.Form.Controls("txtInterval").Value \'指定心跳时间
QQServer.HeartbeatTimeout = e.Form.Controls("txtTimeOut").Value \'指定心跳超时时间
QQServer.Start() \'启动QQServer
MessageBox.Show("启动成功")
basemainform.visible = False
Forms("关闭窗体").Open

 实际上关闭窗体显示之后,QQServer窗体不隐藏

 

CaseStudy文件夹中QQServer 想在启动Server时就隐藏窗体,隐藏后显示一个输入密码的窗体,如果输入正确密码后,再显示QQServer窗体 

[此贴子已经被作者于2019/11/18 16:02:13编辑过]

--  作者:有点蓝
--  发布时间:2019/11/18 16:14:00
--  
"关闭窗体"设置为模式窗口

Forms("关闭窗体").Open
QQServer.ServerIp = e.Form.Controls("txtIP").Value \'指定IP地址
QQServer.ServerPort = e.Form.Controls("txtPort").Value \'指定端口
QQServer.HeartbeatInterval = e.Form.Controls("txtInterval").Value \'指定心跳时间
QQServer.HeartbeatTimeout = e.Form.Controls("txtTimeOut").Value \'指定心跳超时时间
QQServer.Start() \'启动QQServer
MessageBox.Show("启动成功")