问个菜问题，已编译了CHM文件，在VB工程里也设置了联接，使用F1键能启动CHM文件，问：如何在菜单栏里点击“帮助主题”启动CHM文件？

Question

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 form1.hwnd, "open", 帮助文件名, <参数名|vbnullstring>, <工作目录|vbnullstring>,显示模式

Answer 1

Private Const HH_DISPLAY_TOC = &H1             ' 目录
Private Const HH_DISPLAY_INDEX = &H2           ' 索引
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调用：
    Call HtmlHelp(Me.hwnd, App.HelpFile, HH_DISPLAY_TOC, vbNullString)    Call HtmlHelp(Me.hwnd, App.HelpFile, HH_DISPLAY_INDEX, vbNullString)

Answer 2

最简单的：Shell "Start *.chm"

Answer 3

你可以在工程属性中设置所需要使用的HTML帮助文件，或是在程序中直接将成员变量App.HelpFile( = help_file_name)的值设置为程序所需使用的帮助文件名，如上例应使用语句 App.HelpFile = "C:\Learn\Learn.chm" 来设置所需的帮助文件――当然，使用这样绝对的路径我并不赞成――你可以改为 App.HelpFile = App.Path + "Learn.chm"。然后在窗体上添加一个“帮助”按钮，并在该按钮的单击事件中添加如下代码(假设该按钮的Name属性为“cmdHelp”)：
Private Sub cmdHelp_Click()
　cmdHelp.HelpContextID = 1 '选定ID号为1的主题
　SendKeys "{F1}"
End Sub

Answer 4

谢谢大家的帮忙，唉，我对VB真的太菜了，试了半天都不行哪，哪位能给个有关这个问题的最简单的工程文件原码？Help!

Answer 5

用了dbcontrols(泰山)　的方法，实现了。谢谢！给分！