查看單個文章
舊 2008-06-04, 05:22 AM   #1
飛行船大大
註冊會員
 
飛行船大大 的頭像
榮譽勳章
UID - 282126
在線等級: 級別:15 | 在線時長:286小時 | 升級還需:34小時級別:15 | 在線時長:286小時 | 升級還需:34小時級別:15 | 在線時長:286小時 | 升級還需:34小時級別:15 | 在線時長:286小時 | 升級還需:34小時級別:15 | 在線時長:286小時 | 升級還需:34小時
註冊日期: 2007-10-09
文章: 178
精華: 0
現金: 328 金幣
資產: 7328 金幣
預設 VB6 簡單的tree( 將所有打勾的 字串合併 )



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


我已做一個很簡單的tree如下圖
http://huhuge.hp.infoseek.co.jp/Pic1.gif

我現在想作的是: 將第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

此帖於 2008-06-04 06:01 AM 被 飛行船大大 編輯.
飛行船大大 目前離線  
送花文章: 185, 收花文章: 64 篇, 收花: 146 次
回覆時引用此帖