关于treeview的nodeclick事件?

Question

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    msgbox TreeView1.Nodes(index).Text
end sub
这个事件中鼠标左右键单击都响应。
我想只是鼠标单击左键时才执行
msgbox TreeView1.Nodes(index).Text怎么实现？

Answer 1

Dim bb  As IntegerPrivate Sub Form_Load()
TreeView1.Nodes.Add , , , "asdfkjadkfade"
TreeView1.Nodes.Add , , , "asdfkjadkfade"
TreeView1.Nodes.Add , , , "asdfkjadkfade"
TreeView1.Nodes.Add , , , "asdfkjadkfade"
TreeView1.Nodes.Add , , , "asdfkjadkfade"
End SubPrivate Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
bb = Button
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If bb = 1 Then
MsgBox "df"
End If
End Sub