Foxtable(狐表)用户栏目专家坐堂 → 系统解锁后返回到锁定时工作窗口


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

主题:系统解锁后返回到锁定时工作窗口

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


加好友 发短信
等级:幼狐 帖子:63 积分:473 威望:0 精华:0 注册:2015/4/28 11:49:00
系统解锁后返回到锁定时工作窗口  发帖心情 Post By:2015/4/29 11:16:00 [显示全部帖子]

请教各位版主:系统设了锁定和解锁功能 解锁成功后如何回到系统锁定时的工作窗口

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


加好友 发短信
等级:幼狐 帖子:63 积分:473 威望:0 精华:0 注册:2015/4/28 11:49:00
  发帖心情 Post By:2015/4/29 11:23:00 [显示全部帖子]

菜单设计 配置栏里设置  代码:

Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
   frm.close

End If
Forms("用户系统设置").Show

 

用户系统设置窗口beforeclose代码:

Dim pwd As String = e.Form.Controls("TextBox1").Text
If pwd <> "123456" Then
    msgbox("密码不正确,请输入正确的密码1234**")
    e.cancel = True
    End If


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


加好友 发短信
等级:幼狐 帖子:63 积分:473 威望:0 精华:0 注册:2015/4/28 11:49:00
  发帖心情 Post By:2015/4/29 11:39:00 [显示全部帖子]

我是在afterclose里加了一个代码 forms("x").open()

如何把x指向当前工作窗口


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


加好友 发短信
等级:幼狐 帖子:63 积分:473 威望:0 精华:0 注册:2015/4/28 11:49:00
  发帖心情 Post By:2015/4/29 11:47:00 [显示全部帖子]

全局变量不懂

变量名称  变量类型 初始值怎么选


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


加好友 发短信
等级:幼狐 帖子:63 积分:473 威望:0 精华:0 注册:2015/4/28 11:49:00
  发帖心情 Post By:2015/4/29 11:49:00 [显示全部帖子]

看不懂 我不是专业人士

 


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


加好友 发短信
等级:幼狐 帖子:63 积分:473 威望:0 精华:0 注册:2015/4/28 11:49:00
  发帖心情 Post By:2015/4/29 12:16:00 [显示全部帖子]

没有人帮忙? 举个例子

 


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


加好友 发短信
等级:幼狐 帖子:63 积分:473 威望:0 精华:0 注册:2015/4/28 11:49:00
  发帖心情 Post By:2015/4/29 12:28:00 [显示全部帖子]

public frm as 

 

窗体用什么变量类型  是这样的吗

 


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


加好友 发短信
等级:幼狐 帖子:63 积分:473 威望:0 精华:0 注册:2015/4/28 11:49:00
  发帖心情 Post By:2015/4/29 12:40:00 [显示全部帖子]

谢谢狐狸爸爸的帮助 这方法简单 明了 一看就懂 对我们菜鸟们来说就是要这样的解决方法 谢谢

 

 


 回到顶部