怎么调用帮助文件*.chm

rober 2000-07-20 11:02:00
我想在一个菜单上点击之后,就弹出一个帮助文件*.chm.
怎么做?
...全文
293 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiali 2000-09-10
  • 打赏
  • 举报
回复
按索引关键字调用CHM对你可能更有用:
Public Declare Function HtmlHelp Lib "HHCTRL.OCX" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, _
ByVal dwData As String) As Long

Const HH_KEYWORD_LOOKUP = &H2&

Sub main()
Dim nret
pszFile = "C:\My Documents\xltestx2.chm"
uCommand = HH_KEYWORD_LOOKUP
dwData = "Caption 属性"
nret = HtmlHelp(hwndCaller, pszFile, uCommand, dwData)
End Sub
xiali 2000-09-10
  • 打赏
  • 举报
回复
调用chm帮助文件的索引较为实用:
Public Declare Function HtmlHelp Lib "HHCTRL.OCX" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, _
ByVal dwData As String) As Long

Const HH_KEYWORD_LOOKUP = &H2&

Sub main()
Dim nret
pszFile = "C:\My Documents\xltestx2.chm"
uCommand = HH_KEYWORD_LOOKUP
dwData = "Caption 属性"
nret = HtmlHelp(hwndCaller, pszFile, uCommand, dwData)
End Sub
prefix 2000-09-10
  • 打赏
  • 举报
回复
建议使用Janven的例子。试过就知道了。
dageming 2000-09-10
  • 打赏
  • 举报
回复
Shell "hh " & App.Path & "\youfile.chm", vbNormalFocus
dageming 2000-09-10
  • 打赏
  • 举报
回复
Shell "hh " & App.Path & "\youfile.chm", vbNormalFocus
dageming 2000-09-10
  • 打赏
  • 举报
回复
Shell "hh " & App.Path & "\filename", vbNormalFocus
xiali 2000-09-10
  • 打赏
  • 举报
回复
调用索引关键字的方法:
Public Declare Function HtmlHelp Lib "HHCTRL.OCX" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, _
ByVal dwData As String) As Long

Const HH_KEYWORD_LOOKUP = &H2&

Sub main()
Dim nret
pszFile = "C:\My Documents\xltestx2.chm"
uCommand = HH_KEYWORD_LOOKUP
dwData = "Caption 属性"
nret = HtmlHelp(hwndCaller, pszFile, uCommand, dwData)
End Sub
xiali 2000-09-10
  • 打赏
  • 举报
回复
调用索引关键字的方法:
Public Declare Function HtmlHelp Lib "HHCTRL.OCX" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, _
ByVal dwData As String) As Long

Const HH_KEYWORD_LOOKUP = &H2&

Sub main()
Dim nret
pszFile = "C:\My Documents\xltestx2.chm"
uCommand = HH_KEYWORD_LOOKUP
dwData = "Caption 属性"
nret = HtmlHelp(hwndCaller, pszFile, uCommand, dwData)
End Sub
Putao 2000-09-10
  • 打赏
  • 举报
回复
用ShellExecute
其他方法只支持.hlp文件
shines77 2000-08-16
  • 打赏
  • 举报
回复
ShellExecute()函数 VB 格式是:

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

范例(VB):
Dim Dummy As Long
Dim HelpChmFile As String
HelpChmFile = "C:\Program Files\iSoft\help.chm"
Dummy = ShellExecute(0&, vbNullString, HelpChmFile, vbNullString, vbNullString, vbNormalFocus)

搞定。
Janven 2000-07-27
  • 打赏
  • 举报
回复
ShellExecute 0, "open", App.Path & "\helpfile.chm", "", "", 3

我测试过了,ShellExecute 声明如下:

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 'Declare Function ListView1_ItemClick Lib "MsComctlLib" (ByVal Item As MsComctlLib.ListItem)
hyzx2000 2000-07-20
  • 打赏
  • 举报
回复
使用API函数HtmlHelp()
Public Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As String) As Long

Public Const HH_DISPLAY_TOPIC = 0
Htmlhelp(hWnd, "a.chm>main", HH_DISPLAY_TOPIC, "conn_check_messages.htm")
VictorYu 2000-07-20
  • 打赏
  • 举报
回复
试试直接执行,用ShellExecute
Un1 2000-07-20
  • 打赏
  • 举报
回复
使用hhctrl.ocx
zhangShunsheng 2000-07-20
  • 打赏
  • 举报
回复

设置好您的App.helpfile="helpfile.chm".
在menuName_clik()过程中加入如下一行代码:
sendkeys "{F1}"
即可。

mafangsan 2000-07-20
  • 打赏
  • 举报
回复
Private 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

Private Sub helpMenu_Click()
Dim ret As Long
ret = htmlhelp(hwnd, FilePathName, 0, 0)
End Sub

其中FilePathName为完整的带路径的文件名

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧