Question

我的节点在所有方面都运行良好，但是我找不到在MouseOver上的每个节点上添加工具提示的方法。怎么做？我尝试在添加节点子代时设置此设置，但属性ToolTipText不可用。我的工具提示存储在rsReqs！ToolTip表中，我正在寻找一种在加载Node时设置工具提示的方法。任何帮助将不胜感激。使用的示例代码：

Private Sub addChildren(TV As Treeview, nodParent As Node, rsReqs As DAO.Recordset, lngParentID As Long)
Dim strFind As String
strFind = "ID_Parent=" & lngParentID
rsReqs.FindFirst strFind
Dim nodX As Node
Dim strBook As String
Do While Not rsReqs.NoMatch
'sets nodes with text from table rsReqs
    Set nodX = TV.Nodes.Add(nodParent, tvwChild, "<ID>" & rsReqs!PK_Req & "</ID>", rsReqs!mem_Req)
    Select Case rsReqs!ID_Type

        Case 1 'Menu

        Case 2 'Header
            nodX.Bold = True
            If nodX.Checked Then
                nodX.BackColor = vbGreen
            Else
                nodX.BackColor = RGB(244, 245, 247)  'vbWhite
            End If

        Case 3 'Function
            nodX.ForeColor = vbBlue 'RGB(0, 128, 0) 
            nodX.Bold = True

    End Select
    strBook = rsReqs.Bookmark
    addChildren TV, nodX, rsReqs, rsReqs!PK_Req
    rsReqs.Bookmark = strBook
rsReqs.FindNext strFind
Loop
End Sub

访问vba treeview（类MSComctlLib.TreeCtrl.2）如何向每个节点添加工具提示

0 个答案: