誰有 VB6.0設計真正實用的TreeView控件 實例

Dim XYID(1 To 1000) As Long, QQID As Long

Private Sub Form_Load()

TreeView1.Enabled = True

Dim Nodxx As Node

Set Nodxx = TreeView1.Nodes.Add(, , , 1)

Nodxx.Text = "根目錄"

Nodxx.Image = "TP1"

TreeView1.LabelEdit = tvwManual

Set Nodxx = TreeView1.Nodes.Add(1, tvwChild, "A1", "二級目錄1")

Nodxx.Image = "TP2"

Set Nodxx = TreeView1.Nodes.Add(1, tvwChild, "A2", "二級目錄2")

Nodxx.Image = "TP2"

Set Nodxx = TreeView1.Nodes.Add(1, tvwChild, "A3", "二級目錄3")

Nodxx.Image = "TP2"

...................................

Call SJK(db)

strSQL = "select * from 數據表 Order By ID"

RS.Open strSQL, db, 1, 1

Do While Not RS.EOF

XYID(Nodxx.Index) = RS!Id '註意變量XYID()是全局變量，類型是Long

If RS!分類 = "二級目錄1" Then

Set Nodxx = TreeView1.Nodes.Add("A1", tvwChild)

Nodxx.Text = RS!姓名

Nodxx.Image = "TP3"

Nodxx.Tag = "Site"

ElseIf RS!分類 = "二級目錄2" Then

Set Nodxx = TreeView1.Nodes.Add("A2", tvwChild)

Nodxx.Text = RS!姓名

Nodxx.Image = "TP3"

Nodxx.Tag = "Site"

ElseIf RS!分類 = "二級目錄3" Then

Set Nodxx = TreeView1.Nodes.Add("A3", tvwChild)

Nodxx.Text = RS!姓名

Nodxx.Image = "TP3"

Nodxx.Tag = "Site"

'.......................................

End If

RS.MoveNext

Loop

RS.Close

Set RS = Nothing

db.Close

Set db = Nothing

Nodxx.EnsureVisible

End Sub

Private Sub TreeView1_NodeClick(ByVal Node1 As Node)

If (Node1.Index - 1) > 0 And (Node1.Index - 1) < 100 Then

If Not XYID(Node1.Index - 1) = 0 Then

QQID = Val(XYID(Node1.Index - 1)) '註意變量QQID是全局變量，類型是Long

Call SJK(db)

strSQL = "select * from 數據表 WHERE ID=" & QQID & ""

RS.Open strSQL, db, 3, 3

Label2.Caption = RS!姓名 '在Label2控件顯示內容

'依照上面的語句，將內容顯示在相關控件中，例如Text或Label

'..............................................

RS.Close

Set RS = Nothing

db.Close

Set db = Nothing

End If

End If

End Sub

說明："TP1"、"TP2"、"TP3"是由ImageList控件提供的圖片的關鍵字

窗體就是壹個TreeView控件和壹個ImageList，另外添加顯示控件即可。

上一篇:什麽是redis集群

下一篇:極準的心理測試有答案