首先在模块中定义 HHCtrl.ocx API
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
在窗体的LOAD事件中，指定该窗体的帮助文件路径
Private Sub FORM_Load()
Me.HelpFile = CurrentProject.Path & "\help\help.chm"
End Sub
如果使用按钮，按钮的事件处理程序
Private Sub cmdHelp_Click()
Call HtmlHelp(0, CurrentProject.Path & "\help\help.chm", &H0, ByVal "index.htm")
End Sub
例子中，在文本框1上按 F1，需在文本框的 帮助上下文ID 填入 1001
在文本框2上按 F1，需在文本框的 帮助上下文ID 填入 1002
制作html文件
index.htm 对应按钮
help1.htm 对应文本框1
help2.htm 对应文本框2
制作topicID.h定义主题ID
#define IDH_HA 1000
#define IDH_HB 1001
#define IDH_HC 1002
制作ID.h定义主题ID对应html文件
IDH_HA = index.htm ; 0
IDH_HB = help1.htm ; 1
IDH_HC = help2.htm ; 2
使用HTMLHELP制作产生Help.hhp Help.hhc Help.hhk三个文件
帮助项目文件Help.HHP
[OPTIONS]
Auto Index=Yes
Compatibility=1.1 or later
Compiled file=Help.chm
Contents file=Help.hhc
Default Window=main
Default topic=index.htm
Display compile progress=Yes
Error log file=ErrorLog.log
Full-text search=Yes
Index file=Help.hhk
Language=0x804 中文(中国)
Title=帮助
[WINDOWS]
main=,"Help.hhc","Help.hhk","index.htm","index.htm",,,,,0x23520,222,0x1046,[10,10,780,560],0xb0000,,,,,,0
[FILES]
HELP1.HTM
HELP2.HTM
index.htm
[ALIAS]
#include ID.H
[MAP]
#include topicID.h
[INFOTYPES]