第10章 高级控件.ppt

第10章 高级控件 五、 TreeView控件和ListView控件 1．TreeView控件 TreeView控件以分层的形式显示数据，允许用户随意扩展或折叠节点。 在TreeView控件中经常用到Add函数，可在TreeView控件中产生节点对象，格式如下： [对象名.]Nodes.Add([Relative],[RelationShip] , [Key],[Text],[Image],[SelectedImage]) 例10-10 Dim I As Integer , J As Integer, nodx As Node, flag As Boolean 定义变量 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) flag = False End Sub Private Sub Cmdadd_Click() If Txtp.Text And Txtc.Text Then flag = False : J = TreeView1.Nodes.Count For I = 1 To J If TreeView1.SelectedItem.Children 0 Then If Txtp.Text = TreeView1.Nodes(I).Text Then flag = True End If Next I If flag = True Then Set nodx = TreeView1.Nodes.Add(Txtp.Text, tvwChild, _ child J, Txtc.Text, 3) Else 若不存在,则建立父节点和子节点 Set nodx = TreeView1.Nodes.Add(, , Txtp.Text, Txtp.Text, 1) Set nodx = TreeView1.Nodes.Add(Txtp.Text, tvwChild, _ child J, Txtc.Text, 3) End If TreeView1.Refresh ElseIf Txtp.Text = Or Txtc.Text = Then MsgBox “父、子节点不能为空!”, vbInformation, “警告！ End If End Sub Private Sub Cmdunf_Click() 展开所有节点 For I = 1 To TreeView1.Nodes.Count TreeView1.Nodes(I).Expanded = True Next I End Sub Private Sub Cmdfold_Click() 收起所有节点 For I = 1 To TreeView1.Nodes.Count TreeView1.Nodes(I).Expanded = False Next I End Sub Private Sub Cmddel_Click() If TreeView1.SelectedItem.Index 1 Then TreeView1.Nodes.Remove TreeView1.SelectedItem.Index 删除选定的节点 End If End Sub 2．ListView控件 用ListView显示选中的节点对象的记录集。 在ListView控件中也用到Add函数，可在ListView控件中产生图形列表框，格式如下： [对象名. ]ListItems.Add([Index],[Key] ,[Text] ,[Icon],[SmallIcon]) Private Sub Form_Load() 在图片下方添加文字 D