TreeViewにCheckBoxを付けて、ある場所がマウスでチェックされたら、
その下の階層全てにチェックを付けたいと思っています。
何か良い方法がありましたら、教えてください。
よろしくお願い致します。
ツリービューのNodeCheckイベントで下記コードにしてみましょう
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim nodChild As Node
If Node.Children Then
Set nodChild = Node.Child
Do Until nodChild Is Nothing
nodChild.Checked = Node.Checked
Call TreeView1_NodeCheck(nodChild)
Set nodChild = nodChild.Next
Loop
Set nodChild = Nothing
End If
End Sub
ありがとうございました。
おかげさまで、チェックを付けることができました。