| 网站首页 | 新闻 | 新书 | 专家 | 技巧 | 源码作品 | 工具/资源 | 商城 | 风采 | 留言 | 论坛 | 网址 | 承接 | 
您现在的位置: Access/Office中国 >> 技巧 >> Access >> 宏菜单工具栏数据页 >> 文章正文 用户登录 新用户注册
如何取消工具栏中"键入帮助"的文本框         ★★★
如何取消工具栏中"键入帮助"的文本框
作者:tmtony 文章来源:本站原创 点击数: 本日:{$DayHits} 更新时间:2006-10-6 2:15:47

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

二.使用函数
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

 

文章录入:tmtony    责任编辑:tmtony 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    专 题 栏 目
    最 新 热 门
    最 新 推 荐
    相 关 文 章
    自定菜单利用宏打开窗体
    菜单和工具栏控制(适用于
    用VBA代码处理菜单和工具
    用VBA代码处理菜单和工具
    用VBA代码处理菜单和工具
    用VBA代码处理菜单和工具
    用VBA代码处理菜单和工具
    菜单和工具栏控制(适用于
    网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)