Type HH_IDPAIR
dwControlId As Long
dwTopicId As Long
End Type
Public ids(2) As HH_IDPAIR
Declare Function GetDlgCtrlID Lib "user32" _
(ByVal hwnd As Long) As Long
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
Declare Function HTMLHelpTopic Lib "hhctrl.ocx" Alias "HtmlHelpA"
_
(ByVal hwndCaller As Long, ByVal pszFile As String, _
ByVal uCommand As Long, ByVal dwData As String) As Long
Private Const HH_DISPLAY_TOC = &H1 ' Special thanks to D.L. for providing
Private Const HH_DISPLAY_INDEX = &H2
Private Const HH_DISPLAY_SEARCH = &H3
Private Const HH_DISPLAY_TOPIC = &H0
Private Const HH_SET_WIN_TYPE = &H4
Private Const HH_GET_WIN_TYPE = &H5
Private Const HH_GET_WIN_HANDLE = &H6
Private Const HH_DISPLAY_TEXT_POPUP = &HE
Private Const HH_HELP_CONTEXT = &HF
Private Const HH_TP_HELP_CONTEXTMENU = &H10
Private Const HH_TP_HELP_WM_HELP = &H11
Funktion zum Festlegen des Pfades der Hilfedatei
Public Function SetHelpStrings(ByVal intSelHelpFile As Integer) As String
Select Case intSelHelpFile
Case 1
SetHelpStrings = App.Path & "\test.chm"
Case 2
' Place other Help file paths in successive Case statements
End Select
End Function
Funktionen zum Anzeigen der Hilfedatei
Public Sub ZeigeInhalt(ByVal intHelpFile As Integer)
HTMLHelp hwnd, SetHelpStrings(intHelpFile), HH_DISPLAY_TOC, 0
End Sub
Public Sub ZeigeIndex(ByVal intHelpFile As Integer)
HTMLHelp hwnd, SetHelpStrings(intHelpFile), HH_DISPLAY_INDEX, 0
End Sub
Public Sub ZeigeHelpTopic(ByVal intHelpFile As Integer, strTopic As String)
HTMLHelpTopic hwnd, SetHelpStrings(intHelpFile), HH_DISPLAY_TOPIC, strTopic
End Sub
Public Sub ZeigeTopicId(ByVal intHelpFile As Integer, IdTopic As Long)
HTMLHelp hwnd, SetHelpStrings(intHelpFile), HH_HELP_CONTEXT, IdTopic
End Sub
Portions of this code courtesy of David Liske and Matthew Brown.