以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]怎样替换系统的用户管理窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34699) |
-- 作者:ifastudy -- 发布时间:2013/6/13 13:08:00 -- [求助]怎样替换系统的用户管理窗口 我在菜单的全局click事件中,添加以下代码,对吗?但没有效果,打开的还是系统的用户管理界面。 难道是我的用户管理窗口与系统用户管理窗口同名?
If e.Sender.Name.StartsWith("User") Then Forms("用户管理").Open() End If If e.Sender.Name.StartsWith("Logon") Then Forms("用户登录").Open() End If |
-- 作者:狐狸爸爸 -- 发布时间:2013/6/13 13:11:00 -- 用什么全局事件? 直接设置用户管理按钮的click事件: Forms("用户登录").Open()
你要用全局事件,就判断一下控件名称吧: If e.Sender.Name.StartsWith("Logon") Then Forms("用户登录").Open()
else
MessageBox.show("条件不明,名称是:" & e.sender.name)
End If
|
-- 作者:ifastudy -- 发布时间:2013/6/13 13:17:00 -- “用什么全局事件? 直接设置用户管理按钮的click事件: Forms("用户登录").Open()”您说的是不是用户界面下的设置啊? 但是我想替换掉开发者窗口下的用户管理。这个在哪里设置呢
[此贴子已经被作者于2013-6-13 13:18:54编辑过]
|
-- 作者:狐狸爸爸 -- 发布时间:2013/6/13 13:20:00 -- 自己修改菜单,将用户管理这个菜单按钮的代码改为: Forms("用户管理").Open()
将用户登录按钮的代码改为: Forms("用户登录").Open()
|
-- 作者:ifastudy -- 发布时间:2013/6/13 13:27:00 -- 这个我会设置,但这样只改了使用者的用户管理窗口。我想实现的是开发者一进入系统时的用户窗口,这样方便调试权限。 RibbonMenu设计器中的全是我自己开发出来的按钮。
|