我貼上我的程式碼
Public Class Form1
Sub chk(ByVal obj As TreeNode, ByVal boo As Boolean)
For Each child As TreeNode In obj.Nodes
If boo = False Then
child.Checked = False
Else
child.Checked = True
End If
Next
End Sub
Private Sub TreeView1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TreeView1.Click
~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim a As TreeNode = TreeView1.SelectedNode
Dim boo As Boolean
boo = a.Checked()
chk(a, boo)
End Sub
End Class
但這樣selectednode並不等於你打勾的，而是被選擇有反白的。
到這裡我就不會改了...
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.56.227.4