怎样加载帮助文件,在线等待

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是什么意思来的
立马给分
...全文
49 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
oceanmap 2002-10-11
If Right(App.Path, 1) = "\" Then
shell "hh.exe" & App.Path & "hotel.chm"
Else
shell "hh.exe" & App.Path & "\hotel.chm"
End If
回复
zhsu 2002-10-11
够详细了吧!

恭喜你的软件竣工:)
回复
zhsu 2002-10-11
' 调用帮助文件
Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
ByVal uCommand As Long, ByVal dwData As Long) As Long
' 常量
Public Const HH_DISPLAY_TOPIC = &H0
Public Const HH_SET_WIN_TYPE = &H4
Public Const HH_GET_WIN_TYPE = &H5
Public Const HH_GET_WIN_HANDLE = &H6
Public Const HH_DISPLAY_TEXT_POPUP = &HE
Public Const HH_HELP_CONTEXT = &HF
Public Const HH_TP_HELP_CONTEXTMENU = &H10
Public Const HH_TP_HELP_WM_HELP = &H11
Private Sub mnu_Help_Help_Click()
HtmlHelp hwnd, App_path & "\帮助.chm", 0, 0
End Sub
回复
发帖
VB基础类
创建于2007-09-28

7479

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2002-10-11 05:52
社区公告
暂无公告