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.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
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 |