代码如下:Public 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
Const HH_DISPLAY_TOPIC = &H0
Const HH_DISPLAY_INDEX = &H2
Const HH_HELP_CONTEXT = &HF
Const HH_DISPLAY_SEARCH = &H3
Const HH_DISPLAY_TEXT_POPUP = &HEPrivate Sub cmdHelp_Click()
Const HH_DISPLAY_TOPIC = &H0
App.HelpFile = App.Path & "\help.chm"
Call Htmlhelp(hwnd, App.HelpFile, HH_DISPLAY_TOPIC, ByVal "123\123.htm")
End Sub我按下cmdHelp时可以调出帮助文件,但怎样才能按下F1键调出帮助文件呢?
Const HH_DISPLAY_TOPIC = &H0
Const HH_DISPLAY_INDEX = &H2
Const HH_HELP_CONTEXT = &HF
Const HH_DISPLAY_SEARCH = &H3
Const HH_DISPLAY_TEXT_POPUP = &HEPrivate Sub cmdHelp_Click()
Const HH_DISPLAY_TOPIC = &H0
App.HelpFile = App.Path & "\help.chm"
Call Htmlhelp(hwnd, App.HelpFile, HH_DISPLAY_TOPIC, ByVal "123\123.htm")
End Sub我按下cmdHelp时可以调出帮助文件,但怎样才能按下F1键调出帮助文件呢?
App.HelpFile = "f:\vbch.chm"
就是对一个控件设定后,chm文件直接打开对应的页关注
App.HelpFile = "D:\xxx\xxxx\xxx.chm"
SendKeys "{F1}"
end sub
二、App.HelpFile = "f:\vbch.chm"