鼠标移动到treeview某个条目上后，为什么会出现下划线？如何去掉？

Question

treeview控件如何单击右键弹出菜单？

Answer 1

HotTracking ＝ false对了
设计时可以修改在node_click事件里加入if button =2 then
   弹出菜单
end if

Answer 2

to sinall()在node_click事件里加入if button =2 then
   弹出菜单
end if此方法无效！！

Answer 3

Dim flag_button As Boolean
Private Sub Form_Load()
    Dim a As Node
    Set a = Me.TreeView1.Nodes.Add(, , "b", "asdfasdf")
    Set a = Me.TreeView1.Nodes.Add("b", 4, "c", "alskdjfl")
End SubPrivate Sub TreeView1_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)
    If button = 2 Then
        flag_button = True
    End If
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    If flag_button = True Then
        PopupMenu a
    End If
End Sub
这样就可以了。具体的内容自己再改改，匆忙写了一点。