PB TREEVIEW en vb net

Question

Bonjour, 
salut tout le monde
j'ai une table appelé typdocument de ma base de données qui contient les types de  documents et leurs  images
le schéma de la table est :
{TYPDOCID, NOM_TYPDOC, IMAGE_DATA}
je suis confronté un pb je n'arrive pas afficher toutes les images de ma table au niveau de mon treeview.   mon code  n'affiche qu'une seule  image  au niveau de mon treeview.  . j'aimerai afficher toutes les images de ma table dans mon treeview .si quelqu'un a une idée qu'il me vienne en aide  . merci voici mon code :

Public Sub Retrieve_mod()
        'procédure de récupération des données 
        Dim cn As New SqlConnection("initial catalog=GCAV ; data source=sav-PC ; integrated security=true")
        'LvwMod.Clear()
        TreeView1.Nodes.Clear()

        Dim imglist As New ImageList
        imglist.ColorDepth = ColorDepth.Depth32Bit
        TreeView1.ImageList = imglist

        'MyTreeView.Size = New System.Drawing.Size(16, 16)

        Dim strSQL As String = "select * from TYPDOCUMENT"
        Dim dt_image As New DataTable
        Dim dt As New DataTable
        cmd = New SqlCommand(strSQL, cn)
        Try
            cn.Open()
            Dim adapter = New SqlDataAdapter(cmd)
            adapter.Fill(dt_image)

            Dim ad = New SqlDataAdapter(cmd)
            ad.Fill(dt)

            For Each dr As DataRow In dt_image.Rows

                Dim img_buffer = CType(dr("IMAGE_DATA"), Byte())
                Dim img_stream As New MemoryStream(img_buffer, True)
                img_stream.Write(img_buffer, 0, img_buffer.Length)
                imglist.Images.Add(dr("TYPDOCID").ToString(), New Bitmap(img_stream))
                'TreeView1.ImageKey = dr("TYPDOCID").ToString
                'TreeView1.Text = dr("NOM_TYPDOC").ToString
                img_stream.Close()

                parentNode = TreeView1.Nodes.Add(dr("NOM_TYPDOC").ToString())

            Next

            TreeView1.LineColor = Color.Red
            TreeView1.ExpandAll()
        Catch ex As Exception
            MsgBox(ex.Message)
            cn.Close()
        End Try

    End Sub

vb95 · Answer

Bonjour !
 Pour poser un code voir ceci : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
C'est beaucoup plus lisible .
Merci

PB TREEVIEW en vb net

1 réponse

Votre réponse

Discussions similaires