打开帮助文件时的提示如何去除？

jynj

使用代码打开一个帮助文件时，有下面的提示，不知应如何隐藏？

jynj

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")