在VB中如何运行帮助文件（*.hlp，*.chm）,用Shell函数不能打开，各位大侠帮帮忙

Question

API:
ShellExecute(vbNullString,vbNullString,filepath,"","",0)
  
 试试吧！VB上我没试过。

Answer 1

首先对ShellExecute 声明如下：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 'Declare Function ListView1_ItemClick Lib "MsComctlLib" (ByVal Item As MsComctlLib.ListItem)程序可以这样写：
Dim Dummy As Long
Dim HelpChmFile As String
HelpChmFile = "C:\Program Files\iSoft\help.chm"
Dummy = ShellExecute(0&, vbNullString, HelpChmFile, vbNullString, vbNullString, vbNormalFocus)

Answer 2

或者可直接这样：
ShellExecute 0, "open", App.Path & "\helpfile.chm", "", "", 3ShellExecute 声明如下：
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 'Declare Function ListView1_ItemClick Lib "MsComctlLib" (ByVal Item As MsComctlLib.ListItem)如果要定义F1弹出，可以：
先设置好您的App.helpfile="helpfile.chm".
    在menuName_clik()过程中加入如下一行代码：
             sendkeys "{F1}"
    即可。

Answer 3

HLP 扩展名的帮助文件你可以用 Common Control 6.0 打开
CHM 扩展名的帮助文件，打开就更容易了，你只需要在工程属性中把帮助文件设置为你要打开的那个，然后用 SendKey 发送一个 F1 就可以了。具体，你可以看我的 HTML Help 的制作和使用，我的主页上有下载
http://outinn.yeah.net/