2008-06-04, 05:22 AM
|
#1
|
註冊會員
|
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
此帖於 2008-06-04 06:01 AM 被 飛行船大大 編輯.
|
|
|
送花文章: 185,
收花文章: 64 篇, 收花: 146 次
|