Office中国论坛/Access中国论坛

标题: 打开帮助文件时的提示如何去除？ [打印本页]

作者: jynj 时间: 2008-5-3 22:08
标题: 打开帮助文件时的提示如何去除？
使用代码打开一个帮助文件时，有下面的提示，不知应如何隐藏？

作者: jynj 时间: 2008-5-3 23:13
wanshan

等级：Office黑侠
文章：694
积分：981
门派：无门无派
注册：2004年4月10日第 2 楼 QQ

--------------------------------------------------------------------------------
这个问题也曾经困扰我好久，不过现在已经解决了！有三种方法：

1.

SendKeys "{LEFT}" '模拟按下←
SendKeys "{ENTER}" '模拟按下回车键

这样就相当于按下确定键了！

2.

                  Dim aaa As String
                  aaa = """hh.exe"" " & CurrentProject.Path & "\帮助文件名.chm"
                  Call Shell(aaa, 1)
3.先建一个模块：

Const HH_DISPLAY_TOPIC = &H0
Const HH_HELP_CONTEXT = &HF

Declare Function HtmlHelp Lib "HHCtrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, _
ByVal pszFile As String, _
ByVal uCommand As Long, _
dwData As Any) As Long

然后在单击事件中写：

Call HtmlHelp(0, CurrentProject.Path & "\帮助文件名.chm", &H0, ByVal "帮助文件名htm")

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