无法显示帮助，奇怪

Question

还是查查你的App.Path初始值是什么吧。

Answer 1

App.Path初始值绝对没有问题。
现在不是路径的问题，而是{F1}的响应问题。

Answer 2

在编辑菜单器里定义她的快捷键为F1
Public Const HH_DISPLAY_TOPIC = 0Call htmlhelp(Me.hWnd, App.HelpFile, HH_DISPLAY_TOPIC, 0)
App.HelpFile路径最好在程序初始化时设置
如果还不行的话，试一试吧帮助文件放到系统目录下。

Answer 3

htmlhelp()是什么函数，api浏览器中看不到啊，vba中也没有

Answer 4

不是lhbsh说的原因，肯定不是。
我现在想是不是多文档主窗体不能关联帮助？

Answer 5

一位老弟给我以下代码，运行无误！Private 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
Private Sub mnuHelp_Click()                           '帮助Dim Showhelp As Long
Dim HelpChmFile As String
HelpChmFile = App.Path & "\" & "XXX.chm"             'XXX.CHM为您老的帮助文件
Showhelp = ShellExecute(0&, vbNullString, HelpChmFile, vbNullString, vbNullString, vbNormalFocus)End Sub