如何在VB Express 2008中使用树视图控件 [英] How to use the tree view control in VB Express 2008

问题描述

我是vb的新手，所以将不胜感激.

我正在尝试制作一个允许我浏览不同类别的树状视图控件.

这是我要完成的工作:

1. 从第二个节点中选择并在列表框中显示第三个节点

2. 仅显示根节点，直到将项目实际添加到数据库为止

3. 在文本框中输入Janis Joplin并将其从树上的Janp Joplin中取出视图或输入了任何艺术家

4. 相应的类别也被添加到树视图中

5. 按艺术家，专辑，流派等类别的字母顺序对项目进行排序 字体>

5.       Sort the items in alphabetical order by category i.e. Artist, album, genre, etc

再次感谢您的帮助，

-PCRider

推荐答案

以下是我正在玩的一些代码(尽管不起作用);
再次感谢您的帮助.

预先感谢，





昏暗的音乐收藏作为新的ArrayList()

昏暗的音乐收藏作为新的TreeNode(音乐收藏") )
collectionNode.Tag = musiccollection

Dim artistListingNode作为New TreeNode("Aritst Listings")
musiccollection = New ArrayList()
Musiccollection.Add(New ListViewists' ，2))

musiccollection.Add(New ListViewItem(投影"，3))
musiccollection.Add(New ListViewItem(问题"，2))
musiccollection.Add( New ListViewItem("Addendums"，2))
artistListingNode.Tag = musiccollection

Dim genreListingNode = New TreeNode("Music Styles")

musiccollection = New ArrayList() .Add(New ListViewItem("Quarterly Filings"，3))
musiccollection.Add(New ListViewItem("New 1099's ,, 2))
音乐collection.Add(New ListViewItem("New W2's ,, 3))
genreListingNode.Tag = musiccollection
Dim trackListingNode = New TreeNode("Song List")
)
musiccollection.Add(New ListViewItem(董事会报告"，2))
musiccollection.Add(New ListViewItem("OEO辞职信"，2))
musiccollection.Add(New ListViewItem("SEC调查文件"，3))
trackListingNode.Tag = musiccollection


collectionNode.Nodes.Add(artistListingNode)
collectionNode.Nodes.Add(genreListingNode)collection. Nodes.Add(trackListingNode)

TreeView1.Nodes.Add(collectionNode)
TreeView1.ImageList = tvImages

的lstAlbums.SmallImageList = tvImages 全部= S视图. br>结束子'frmMain_Load
私有子树Treeview1_BeforeCollapse(ByVal发送者为[Object]， ByVal e As TreeViewCancelEventArgs)
e.Node.ImageIndex = 0
e.Node.SelectedImageIndex = 0
End Sub'Treeview1_BeforeCollapse
Private Sub Treeview1_BeforeExpand(ByVal Sender AsEvent作为对象[Object]， )
e.Node.ImageIndex = 1
e.Node.SelectedImageIndex = 1
End Sub'Treeview_BeforeExpand
私有子Treeview1_AfterSelect(ByVal发送者为[对象]，ByVal作为TreeViewEventArgs) lstAlbums.Items.Clear()

Dim音乐收藏为ArrayList = CType(e.Node.Tag，ArrayList)

Dim lvi作为ListViewItem
对于每个lvi音乐集合
.Items.Add(lvi)
下一个lvi

当我单击并单击treview中的节点时，它仍未在llstview中列出.
我们将提供任何帮助

Here's some code I've been playing around with (although it doesn't work);
Again any help would be appreciated.

Thanks in advance,

PCRider


    Dim musiccollection As New ArrayList()

        Dim collectionNode As New TreeNode("Music Collection")
        collectionNode.Tag = musiccollection

        Dim artistListingNode As New TreeNode("Aritst Listings")
        musiccollection = New ArrayList()
        musiccollection.Add(New ListViewItem("Artists", 2))

        musiccollection.Add(New ListViewItem("Projections", 3))
        musiccollection.Add(New ListViewItem("Issues", 2))
        musiccollection.Add(New ListViewItem("Addendums", 2))
        artistListingNode.Tag = musiccollection

        Dim genreListingNode = New TreeNode("Music Styles")
        musiccollection = New ArrayList()
        musiccollection.Add(New ListViewItem("Quarterly Filings", 3))
        musiccollection.Add(New ListViewItem("New 1099's", 2))
        musiccollection.Add(New ListViewItem("New W2's", 3))
        genreListingNode.Tag = musiccollection

        Dim trackListingNode = New TreeNode("Song List")
        musiccollection = New ArrayList()
        musiccollection.Add(New ListViewItem("Board of Directors Report", 2))
        musiccollection.Add(New ListViewItem("OEO Resignation Letter", 2))
        musiccollection.Add(New ListViewItem("SEC Investigation Filings", 3))
        trackListingNode.Tag = musiccollection

        collectionNode.Nodes.Add(artistListingNode)
        collectionNode.Nodes.Add(genreListingNode)
        collectionNode.Nodes.Add(trackListingNode)

        TreeView1.Nodes.Add(collectionNode)
        TreeView1.ImageList = tvImages

        lstAlbums.SmallImageList = tvImages
        lstAlbums.View = View.SmallIcon
    End Sub 'frmMain_Load
    Private Sub Treeview1_BeforeCollapse(ByVal Sender As [Object], ByVal e As TreeViewCancelEventArgs)
        e.Node.ImageIndex = 0
        e.Node.SelectedImageIndex = 0
    End Sub 'Treeview1_BeforeCollapse
    Private Sub Treeview1_BeforeExpand(ByVal Sender As [Object], ByVal e As TreeViewCancelEventArgs)
        e.Node.ImageIndex = 1
        e.Node.SelectedImageIndex = 1
    End Sub 'Treeview_BeforeExpand
    Private Sub Treeview1_AfterSelect(ByVal Sender As [Object], ByVal e As TreeViewEventArgs)
        lstAlbums.Items.Clear()

        Dim musiccollection As ArrayList = CType(e.Node.Tag, ArrayList)

        Dim lvi As ListViewItem
        For Each lvi In musiccollection
            lstAlbums.Items.Add(lvi)
        Next lvi

When I go and click on a node in the treview, it still is not listing in the llstview.
Any help would be appreciated

这篇关于如何在VB Express 2008中使用树视图控件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！