[求助]高手请指点,CHM格式的帮助文件是否可绑定到ACCESS中?

田野

是否可以把CHM格式的帮助文件绑定到ACCESS中,比如,单击一按钮,或者菜单,就打开帮助文件.请指教!
(开发文档_帮助制作-相关文章技巧链接)：
Access调用CHM格式的帮助文件（绑定到ACCESS中）

hbhscwm

在什么地方调用zhuyiwen的9#的Sub AddHelpMenu()?本人太菜了,请指点.

williamtan

弹出一个标题为“windows帮助”的窗口 内容为：内存不足，无法执行该任务。。“可我运行access自带的例子里的帮助没问题啊？这是怎么回事呢？

田野

binbow_Z,您的方法很好，再问一下，HH.EXE有没有定位的参数，就是说打开chm文件时根据不同情况定位于某一位置。

田野

binbow_Z,您的方法很好，再问一下，HH.EXE有没有定位的参数，就是说打开chm文件时根据不同情况定位于某一位置。

binbow_z

用SHELL调用HH.exe文件打开.chm文件

田野

够，够，我 GO,GO,开溜！：）

zhuyiwen

田野，够不够？

你怎么请我吃饭？[em26]

zhuyiwen

Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
    (ByVal hwndCaller As Long, _
    ByVal pszFile As String, _
    ByVal uCommand As HH_COMMAND, _
    dwData As Any) As Long

zhuyiwen

Sub AddHelpMenu()
    Dim cbrBar          As CommandBar
    Dim ctlCBarControl  As CommandBarControl
   
    ' Set a reference to the Help menu.
    Set cbrBar = CommandBars!Help
   
    ' If the My Help command already exists, delete it.
    For Each ctlCBarControl In cbrBar.Controls
        If ctlCBarControl.Caption = "&My Help" Then
            cbrBar.Controls("My Help").Delete
        End If
    Next
   
    ' Create a new CommandBarControl object on the Help menu
    ' and add a reference to it.
    Set ctlCBarControl = cbrBar.Controls.Add(Type:=msoControlButton)
   
    ' Set properties of the new command to display context-sensitive
    ' pop-up help. Set OnAction to call DisplayHelp procedure to display
    ' a help topic when clicked.
    With ctlCBarControl
        .Caption = "&My Help"
        .BeginGroup = True
        .FaceId = 0
        .OnAction = "DisplayHelpXL"
        .HelpFile = "sample.chm"
        .HelpContextID = 1000
        .Visible = True
    End With
End Sub

或

Sub DisplayHelpXL()
    Application.Help Currentproject.Path & "\sample.chm", 2001
End Sub