Office中国论坛/Access中国论坛

标题: [原创]可动态添加的辅助录入快捷菜单 [打印本页]

作者: Trynew 时间: 2006-8-31 07:01
标题: [原创]可动态添加的辅助录入快捷菜单

选定文本后，单击鼠标右键，在快捷菜单中选＂添加为新辅助录入选项＂可动态添加快捷菜单．快捷菜单中前５项为固定项目，可手动自定义．快捷菜单可自己定义或从本数据库中导入．菜单的执行程序在公共模块＂全局代码中＂．需引用Microsoft Office库．

ublic Function AddNewItem() As Boolean
Dim ctl As CommandBarButton, Str As String
Str = Left(Screen.ActiveControl.SelText, 255)
If Not Len(Str) > 0 Then Exit Function
If CommandBars("FastSelect").Controls.Count > 20 Then CommandBars("FastSelect").Controls(10).Delete
Set ctl = CommandBars("FastSelect").Controls.Add(msoControlButton)
ctl.Caption = IIf(Len(Str) > 20, Left(Str, 20) & "...", Str)
ctl. & Str & "')"
End Function

ublic Function GetFastSelect(Str As String) As Boolean
On Error Resume Next
Dim intSelStart As Integer
intSelStart = Screen.ActiveControl.SelStart
Screen.ActiveControl.SelText = Str
Screen.ActiveControl.SelStart = intSelStart + Len(Str)
End Function

作者: hunrybecky 时间: 2008-1-30 18:46
？？？

可动态添加的辅助录入快捷菜单

作者: baije 时间: 2008-2-2 11:16
发表于 2006-8-31 07:01

作者: ttstory 时间: 2008-2-2 19:14
谢谢版主分享精品

作者: 小何 时间: 2008-2-12 20:30

作者: fan0217 时间: 2008-2-14 17:28
什么都敢想

作者: wangling 时间: 2008-3-29 23:53
标题: thanks
let me try

作者: wang_jeffson 时间: 2008-3-30 02:50
[:34] [:50]

作者: wang_jeffson 时间: 2008-3-30 02:50
[:22] [:22] ,,真不赖

作者: wang_jeffson 时间: 2008-3-30 02:51
[:26] [:27] [:22] ,,赚积分

作者: wang_jeffson 时间: 2008-3-30 02:51
[:22] [:23]

作者: wang_jeffson 时间: 2008-3-30 02:52
学习先拉

作者: wang_jeffson 时间: 2008-3-30 02:52
真的感谢先[:22]

作者: wang_jeffson 时间: 2008-3-30 02:55
[:31] [:50]

作者: royi 时间: 2008-3-31 19:35
看看，学习！

作者: kmia 时间: 2008-4-4 14:20
精品[:31] [:31]

作者: dany_guo 时间: 2008-5-14 18:35
多好啊，我看看

作者: huangyicai 时间: 2008-5-20 17:08
标题: 回复 1# 的帖子
ths,i see you THS!

作者: sysyj1030 时间: 2008-6-4 14:28
[:50] [:50]

作者: 67613188 时间: 2008-6-6 12:44
标题: 看看
？？？可动态添加的辅助录入快捷菜单

作者: tjgtw888 时间: 2008-6-6 13:14
[:50]

作者: hjackie 时间: 2008-6-20 13:05
看看，谢了

作者: billyfine 时间: 2008-6-23 07:45
学习中

作者: fxtest 时间: 2008-6-28 10:10
[:50] [:50]

作者: zczc123 时间: 2008-7-13 12:16
看下子

作者: sunwrsun 时间: 2008-7-20 11:28
一定要看

作者: linag516 时间: 2008-7-23 09:50
[:50] [:50]

作者: fang123 时间: 2008-7-25 08:14
谢谢楼主,精品!

作者: YWM161616 时间: 2008-8-3 11:20
看看...............................。

作者: liaoliao 时间: 2008-8-4 10:06
怎么用??

作者: inputlgh 时间: 2008-8-20 15:42
标题: 111111111
1111111111

作者: 13555609005 时间: 2008-9-8 16:14
学习吓

作者: yori2007 时间: 2009-3-15 13:54

作者: 08a91lk 时间: 2009-5-29 13:19
提示: 作者被禁止或删除内容自动屏蔽

作者: bihorse 时间: 2009-6-28 13:36
谢谢分享

作者: leijiqiang 时间: 2009-8-10 15:38
真是好东西

作者: njy6000 时间: 2009-9-8 10:37
本数据库在哪里?

作者: popo559 时间: 2009-9-11 19:41
看看

作者: chaojianan 时间: 2009-10-18 21:51
谢谢分享。

作者: yanwei82123300 时间: 2009-11-19 15:48
谢谢版主分享精品

作者: klggd555 时间: 2009-11-20 16:21
真不赖

作者: 鱼儿游游 时间: 2009-12-2 14:21

作者: c101 时间: 2009-12-2 14:41
谢谢分享

作者: mts 时间: 2009-12-2 17:36
挺好的

作者: luhao 时间: 2010-1-11 19:49
see

作者: iamee 时间: 2010-2-7 00:09
什么好东东,看看

作者: boverx 时间: 2010-2-7 10:51
看看

作者: BILLFEI 时间: 2010-3-11 12:58
非常好用!謝謝分享!

作者: 石橡 时间: 2010-3-15 14:34
LOOK

作者: ZHENGLIAN 时间: 2010-8-19 09:25
击鼠标右键，在快捷菜单中选＂添加为新辅助录入选项＂可动态添加快捷菜单．快捷菜单中前５项为固定项目，可手动自

作者: ZHENGLIAN 时间: 2010-8-19 09:27
如何删除选项,,,又如何更新选项

作者: ybsnryga 时间: 2010-10-26 23:43
学习学习

作者: bbsliu 时间: 2010-10-28 14:42
没有比这个更好的了。

作者: wuyu1623 时间: 2011-11-13 06:02
真不赖

作者: TWH852002 时间: 2011-12-15 22:05
版主的旧作也会不错的

作者: longtengcz 时间: 2011-12-17 17:26
学习学习~~~·

作者: huangli0356 时间: 2012-11-10 09:48
学习下.

作者: cjssxo 时间: 2012-11-15 20:19
需要资料

作者: zhaotao 时间: 2013-8-20 11:23
谢谢版主分享

作者: coolleaf 时间: 2014-2-25 22:53
看一下，谢谢了

作者: leonshi 时间: 2014-4-16 14:11
看看

作者: yjlchen 时间: 2014-4-16 18:37
谢谢分享

作者: zpy2 时间: 2014-7-2 07:05
学习—下！！！

作者: tpe01 时间: 2015-2-18 03:17
look

作者: heqing3000 时间: 2015-6-29 19:31

作者: p51219 时间: 2016-7-10 10:03
谢谢分享！

作者: niculas 时间: 2016-9-8 01:28
学习学习

作者: hjbboy 时间: 2016-11-9 20:41
谢谢分享

作者: lms008008 时间: 2016-11-10 16:17
学习了

作者: yyalm 时间: 2016-11-11 14:15
学习了

作者: yangmao130 时间: 2016-12-11 14:40
www.office-cn.net

作者: wh133@163.com 时间: 2017-12-31 20:43
数据是存在哪里的，这是？

作者: lxtx 时间: 2018-3-20 11:05
好，学习了

作者: zhao123 时间: 2024-3-16 13:45
下载

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)