Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> 窗体  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1702417
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

Access不编程生成菜单,自定义菜单如何调用自定义过程?

作者:cg1  摘自:access911.net  :cg1  更新日期:2003-7-20  浏览人次:

 

问题:

如何Access不编程生成菜单
如何生成快捷菜单
我自定义的菜单如何调用我自己编写的FUNCTION?

 

回答:

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 

请参考动画: http://access911.net/down/eg/swf/menu.swf

添加一个自定义工具栏,单击该工具栏上的按钮可以打开窗体1,具体操作步骤截图如下

鼠标右键单击帮助菜单的右侧空白处,选择“自定义”
图片如下:
按此在新窗口浏览图片

单击“新建”按钮
图片如下:
按此在新窗口浏览图片

填写工具栏名称
图片如下:
按此在新窗口浏览图片

新建的工具栏就会出现在边上
图片如下:
按此在新窗口浏览图片

转到“命令”选卡,“所有窗体”,然后把“窗体1”拖弋出来。
图片如下:
按此在新窗口浏览图片

放到自定义工具栏上
图片如下:
按此在新窗口浏览图片

关闭自定义窗体
图片如下:
按此在新窗口浏览图片

就可以单击工具栏来打开“窗体1”了
图片如下:
按此在新窗口浏览图片


 

本站文章旨在为该问题提供解决思路及关键性代码,并不能完成应该由网友自己完成的所有工作,请网友在仔细看文章并理解思路的基础上举一反三、灵活运用。

access911.net 原创文章,作者本人对文章保留一切权利。
如需转载必须征得作者同意并注明本站链接


 

 
相关文章
     没有手动相关文章
     如何获取所有菜单栏命令按钮的图片以及FaceID?
     系统菜单中所有菜单项的ID
     如何列出所有的系统菜单,中文菜单的对应英文名字是什么?
     新手来看:如何始终显示整个菜单?
     如何编程控制菜单:工具->启动项
     如何用程序弹出鼠标右键单击时出现的快捷菜单?
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利