| te Sub picUpDown_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bolDraging = False
End Sub
Private Sub tvwTable_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim myNode As MSComctlLib.Node
Dim bolCheck As Boolean
If Not Node Is Nothing Then
If Node.Parent Is Nothing Then
Set myNode = Node.Child
Do Until myNode Is Nothing
myNode.Checked = Node.Checked
Set myNode = myNode.Next
Loop
Else
bolCheck = False
Set myNode = Node.FirstSibling
Do Until myNode Is Nothing
If myNode.Checked = True Then
bolCheck = True
Exit Do
End If
Set myNode = myNode.Next
Loop
Node.Parent.Checked = bolCheck
End If
End If
End Sub
上一页 [1] [2] [3] [4] [5] [6] |
