按索引关键字调用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
调用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
调用索引关键字的方法:
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
调用索引关键字的方法:
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
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)
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)
使用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")
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