以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何在进入系统后,自动执行某项菜单?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33419)

--  作者:包头123
--  发布时间:2013/5/17 17:02:00
--  如何在进入系统后,自动执行某项菜单?
01.版主:
    如何在进入系统后,自动执行某项菜单?

--  作者:Bin
--  发布时间:2013/5/17 17:04:00
--  
自动执行某项菜单?  要执行什么功能参考系统命令 http://www.foxtable.com/help/topics/1080.htm
--  作者:包头123
--  发布时间:2013/5/19 10:22:00
--  

版主:我的想法是,进入菜单后,我的菜单中,假如有:任务管理,通讯录,词典,健康知识,日历等几项功能,我希望在进入菜单后,自动执行任务管理功能,而不是通过手工点击来执行任务管理内容,如何做?


--  作者:XYT
--  发布时间:2013/5/20 8:53:00
--  

在AfterOpenProject 调用打开你要的功能


--  作者:包头123
--  发布时间:2013/5/20 9:26:00
--  
我的想法是,自动执行,我自己设计的某个菜单项,即某个功能。
--  作者:Bin
--  发布时间:2013/5/20 9:30:00
--  
你在AfterOpenProject中执行同样的代码 或者系统命令即可.
--  作者:XYT
--  发布时间:2013/5/20 9:30:00
--  
知道,就像新增表一样,你在AfterOpenProject 写了新增表的代码不就可以了吗
--  作者:包头123
--  发布时间:2013/5/20 10:16:00
--  
好,谢谢了。
--  作者:秋叶蓝
--  发布时间:2013/5/20 12:06:00
--  
楼主的本意是不是指进入项目后模拟点击某个菜单呢?
  • PerformClick
    模拟单击该按钮。

示例

Dim btn As RibbonMenu.Button
btn = RibbonTabs(
"Common").Groups("Data").Items("DeleteRow")
btn.PerformClick()

如果你用的是系统菜单,执行上面的代码会删除选定行,因为这段代码模拟单击删除行按钮。


--  作者:blackzhu
--  发布时间:2013/5/20 12:57:00
--  
动态根据用户生成菜单 我发的例子 没有人看?伤心呀!