'首选定义 Option Explicit Declare Function Htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Any) As Long'开始放入 Private Sub Form_Load() App.HelpFile = App.Path & "\hy.chm" end sub '过程中调用 Private Sub mnu_helpfile_Click() Call Htmlhelp(hWnd, App.HelpFile, &H0, ByVal "index.htm") End Sub
虽然只有一句话,不过已经很详细了吧。
Option Explicit
Declare Function Htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Any) As Long'开始放入
Private Sub Form_Load()
App.HelpFile = App.Path & "\hy.chm"
end sub
'过程中调用
Private Sub mnu_helpfile_Click()
Call Htmlhelp(hWnd, App.HelpFile, &H0, ByVal "index.htm")
End Sub
c:\a1\a22
c:\a1\a23
a21有index.htm,a22也有index.htm,a23也有index.htm
a1中的文件调用a21,a22,a23的index.htm为
<a href="a21/index.htm">a21</a>
<a href="a22/index.htm">a22</a>
<a href="a23/index.htm">a23</a>
a21 调用a22
<a href="../a22/index.htm">a22</a>
a21 调用a1
<a href="../index.htm">a1</a>