请教关于联机帮助制作的问题

Question

我按照教程教的用这种函数来调用chm帮助文件'声明
Private 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 = &HE'随便建立个窗体
Private Sub Form_Load()
App.HelpFile = App.Path & "\help.CHM"
End Sub下面本来是要用Call Htmlhelp(hWnd, App.HelpFile, HH_DISPLAY_TOPIC, ByVal "two.htm ")   '调用help.chm中two.htm这句来调用帮助文件了,但是这种方式做按钮可以,怎样才能用F1键来调用帮助文件呢?附注:
如果没有加上那个Call htmlhelp(...     那句,按F1也可以调用help.chm,但是没有办法打开就是我想要的two.htm页面我想要的效果是按F1键调出我想要的two.htm页面

Answer 1

Private Sub Form_Load() 
    '调用与主程序同目录下的help.chm帮助文件，按F1键调用
    App.HelpFile = app.path & "\help.chm"
End Sub

Answer 2

谢谢先,但是我怎么才能按F1键调用到我想要的help.chm中的某一页面.
比如我想按F1调用help.chm中的two.htm页面

Answer 3

那就对keypress事件编程吧
发现按下的是F1键就
Call Htmlhelp(hWnd, App.HelpFile, HH_DISPLAY_TOPIC, ByVal "two.htm ")

Answer 4

再次感谢,不过还是不成
keypress事件必须是窗体上没有其他控件获得焦点时才能发生,这样在实际的操作中很不方便
而且我即使定义了keypress事件,按F1弹出的也是默认的页面,而不是我像要的two页面不知道是否有其他解决方法呢?