请教如何调用帮助文件！！！急

Question

如何实现点击一个按键以后，调用跟目录下的HELP.CHM文件
急

Answer 1

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 sub cmdHelp_click()
 ShellExecute Me.hwnd, "Open", "help.chm", "", App.Path, 1
End sub

Answer 2

dim x as integer
x=shell("hh.exe help.chm",1)
好像是这个样子,shell写法不知道有没有错.

Answer 3

以上方法都不能调出指定页面，用以下代码吧！
Private 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
Const HH_DISPLAY_TOPIC = &H0
Const HH_DISPLAY_INDEX = &H2
Const HH_HELP_CONTEXT = &HF
Const HH_DISPLAY_SEARCH = &H3
Const HH_DISPLAY_TEXT_POPUP = &HE
Private Sub Command1_Click()
App.HelpFile = App.Path & "\MyFirst.chm"
Call Htmlhelp(hWnd, App.HelpFile, HH_DISPLAY_TOPIC, ByVal "002.htm")
End Sub

Answer 4

使用APIDim oHTMLHelp As cHTMLHELPOn Error GoTo ErrHandler' Launch HTML Help at phase 1 root
Set oHTMLHelp = New cHTMLHELP
oHTMLHelp.DisplayHelp Me.hwnd, App.HelpFileExit Sub然后新建一个类模块，添加以下代码
Option ExplicitPrivate Declare Function Htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As LongPrivate Const HH_DISPLAY_TOPIC = &H0Public Sub DisplayHelp(ByVal hwndCaller As Long, ByVal sFile As String)
Dim hRet As LonghRet = Htmlhelp(hwndCaller, sFile, 1, 0)End Sub
ErrHandler:
    If Err.number = icERR_MISSING_HTMLHELP_FILE Then
        MsgBox "没有帮助文件"
    Else
        MsgBox scERR_MSG_PREFIX & Err.number & scSPACE & Err.Description
    End If