[原创]可动态添加的辅助录入快捷菜单

Trynew

游客，如果您要查看本帖隐藏内容请回复

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

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

baije

发表于 2006-8-31 07:01  

ttstory

谢谢版主分享精品

小何

fan0217

什么都敢想

wangling

let me try

wang_jeffson

[:34] [:50]

wang_jeffson

[:22] [:22] ,,真不赖

wang_jeffson

[:26] [:27] [:22] ,,赚积分