Visual Basic – Poziv HTML Help fajlova iz aplikacije

Evo jednog vrlo zanimljivog „parčeta“ programskog koda, koji vam može pomoći kod kreiranja pomoći, help-a, za krajnje korisnike vaših programa. Radi se o tome da direktno iz vaše aplikacije možete pozvati prethodno pripremljeni HTML help dokument, i to upravo na određenoj (željenoj) temi. Ova procedura takođe može i da zatvori help fajl pri „spuštanju“ aplikacije koja je pozvala sam help.

Za korišćenje procedure, samo pozovite funkciju „PozoviHTMLHelp“, i to sa argumentima kao što je putanja do fajla i dodatnim opcijama kao što je Form1.hWnd (što znači ako se forma zatvara, zatvara se i help fajl), plus opciono – broj teme. U zavisnosti uspešnosti, funkcija će vratiti True ili False. Evo kako bi izgledao poziv funkcije:

funk = PozoviHTMLHelp("c:mojhelp.chm", Form1.hWnd, 124)

A evo i same funkcije:

Public Const HH_DISPLAY_TOPIC = &H0

Public Const HH_HELP_CONTEXT = &HF

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 Function PozoviHTMLHelp(HelpFile As String, _

    Optional WindowHandle As Long, Optional Topic As Long) As Boolean

    Dim lngReturn As Long

    If Len(Dir(HelpFile)) > 0 Then

                If Topic = 0 Then

            lngReturn = HtmlHelp(WindowHandle, HelpFile, HH_DISPLAY_TOPIC, 0)

        Else

            lngReturn = HtmlHelp(WindowHandle, HelpFile, HH_HELP_CONTEXT, Topic)

        End If

               PozoviHTMLHelp = CBool(lngReturn)

       End If

End Function

Pratite Krstaricu na www.krstarica.com