紧急重发:MDi窗口的chmHelp问题。

Question

调用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 LongPrivate Sub mnuHelp_Click()
    App.HelpFile = App.Path + "\hncb.hlp"
    ShellExecute Me.hwnd, "open", App.Path + "\hncb.hlp", "", "", sw_show
End Sub

Answer 1

htmlhelp hwnd,"xx.chm::/主题.htm",0,0