| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 切换，有条件（按下去并黄色显示）与无条件（正常）状态怎么让自己制作的菜单按钮也这样 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72291) |
| -- 作者：JPG7 -- 发布时间：2015/7/27 17:03:00 -- 切换，有条件（按下去并黄色显示）与无条件（正常）状态怎么让自己制作的菜单按钮也这样 切换，有条件（按下去并黄色显示）与无条件（正常）状态怎么让自己制作的菜单按钮也这样 |
| -- 作者：jialihaha -- 发布时间：2015/7/27 17:04:00 -- 鼠标按下与松开事件写代码处理 |
| -- 作者：大红袍 -- 发布时间：2015/7/27 17:07:00 -- 1、切换按钮是状态按钮。
2、控制其 Pressed 属性 |
| -- 作者：JPG7 -- 发布时间：2015/7/27 17:21:00 -- 以做切换按钮为例，全局表事件afterfilter Dim qh As RibbonMenu.ToggleButton = RibbonTabs("库存管理").Groups("常用操作").Items("切换") For Each dt As Table In Tables If dt.Filter <> "" Then qh.Pressed = True End If Next 是这样么
|
| -- 作者：大红袍 -- 发布时间：2015/7/27 17:23:00 -- Dim qh As RibbonMenu.ToggleButton = RibbonTabs("库存管理").Groups("常用操作").Items("切换")
If e.Table.Filter <> "" Then
qh.Pressed = True
Else
qh.Pressed = False
End If
|
| -- 作者：JPG7 -- 发布时间：2015/7/27 17:30:00 -- 谢谢 |
| -- 作者：JPG7 -- 发布时间：2015/7/27 17:39:00 -- 对了 [此贴子已经被作者于2015/7/27 17:40:24编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/7/27 17:40:00 -- currentTablechanged事件也写判断代码 |