如題!
下面代碼是其他人幫我寫的，在你2010中有部分代碼已經不支持
Dim s(), ss() As String
Dim L, i, j As Long
Dim s0 As String
Tree1.Nodes.Clear()
s = Split(T1.Text, vbCrLf)
For L = 0 To UBound(s)
ss = Split(s(L), "\")
If L = 0 Then
Tree1.Nodes.Add(ss(0))
End If
For i = 1 To UBound(ss)
If ss(i) <> "" Then
j = checkvalid(ss(i))
If j = -1 Then
j = checkvalid(ss(j - 1))
s0 = Tree1.Nodes(j).key
Tree1.Nodes.Add(s0, lvwchild, , ss(i))
End If
End If
Next
Next
checkvalid自定義代碼是用來判斷是否有重命名節點
在2010中代碼應該怎么寫？
uj5u.com熱心網友回復：
Dim RootNode As TreeNode
For Each RootNode In TreeView1.Nodes
If RootNode.text = ss(i) Then
NODEEXIST = True
End If
Next
粗略代碼
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/109520.html
標籤：控件
上一篇：VB ini檔案讀取