关于帮助文件的制作, 老问题, 给高分了

Question

Declare Function htmlhelp Lib "hhctrl.ocx"  Alias    "HtmlHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand 
As Long, ByVal dwData As Long) As Long 
在VB中使用语句如下：比方form名为form1:chm文件中有一张网页名为AAA.htm   
Dim m_Value As Long m_Value = htmlhelp(form1.hwnd, App.Path & "\帮助文件.chm::/AAA.htm",    0, 0) 
If m_Value = 0 Then MsgBOX "无法打开帮助文件！"
End If 
符号::/为相对路径把CONTEXT ID 改为你要显示的网页是一样的吧

Answer 1

对啊. 用了这个后, 我不知把Dim m_Value As Long m_Value = htmlhelp(form1.hwnd, App.Path & "\帮助文件.chm::/AAA.htm",    0, 0) 
If m_Value = 0 Then MsgBOX "无法打开帮助文件！"
End If 
这些代码放在什么地方. 放在form load里, 它会在load时打开帮助文件. 
我想放在什么地方. 会在用户按F1时自动打开呢. 

Answer 2

定义一个*.txt
topic IDH_NEWFILE               
.topic IDH_OPENFILE            
.topic IDH_SAVE          
.topic IDH_SAVEAS
定义一个*.H
#Define IDH_NEWFILE                 5000
#Define IDH_OPENFILE                5001
#Define IDH_SAVE                    5002
#Define IDH_SAVEAS           5003
处理HtmlHelp Api Information
map:#include *.H
alias:建立文件映射
如:IDH_NEWFILE="ABC\NewFile.HTM"
Text-Popups:
加入:*.H
     *.TXT
Gavme over!