VB通过菜单调用CHM文件，怎么就是出不来呢

Question

本帖最后由 ydx19840507 于 2010-07-29 18:21:22 编辑

Answer 1

也许是只支持hlp格式帮助文件吧

Answer 2

Private Sub mnuContents_Click()
    With dlgChart 'CommandDialog
        .HelpFile = App.Path & "\MSChart.hlp"
        .HelpCommand = cdlHelpTopics
        .ShowHelp
    End With
End Sub

Answer 3

值得參考：
http://dev.csdn.net/htmls/85/85082.html

Answer 4

确认一下help.chm是否在当前路径下！

Answer 5

1、在模组中定义
Option Explicit
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
Public Const SW_SHOWNORMAL = 12、在Form中执行打开Chm文件
Private Sub cmdShowHelpFile_Click()
    Dim a As Long
    Dim b As String
    b = App.Path & "\crm.chm"
    a = ShellExecute(0, "open", b, "", "", SW_SHOWNORMAL)
End Sub