TreeViewでCheckboxの押されたNode番号を取得するには？

解決

geo 2003-01-16 20:49:19 No: 76806

TreeViewにCheckBoxを付けて、ある場所がマウスでチェックされたら、
その下の階層全てにチェックを付けたいと思っています。
何か良い方法がありましたら、教えてください。
よろしくお願い致します。

batchman 2003-01-16 23:18:32 No: 76807

ツリービューの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

geo 2003-01-17 01:04:49 No: 76808

ありがとうございました。
おかげさまで、チェックを付けることができました。