Foxtable(狐表)用户栏目专家坐堂 → [求助]basemainform.visible = False 隐藏窗体和显示窗体


  共有2061人关注过本帖树形打印复制链接

主题:[求助]basemainform.visible = False 隐藏窗体和显示窗体

帅哥哟,离线,有人找我吗?
2900819580
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1309 积分:9507 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助]basemainform.visible = False 隐藏窗体和显示窗体  发帖心情 Post By:2019/11/18 16:02:00 [只看该作者]

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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106207 积分:540158 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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("启动成功")


 回到顶部