会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > 宏/菜单/数据页 > 正文

如何取消工具栏中"键入帮助"的文本框

时间:2006-10-06 02:15 来源:本站原创 作者:tmtony 阅读:

一. 我常用的一个最简单的办法,我常用它: 在工具栏上按右键 ,显示自定义工具栏的对话框,然后在键入帮助这个方框的地方按右键,会有 "显示提问框" 的检查框, 取消之就可以了.

二.使用函数
Function SetTypeAQuestionForHelpBox()
'本函数调用 WSH 来修改注册表达到去掉 OFFICE 组件右上角提问框的目的
    '请先到 菜单 -> 工具 -> 引用 中去引用如下类库:
    'Windows Script Host Object Model
    On Error Resume Next   
    Dim a As New WshShell
    '如果采用后引用方式,也可以写如下代码:
    'Set a = CreateObject("Wscript.Shell")
   
    '显示提问框,键入需要帮助的问题 这个框的设置选项是在注册表中的一下键位
    'HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\ToolBars\Settings\Microsoft Office access AWDropdownHidden
    '先显示键的值。注意:如果你从来没有手动设置过“显示提问框”这个选项就没有以下键值。
    '因此以下这行会出错。前面已经使用过 On Error Resume Next 可以忽略该错误。
    Debug.Print a.RegRead("HKCU\Software\Microsoft\Office\11.0\Common\ToolBars\Settings\Microsoft Office access AWDropdownHidden")
    '再修改它(或者建立该键,并赋值)
    a.RegWrite "HKCU\Software\Microsoft\Office\11.0\Common\ToolBars\Settings\Microsoft Office access AWDropdownHidden", 1, "REG_DWORD"
End Function

 

(责任编辑:admin)

顶一下
(0)
0%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: