[mini]

請改用 _NodeCheck 事件

PHP 語法:

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim i As Integer
Dim strNodes As String
    
    If Node.Checked = True Then
        For i = 1 To TreeView1.Nodes.Count
        If TreeView1.Nodes(i).Checked = True Then
            strNodes = strNodes & " " & TreeView1.Nodes(i).Text
        End If
        Next i
    End If
    Label1 = LTrim(strNodes)

End Sub 


問題2: Ans

Private Sub TreeView1_KeyUp(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyDelete Then
        TreeView1.Nodes.Remove TreeView1.SelectedItem.Index
    
    ElseIf KeyCode = vbKeyInsert Then
        command1_click
    End If
    
End Sub