急，VB程序如何用外接程序打开chm帮助

[laserman]

急，VB程序如何用外接程序打开chm帮助，我用的是shell函数，但不知道打开方式

[softrain]

shell "c:\winnt\hh.exe c:\ado210.htm"

[softrain]

错了，是
shell "c:\winnt\hh.exe c:\ado210.chm"

[tulip_hui]

'the flowing is used in the application of help file.
Const HELP_CONTEXT = &H1
Const HELP_QUIT = &H2
Const HELP_INDEX = &H3
Const HELP_CONTENTS = &H3&
Const HELP_HELPONHELP = &H4
Const HELP_SETINDEX = &H5
Const HELP_SETCONTENTS = &H5&
Const HELP_CONTEXTPOPUP = &H8&
Const HELP_FORCEFILE = &H9&
Const HELP_KEY = &H101
Const HELP_PARTIALKEY = &H105&
Const HELP_MULTIKEY = &H201&
Const HELP_SETWINPOS = &H203&

Private Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long

proviate sub cmdhelp_click()
App.HelpFile = App.Path + "\help\efuhelp.chm"
cmdhelp.HelpContextID = 1
SendKeys "{F1}", True
end sub

[daryl715]

就是，用shell就可以
何必用api

[thinkeasy]

Public 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

ShellExecute hwnd, "Open", "help.chm", "", app.path, 1

[cayw]

用HtmlHelp函数
Const HH_DISPLAY_TOPIC = &H0
Const HH_CLOSE_ALL = &H12
Dim hwndHelp As Long
hwndHelp = HtmlHelp(hWnd, "myfile.chm", HH_DISPLAY_TOPIC, 0)
用同一函数关闭

[cayw]

用HtmlHelp函数
Const HH_DISPLAY_TOPIC = &H0
Const HH_CLOSE_ALL = &H12
Dim hwndHelp As Long
hwndHelp = HtmlHelp(hWnd, "myfile.chm", HH_DISPLAY_TOPIC, 0)
用同一函数关闭

[cngo]

但为什么在调用的时候帮助文件需要点一下才现得出来呢？（就是在任务栏上点活帮助文件）？