疑問 - VB6 簡單的tree( 將所有打勾的 字串合併 )

[飛行船大大]

--------------------
閱讀本主題的最佳解答
--------------------


我已做一個很簡單的tree如下圖


我現在想作的是: 將第3層中 所有有打勾的 字串合併 (例如 "1年級1班" "1年級2班" "1年級6班" 這3個字串合併 後放在變數 strNodes) 若是 打勾到的是上層的 "1年級" 或 "全校各班" 則乎略之.
雖然我知道是寫在TreeView1_Click() 事件 , 但是TreeView 我不熟
請 熟悉treeview 的大大們 改正我所寫的TreeView1_Click() 事件錯誤.

---------------
問題2:
當滑鼠選中 "1年級1班" 時 ： 我想要 讓user 若按中鍵盤[Del] 鍵自動刪除此節點．若是按中鍵盤[Insert] 鍵 就呼叫執行 command1_click() 事件．
這要如何寫?

也附上專案http://huhuge.hp.infoseek.co.jp/post_jpg/tree.rar
謝謝
---原碼------------------------------

Private Sub Form_Load()
    TreeView1.LineStyle = tvwTreeLines
    TreeView1.ImageList = ImageList1
    TreeView1.Style = tvwTreelinesPlusMinusPictureText
    TreeView1.Nodes.Add , , "root", "全校各班", 1
    For i = 1 To 6
        n = i & "年級"
        TreeView1.Nodes.Add "root", tvwChild, "GID" & i, n, 7
        For j = 1 To 10
            n = i & "年級" & j & "班":
            TreeView1.Nodes.Add "GID" & i, tvwChild, "y" & i & j, n, 2
        Next
    Next
End Sub

Private Sub TreeView1_Click()
    Dim i As Integer
    Dim strNodes As String
    
'    For i = 1 To TreeView1.Nodes.Count
'        strNodes = strNodes & TreeView1.Nodes(i).Index & " " & _
'        "Key: " & TreeView1.Nodes(i).Key & " " & _
'        "Text: " & TreeView1.Nodes(i).Text & vbLf
'    Next i


    Label1 = strNodes
End Sub

[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