您所在位置：主题：[讨论]‘用户定义类型未定义’错误怎么解决？
mwx00
[专家分：0] 发布于 2009-03-25 21:47:00
Private Sub TreeView1_NodeClick(ByVal Node As Node)
Dim answer As String
'Dim Children As Integer
'校验是否有子节点。
If Node.Children > 1 Then '有多个子节点。
answer = MsgBox("Sort this node?", vbYesNo) '提示询问用户。
If answer = vbYes Then '用户想排序。
Node.Sorted = True
End If
End If
End Sub
Dim answer As String
'Dim Children As Integer
'校验是否有子节点。
If Node.Children > 1 Then '有多个子节点。
answer = MsgBox("Sort this node?", vbYesNo) '提示询问用户。
If answer = vbYes Then '用户想排序。
Node.Sorted = True
End If
End If
End Sub
