设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2859|回复: 10
打印 上一主题 下一主题

[与其它组件] Access不编程生成菜单,自定义菜单如何调用自定义过程

[复制链接]
跳转到指定楼层
1#
发表于 2006-7-5 23:41:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Access不编程生成菜单,自定义菜单如何调用自定义过程

1.工具 -> 自定义 -> 工具栏 -> 新建 -> 将生成的工具栏"自定义1"选中 -> 属性 -> 将类型改为"菜单栏",其"工具栏名称"也可以改为其它名子,点击"关闭"

2.选择 "自定义" 框中的 命令->文件->自定义,将其拖至"自定义1"菜单栏(可反复拖取)->选取"自定义1"菜单栏中的某个菜单,单击右键,选"属性",可以更改菜单名"标题","所在操作"中填宏或function函数(其格式为“=FunctionName()”,注意,“=FunctionName()” 的两个括号不能少)。然后关闭对话框。

3.将所有的菜单都设置完后,再次选取"自定义"对话框中的"自定义1"菜单栏->选"属性"->将其"类型"改为"弹出式"。确定。

4.选取"自定义"->"工具栏"->"快捷菜单",勾取。可在出现的[快捷菜单]栏中看到"自定义"项,我们定义的快捷菜单就在内。可选取,单击右键,选"属性",更改其相应的属性。

5.在需要的地方,如下写码:
CommandBars("自定义1").Controls(2).Enabled =True
'定义其某个菜单是否可用。需要时再加。
CommandBars("自定义1").ShowPopup
'弹出快捷菜单  


如果"工具栏名称"为"右键菜单",则可写为:
CommandBars("右键菜单").Controls(2).Enabled =True
CommandBars("右键菜单").ShowPopup
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-7-6 00:55:00 | 只看该作者
cqw今天刚来,就发了不少好东东,谢谢!
3#
发表于 2006-7-6 02:23:00 | 只看该作者
不错支持
4#
发表于 2006-7-6 06:11:00 | 只看该作者
最好能提供个样板,哪就更好了
5#
发表于 2006-7-6 06:20:00 | 只看该作者
[em02]侠客发标
6#
发表于 2006-8-5 14:06:00 | 只看该作者
Thank you  very much!
7#
发表于 2006-8-10 18:10:00 | 只看该作者
收下看
8#
发表于 2006-8-10 21:21:00 | 只看该作者
这种菜单的图标,有没有好的编辑方法? (Acess的菜单图标,个人感觉不好编辑)
9#
发表于 2007-1-9 03:57:00 | 只看该作者
谢谢分享!
10#
发表于 2008-4-14 20:36:24 | 只看该作者
关注...........................
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-29 12:52 , Processed in 0.117923 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表