This control adds a very nice help function to your application. There is even support for getting the help text out of a chm help file. Just look how it works when you add one of my DLLs to the object browser (click on various nodes for getting the help).

Click here to download the complete source code.

Private Sub ObjectBrowser1_NodeSelect(strNode As String, _strCall As String, strDescription As String, strHelp As String, strHelpFile As String, Node As MSComctlLib.Node, strHelpPage As String)

Dim tmpPage() As String
Dim strType As String
Dim strPage As String

    frmQuickTip.QuickTip1.WaitCount = 2
    frmQuickTip.QuickTip1.HelpType = "ObjectBrowser"
    frmQuickTip.QuickTip1.QuickTipKey = strCall

    ' The descriptin and helptekst from the type library
    If Len(strDescription) > 0 Then
        If Len(strHelp) > 0 Then
            frmQuickTip.QuickTip1.HelpText = strDescription & _
            "<BR><BR>" & strHelp
        Else
            frmQuickTip.QuickTip1.HelpText = strDescription
        End If
    Else
        frmQuickTip.QuickTip1.HelpText = strHelp
    End If

    ' If this help page exist then we will use it.
    frmQuickTip.QuickTip1.HelpFile = strHelpPage

End Sub
Share