Guida HTML

[nivio]

Chi mi sa dire come faccio a richiamare una guida in formato HTML (.chm) da un programma VB? ed eventualmente posizionarla su una pagina specifica?

Grazie[8D]

[ans]

API.

'// Constant declarations
Private Const HH_DISPLAY_TOPIC = &H0
Private Const HH_HELP_CONTEXT = &HF

'// API declaration
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

Public Sub ShowHelp(NomeFile As String, Optional WindowPane As String, Optional ContextID)
    Dim strFile As String, hRet As Long

    strFile = NomeFile 

    If Len(WindowPane) Then strFile = Trim(strFile) & ">" & Trim(WindowPane)

    If IsMissing(ContextID) Then
        hRet = HtmlHelp(0, strFile, HH_DISPLAY_TOPIC, ByVal 0&)
    Else
        hRet = HtmlHelp(0, strFile, HH_HELP_CONTEXT, ContextID)
    End If
End Sub

[nivio]

Grazie, potrai giocare con i miei soldatini.