zzz8662 发表于 2004-7-11 09:56:00

[求助]VBA中怎样打开CHM帮助文件

VBA中怎样打开CHM帮助文件？点“帮助”按钮，打开文件。

efan2000 发表于 2004-7-11 13:33:00

可以使用如Shell "hh.exe C:\Program Files\AutoCAD 2002\Help\acad.chm", vbNormalFocus的方式来打开帮助文件。

zzz8662 发表于 2004-7-11 16:14:00

我想在自己程序的目录下打开啊

lgf727 发表于 2004-7-11 17:32:00

用API来做,<BR>先申明:<BR>Public Const SW_SHOWNORMAL = 1<BR>Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _<BR>                                (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _<BR>                                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long<BR>然后调用:<BR>                                ShellExecute 0, "Open", 所在目录&amp; "\帮助文件.chm", "", "", SW_SHOWNORMAL

莫名 发表于 2004-7-11 22:40:00

在程序中调用<SPAN lang=EN-US>CHM帮助文件的方法。 <BR>方法一　使用F1键：<BR>这种方法最简单，只需如下代码即可：<BR>Private Sub Form_Load() <BR>App.HelpFile = app.path &amp; "\help.chm" '调用与主程序同目录下的help.chm帮助文件，按F1键调用<BR>End Sub<BR><BR>方法二 使用SendKeys方法：<BR>Private Sub Form_Load() <BR>App.HelpFile = app.path &amp; "\help.chm" <BR>End Sub <BR>private Sub CmdHelp_Click() <BR>SendKeys "{F1}" '发送击键到活动窗口 <BR>End Sub<BR><BR>方法三 使用Shell函数：<BR>private Sub CmdHelp_Click()<BR>Shell "hh.exe help.chm", vbNormalFocus 'help.chm为指定的帮助文件，可包含路径。<BR>End Sub<BR><BR>方法四 使用HtmlHelp函数：<BR>先声明如下API：<BR>Option Explicit<BR>Private Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long <BR>'hwndCaller指定调用者的窗口，pszFile指定要调用的文件，uCommand是发送给 HtmlHelp的命令，dwData是uCommand的参数。 <BR>然后在过程中调用：<BR>private Sub CmdHelp_Click()<BR>dim i as string<BR>i = app.path &amp; "\help.chm" '用变量i记录与主程序同目录下的help.chm帮助文件<BR>HtmlHelpA Form1.hWnd, i, 0, 0<BR>End Sub<BR><BR>方法五 使用ShellExecute函数：<BR>先声明如下API：<BR>Option Explicit<BR>'声明API函数用于异步打开一个文档<BR>Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long<BR>Private Const SW_SHOWNORMAL = 1<BR>然后在过程中调用：<BR>private Sub CmdHelp_Click()<BR>dim a as long<BR>Dim b As String<BR>b = App.Path &amp; "\help.chm" '用变量b记录与主程序同目录下的help.chm帮助文件<BR>a = ShellExecute (0, "open", b, "", "", SW_SHOWNORMAL)<BR>End Sub<BR>以上五种方法各有优缺点，从代码的简单上讲，建议使用第二种方法。从功能上讲，建议使用第五种方法，因其不只用于打开CHM帮助文件，还可用同样的格式打开、打印或查找一个文件或文档</SPAN>
页: [1]
查看完整版本: [求助]VBA中怎样打开CHM帮助文件