在Visual Basic 6中使用HTML Help 再介绍一下如何在Visual Basic 6中使用HTML Help(.CHM)。 大家都知道在Visual Basic 6中可以通过ActiveX控件“Microsoft Common Dialog Control”调用WinHelp帮助文件，那么是否可以用同样的方法调用HTML帮助文件呢？ I am sorry，答案是否定的。 但是 Visual Basic 6 本身支持HTML帮助，我们完全可以直接调用HTML帮助文件而不借助于其它任何ActiveX控件或Windows API函数。 你可以在工程属性中设置所需要使用的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 当然，该按钮的HelpContextID属性值可以根据实际情况改为其它数值。OK！你的程序已经添加了美观而又方便的HTML帮助，能为你的程序增色不少呢！
在Visual Basic中调用HtmlHelp帮助文件需要用HtmlHelp API函数HtmlHelp（），这个函数驻留在HtmlHelp ActiveX控件Hhctrl.ocx中。因此，首先要声明HtmlHelp（），语法如下： Declare Function htmlhelp Lib "hhctrl.ocx" _ Alias "HtmlHelpA" (ByVal hwnd As Long, _ ByVal lpHelpFile As String, _ ByVal wCommand As Long, _ ByVal dwData As Long) As Long 其中,参数hwnd是窗口的句柄，lpHelpFile是HTML帮助文件的路径和名称，wCommand表明执行的操作，dwData是wCommand参数所需要的值。然后,在需要调用HTML帮助文件的地方输入下列语句,语法如下：htmlhelp hwnd, "how_to_use.chm", 0, 0
将hh.exe拷到当前目当录 Dim msg As String msg = "hh " & App.Path & "\chm文件" Shell msg, vbMaximizedFocus
再介绍一下如何在Visual Basic 6中使用HTML Help(.CHM)。
大家都知道在Visual Basic 6中可以通过ActiveX控件“Microsoft Common Dialog Control”调用WinHelp帮助文件，那么是否可以用同样的方法调用HTML帮助文件呢？
I am sorry，答案是否定的。
但是 Visual Basic 6 本身支持HTML帮助，我们完全可以直接调用HTML帮助文件而不借助于其它任何ActiveX控件或Windows API函数。
你可以在工程属性中设置所需要使用的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
当然，该按钮的HelpContextID属性值可以根据实际情况改为其它数值。OK！你的程序已经添加了美观而又方便的HTML帮助，能为你的程序增色不少呢！
Alias "HtmlHelpA" (ByVal hwnd As Long, _
ByVal lpHelpFile As String, _
ByVal wCommand As Long, _
ByVal dwData As Long) As Long
其中,参数hwnd是窗口的句柄，lpHelpFile是HTML帮助文件的路径和名称，wCommand表明执行的操作，dwData是wCommand参数所需要的值。然后,在需要调用HTML帮助文件的地方输入下列语句,语法如下：htmlhelp hwnd, "how_to_use.chm", 0, 0
Dim msg As String
msg = "hh " & App.Path & "\chm文件"
Shell msg, vbMaximizedFocus