进来看看就会怪，不信？

[jxjasap520]

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
dim selnode as node
set selnode=node
end sub
运行错误提示：“类型不匹配”
错在那里，如何写
还有，我还要在TreeView1_KeyUp事件中调用

Private Sub TreeView1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Or KeyCode = vbKeyDown Then
Call TreeView1_NodeClick(SelNode)
End If
End Su

[netos]

Call TreeView1_NodeClick TreeView1.SelectedItem

[51365133]

set selnode=node 不匹配

[zlt982001]

MSComctlLib.Node <> Node

[shuaishen12]

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) '这里Node 是MSComctlLib.Node
dim selnode as node '这里是Node
set selnode=node '当然类型不匹配了
end sub

Private Sub TreeView1_NodeClick(ByVal Node As Node)
Dim SelNode As Node
Set SelNode = Node
End Sub

[小嘉茗的爸爸]

MSComctlLib.Node <> Node
不同的哦 楼主

[fishmans]

Dim SelNode As MSComctlLib.Node
Set SelNode = Node

[flyingZFX]

不会吧。