[浏览完整版]
标题：求助 菜单转换
1楼
卟离卟弃 发表于：2010/9/17 16:23:00
此主题相关图片如下：0.png
我要把 菜单功能区 上的功能转到 配置栏 上面，所有的都转换差不多了，只有自动计算这个功能不知道怎么样转换。
求高手帮忙转换一下。。谢谢
此主题相关图片如下：1.png
2楼
czy 发表于：2010/9/17 20:22:00RibbonTabs("Other")("Aggregate")("Aggregate").Enabled = True
RibbonTabs("Other")("Aggregate")("Count").Checked = True
RibbonTabs("Other")("Aggregate")("Sum").Checked = True
RibbonTabs("Other")("Aggregate")("Average").Checked = True
RibbonTabs("Other")("Aggregate")("Count").Checked = True
RibbonTabs("Other")("Aggregate")("Sum").Checked = True
RibbonTabs("Other")("Aggregate")("Average").Checked = True
3楼
卟离卟弃 发表于：2010/9/18 9:13:004楼
狐狸爸爸 发表于：2010/9/18 10:07:00打开系统菜单的模板，看看系统菜单的代码就知道那个自动计算的大按钮的代码应该是：
Vars("SysUpdateAggregate") = e.ToggleButton.Pressed
RaiseSystemEvent(CurrentTable,SystemEventTypeEnum.AfterSelRangeChange)
[此贴子已经被作者于2010-9-18 10:08:39编辑过]
5楼
czy 发表于：2010/9/18 12:30:00以下是引用卟离卟弃在2010-9-18 9:13:00的发言：
| 下载信息 [文件大小：58.2 KB 下载次数：6] | |
 点击浏览该文件:新建文件夹.zip |
C版，这是我的菜单，我不知道那个自动计算功能怎么样转，，麻烦你看看。
sorry！是我写错了，正确的应该是:
RibbonTabs("Other")("Aggregate")("Aggregate").Pressed = True
RibbonTabs("Other")("Aggregate")("Count").Checked = True
RibbonTabs("Other")("Aggregate")("Sum").Checked = True
RibbonTabs("Other")("Aggregate")("Average").Checked = True
[此贴子已经被作者于2010-9-18 12:30:04编辑过]
6楼
卟离卟弃 发表于：2010/9/18 15:43:00此主题相关图片如下：0.png
狐爸，C版 ,我想把自动计算功能移到 图片中的位置去.实在不知道怎么做的.
麻烦二位帮我做个例子.谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文件夹.zip |
7楼
狐狸爸爸 发表于：2010/9/18 17:22:00既然有关组件的位置和名称变了，那么自动计算的代码对应地修改一下即可“
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目83.rar |
[此贴子已经被作者于2010-9-18 17:29:40编辑过]
8楼
卟离卟弃 发表于：2010/9/18 18:00:00谢谢你狐爸!!!
还有个小问题请教, 关于快捷键设置. 明明都已经设置好了,测试使用的时候总是不灵光,,我那儿设置错了,,,请告诉我,我去改正.
此主题相关图片如下：0.png
9楼
狐狸爸爸 发表于：2010/9/18 18:08:00说不定有重复的呢
10楼
卟离卟弃 发表于：2010/9/18 18:15:00这个我认真检查过了的,,,,,,,,,不敢犯那种错误