VB编程调用.CHM帮助文件五法-编程开发-知优网

本文将讨论几种在VB编程中，如何在程序中调用CHM帮助文件的方法。包括使用F1键、使用SendKeys方法、使用Shell函数等等。

(一)运用F1键
这种办法最简略，只需如下代码即可：

Private Sub Form_Load()

App.HelpFile = app.path & "\help.chm" '调用与主程序同目录下的help.chm帮助文件，按F1键调用

End Sub

(二)运用SendKeys办法

Private Sub Form_Load()

App.HelpFile = app.path & "\help.chm"
End Sub
private Sub CmdHelp_Click()
SendKeys "{F1}" '发送击键到活动窗口
End Sub

(三)运用Shell函数

private Sub CmdHelp_Click()

Shell "hh.exe help.chm", vbNormalFocus 'help.chm为指定的帮助文件，可包括途径。

End Sub

(四)运用HtmlHelp函数，先声明如下API：

Option Explicit

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

其间，hwndCaller指定调用者的窗口，pszFile指定要调用的文件，uCommand是发送给HtmlHelp的指令，dwData是uCommand的参数。

然后在过程中调用：

private Sub CmdHelp_Click()
dim i as string
i = app.path & "\help.chm" '用变量i记载与主程序同目录下的help.chm帮助文件
HtmlHelpA Form1.hWnd, i, 0, 0软件开发网www.mscto.com
End Sub

(五)运用ShellExecute函数
先声明如下API：

Option Explicit

'声明API函数用于异步翻开一个文档

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

Private Const SW_SHOWNORMAL = 1

然后在过程中调用：

private Sub CmdHelp_Click()
dim a as long
Dim b As String
b = App.Path & "\help.chm" '用变量b记载与主程序同目录下的help.chm帮助文件
a = ShellExecute (0, "open", b, "", "", SW_SHOWNORMAL)
End Sub

(六)小结

以上五种办法各有优缺点，从代码的简略上讲，主张运用第二种办法。从功能上讲，主张运用第五种办法，因其不只用于翻开CHM帮助文件，还可用相同的格局翻开、打印或查找一个文件或文档(拜见该API的阐明材料)。

【修改引荐】