调用帮助文件时如何不显示系统提示

jlsxux

调用帮助文件时如何不显示系统提示

我用窗体的一个命令按钮单击调用chm帮助文件，命令按钮的单击事件是这样写的：

Application.FollowHyperlink CurrentProject.Path & "\" & "帮助文件名"

问题是，调用时系统会出现“某些文件可能会携带病毒...是否打开此文件”的提示，我不想显示这条提示，有什么办法吗？请朋友们帮助解决一下，多谢。

wanshan

这个问题也曾经困扰我好久，不过现在已经解决了！有三种方法：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 = &HFDeclare 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")