Office中国论坛/Access中国论坛

标题: 调用帮助文件时如何不显示系统提示 [打印本页]

作者: jlsxux 时间: 2005-2-28 16:54
标题: 调用帮助文件时如何不显示系统提示
调用帮助文件时如何不显示系统提示

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

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

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

作者: wanshan 时间: 2005-2-28 18:58
这个问题也曾经困扰我好久，不过现在已经解决了！有三种方法：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")

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