NodeMouseClick
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")Dim nd As WinForm.TreeNode = tr.SelectedNodeIf nd IsNot Nothing then
if nd.ExpandAll then
nd.CollapseAll
else
nd.ExpandAll End If
End If
加好友 
发短信
Post By：2015/5/20 22:53:00 [显示全部帖子]
