dim selnode as nodePrivate Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
if '''''' then
Set selnode = Node
end if
End SubPrivate Sub TreeView1_Click()
If Not selnode Is Nothing Then selnode .Checked = True
End Sub
if '''''' then
Set selnode = Node
end if
End SubPrivate Sub TreeView1_Click()
If Not selnode Is Nothing Then selnode .Checked = True
End Sub
贴主概念上有问题。
=====================
www.myvc.net
编程技术论坛欢迎你的加盟!