Treeview ¿Ø¼þ£ºÃû³Æ Treeview1£»

¡¡¡¡Imagelist ¿Ø¼þ£ºÃû³Æ Imagelist1£¬²¢ÔڸÿؼþÖзÅÖÃÈýÕŸöÐÔͼƬ£¨32¡Á32£©£¬½¨Á¢Ë÷Òý1¡¢2¡¢3£»£¨·½·¨£ºÔÚImagelist ¿Ø¼þÉϵ¥»÷Êó±êÓÒ¼üÑ¡ÔñÊôÐÔ£©

¡¡¡¡Label ¿Ø¼þ£ºÃû³Æ·Ö±ðΪLab£¨0£©¡¢Lab£¨1£©£¬Caption·Ö±ðΪ¡°¸¸½Úµã£º¡±¡¢¡°×ӽڵ㣺¡±£»

¡¡¡¡Textbox ¿Ø¼þ£ºÃû³Æ·Ö±ðΪTxt£¨0£©¡¢Txt£¨1£©£¬text¶¼Îª¡°¡±£»

¡¡¡¡commandbutton ¿Ø¼þ£ºÃû³ÆΪϵͳĬÈÏ£¬Caption·Ö±ðΪ¡°Ìí¼Ó¡±¡¢¡°Õ¹¿ª¡±¡¢¡°ÊÕÆ𡱡¢¡°ÅÅÐò¡±¡¢¡°É¾³ý¡±¡¢¡°Í˳ö¡±£»

¡¡¡¡½«ÏÂÁдúÂë¼ÓÈëµ½´úÂë¿ò£º

Option Explicit

Dim I As Integer
Dim J As Integer
Dim nodx As Node
Dim CunZai As Boolean ¶¨Òå±äÁ¿

Private Sub Command1_Click()
¡¡If Txt(0).Text <> "" And Txt(1).Text <> "" Then ²»ÔÊÐí½¨Á¢Áã×ֽڵĸ¸½ÚµãºÍ×Ó½Úµã
¡¡¡¡CunZai = False
¡¡¡¡J = TreeView1.Nodes.Count
¡¡¡¡For I = 1 To TreeView1.Nodes.Count ¼ì²éÐÂÊäÈëµÄ¸¸½ÚµãÃû³ÆÊÇ·ñ´æÔÚ
¡¡¡¡¡¡If TreeView1.SelectedItem.Children > 0 Then
¡¡¡¡¡¡¡¡If Txt(0).Text = TreeView1.Nodes(I).Text Then CunZai = True
¡¡¡¡¡¡¡¡End If
¡¡¡¡Next I
¡¡¡¡If CunZai = True Then Èô´æÔÚ, ÔòÔÚ¸¸½ÚµãϽ¨Á¢×Ó½Úµã
¡¡¡¡¡¡Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J,
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ Txt(1).Text, 3)
¡¡¡¡Else ,Èô²»´æÔÚ,Ôò½¨Á¢¸¸½ÚµãºÍ×Ó½Úµã
¡¡¡¡¡¡Set nodx = TreeView1.Nodes.Add(, , Txt(0).Text, Txt(0).Text, 1)
¡¡¡¡¡¡Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J,_
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Txt(1).Text, 3)
¡¡¡¡End If
¡¡¡¡TreeView1.Refresh
¡¡ElseIf Txt(0).Text = "" Then MsgBox "ÇëÊäÈ븸½ÚµãÃû³Æ!", vbInformation, "¾¯¸æ£¡"
¡¡ ϵͳÌáʾ
¡¡ElseIf Txt(1).Text = "" Then MsgBox "ÇëÊäÈë×Ó½ÚµãÃû³Æ!", vbInformation, "¾¯¸æ£¡"
¡¡End If
End Sub

Private Sub Command2_Click()
¡¡For I = 1 To TreeView1.Nodes.Count
¡¡¡¡TreeView1.Nodes(I).Expanded = True Õ¹¿ªËùÓнڵã
¡¡Next I
End Sub

Private Sub Command3_Click()
¡¡For I = 1 To TreeView1.Nodes.Count
¡¡¡¡TreeView1.Nodes(I).Expanded = False ÊÕÆðËùÓнڵã
¡¡Next I
End Sub

Private Sub Command4_Click()
¡¡TreeView1.Sorted = True ÅÅÁÐ˳Ðò
End Sub

Private Sub Command5_Click()
¡¡If TreeView1.SelectedItem.Index <> 1 Then
¡¡¡¡TreeView1.Nodes.Remove TreeView1.SelectedItem.Index ɾ³ýÑ¡¶¨µÄ½Úµã
¡¡End If
End Sub

Private Sub Command6_Click()
¡¡End Í˳ö³ÌÐò
End Sub

Private Sub Form_Load()
¡¡TreeView1.LineStyle =TvwTreeLines ÔÚÐֵܽڵãºÍ¸¸½ÚµãÖ®¼äÏÔʾÏß
¡¡TreeView1.ImageList = ImageList1 Á´½ÓͼÏñÁÐ
¡¡TreeView1.Style = tvwTreelinesPlusMinusPictureText
¡¡Ê÷×´Íâ¹Û°üº¬È«²¿ÔªËØ
¡¡Set nodx = TreeView1.Nodes.Add(, , "ÆÑ×ÓÃ÷", "ÆÑ×ÓÃ÷", 1)
¡¡½¨Á¢Ãû³ÆΪ"ÆÑ×ÓÃ÷"µÄ¸¸½Úµã,Ñ¡ÔñË÷ÒýΪ1µÄͼÏñ
¡¡Set nodx = TreeView1.Nodes.Add("ÆÑ×ÓÃ÷", tvwChild, "child01", "ÊÕ¼þÏä", 3)
¡¡ÔÚ"ÆÑ×ÓÃ÷"¸¸½ÚµãϽ¨Á¢"ÊÕ¼þÏä"×Ó½Úµã,Ñ¡ÔñË÷ÒýΪ3µÄͼÏñ
¡¡Set nodx = TreeView1.Nodes.Add("ÆÑ×ÓÃ÷", tvwChild, "child02", "·¢¼þÏä", 3)
¡¡ÔÚ"ÆÑ×ÓÃ÷"¸¸½ÚµãϽ¨Á¢"·¢¼þÏä"×Ó½Úµã,Ñ¡ÔñË÷ÒýΪ3µÄͼÏñ
¡¡CunZai = False
End Sub

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
¡¡Node.ExpandedImage = 2 ½Úµã±»Õ¹¿ªÊ±,Ñ¡ÔñË÷ÒýΪ2µÄͼÏñ
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
¡¡If TreeView1.SelectedItem.Children = 0 Then ¼ì²éÊÇ·ñÓÐ×Ó½Úµã,0ΪÎÞ
¡¡¡¡For I = 1 To TreeView1.Nodes.Count
¡¡¡¡If TreeView1.Nodes(I).Selected Then
¡¡¡¡¡¡MsgBox "ÄúÑ¡ÔñµÄÊÇ£º¡°" & TreeView1.Nodes(I).FullPath & "¡±×ӽڵ㣡"
¡¡¡¡¡¡ ϵͳÌáʾ
¡¡¡¡End If
¡¡¡¡Next I
¡¡End If
End Sub

--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
Ê÷ÊÓTreeViewÊ÷ÊÓµÄʹÓü¼ÇÉ 2003-11-18 9:26:35