Option Explicit
 
' HTML-Help
Public 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 Declare Function HtmlHelpTopic 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 = &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 ' Display string resource ID or text 
' in a pop-up window.
Public Const HH_HELP_CONTEXT = &HF ' Display mapped numeric value in dwData.
Public Const HH_TP_HELP_CONTEXTMENU = &H10 ' Text pop-up help, similar to 
' WinHelp's HELP_CONTEXTMENU.
Public Const HH_TP_HELP_WM_HELP = &H11 ' text pop-up help, similar to WinHelp's _
  HELP_WM_HELP.
Public Const HH_CLOSE_ALL = &H12
 
 
' Bestimmte Seite einer HTML-Hilfe aufrufen
' wird sTopicFile nicht angegeben, wird autom. die
' Startseite der HTMLHelp-Hilfe angezeigt
'
Public Sub HTMLHelp_ShowTopic(ByVal sHelpFile As String, _
Optional ByVal sTopicFile As String)
 
If sTopicFile = "" Then
' Startseite anzeigen
HtmlHelp 0, sHelpFile, HH_DISPLAY_TOPIC, ByVal 0&
Else
' belibiege Seite anzeigen
HtmlHelpTopic 0, sHelpFile, HH_DISPLAY_TOPIC, sTopicFile
End If
End Sub
 
'Bsp:
'Aufruf der Startseite ü. F1 !!!(Form-Eigenschaft KeyPreview auf True setzen)
'Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' ' F1 - Hilfe
' If KeyCode = vbKeyF1 Then
' KeyCode = 0
' HTMLHelp_ShowTopic
' End If
'End Sub
 
' Aufruf der Hilfe-Startseite aus dem Menü heraus
'Private Sub mnuHelp_Click()
' HTMLHelp_ShowTopic (Name der Hilfedatei)
'End Sub
 
'' Aufruf der Hilfe-Startseite über eine Schaltfläche
'Private Sub cmdHelp_Click()
' HTMLHelp_ShowTopic
'End Sub
 
'Aufruf einer bestimmten Seite der Hilfedatei
'Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' ' F1 - Hilfe (Features)
' If KeyCode = vbKeyF1 Then
' KeyCode = 0
' HTMLHelp_ShowTopic "_allgemein/features.htm"
' End If
'End Sub
 
'Helpfenster schließen
'Private Sub Form_Unload(Cancel As Integer)
' HtmlHelp Me.hWnd, "", HH_CLOSE_ALL, 0
'End Sub
 
'' Hilfe aufrufen (Context)
'Private Sub cmdHilfe_Click()
' Dim hlpFile As String
' Dim ContextID As Long
'
' hlpFile = App.Path & "DeineHilfe.chm"
'
' ' Context-ID
' ContextID = 100
'
' HtmlHelp 0, hlpFile, HH_HELP_CONTEXT, ContextID
'End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.