怎样加载帮助文件,在线等待
ivt 2002-10-11 05:52:09 我有一hotel.chm的帮助文件
现想在一菜单中点击即打开此帮助文件,请问该如何做?
我是这样做的,但不行
Private Sub main()
If Right(App.Path, 1) = "\" Then
App.HelpFile = App.Path + "hotel.chm"
Else
App.HelpFile = App.Path + "\hotel.chm"
End If
End Sub
Private Sub hHelp_Click()
hHelp.HelpContextID = 1 ' 选定 ID 号为 1 的主题
SendKeys "{F1}"
End Sub
好像少了一条语句在hhelp_click()中,, 还有就是这个1是什么意思来的
立马给分