Images dans listview

Version imprimable

1 pièce(s) jointe(s)

Bonjour:
Je travail sur une application en visual studio 2015 (vb net).
Je charge des images dans listview,en usant de ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
  Private Sub catchoiceform_Load(sender As Object, e As EventArgs) Handles Me.Load
        If dbconn.State = ConnectionState.Open Then
            dbconn.Close()
        End If
 
        Try
            DataGridView1.BackgroundColor = Color.FromArgb(240, 145, 110)
            Me.BackColor = Color.FromArgb(20, 20, 20)
            ListView1.BackColor = Color.FromArgb(20, 20, 20)
            dbconn.Open()
            Dim ds As New DataSet
            Dim sqladap As New OleDbDataAdapter("SELECT *  FROM categorie", dbconn)
            sqladap.Fill(ds)
            ' Dim var1, myfile As String
            ListView1.LargeImageList = ImageList1
            ListView1.SmallImageList = ImageList1
            ListView1.View = View.LargeIcon
            ListView1.Columns.Add("Catégorie", 250)
            ListView1.Font = New Font(ListView1.Font.FontFamily, 14, ListView1.Font.Style)
            Dim i As Integer
            Dim lst As ListViewItem
            For i = 0 To ds.Tables(0).Rows.Count - 1
                If Dir(My.Application.Info.DirectoryPath & "\photos\Categories\" & ds.Tables(0).Rows(i)(0) & ".jpg") <> vbNullString Then
                    ImageList1.Images.Add(System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\photos\Categories\" & ds.Tables(0).Rows(i)(0) & ".jpg"))
                Else
                    ImageList1.Images.Add(System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\photos\Categories\logo.jpg"))
                End If
                lst = ListView1.Items.Add(ds.Tables(0).Rows(i)(1), i)
            Next
 
            Me.CenterToParent()
 
        Catch ex As Exception
        End Try
    End Sub

les images s'affichent.mais elles sont séparées par un segment trop large à mon gout.J'aimerai bien les rapprocher le plus possible Je bloque,aidez moi et merci.Pièce jointe 418341

09/10/2018, 18h12
wallace1

Bonsoir,

Tu pourrais utiliser un TableLayoutPanel auquel tu ajouterais dynamiquement des PictureBox comme ça il n'y aura pas cette contrainte liée au Control Listview en mode vignette.

++
09/10/2018, 20h26
icomicar

re

Bonsoir
Merci de votre attention.Je vais me documenter et essayer de suivre votre conseil.Si toutefois vous avez des références à me suggérer ce sera sympa de votre part.

1 pièce(s) jointe(s)

Bonsoir
Après quelques tâtonnements,voici ou j'en suis.j'ai utilisé ce code
Code:

1 2 3 4 5 6 7 For i = 0 To ds.Tables(0).Rows.Count - 1 Dim pic As New PictureBox pic.BackgroundImageLayout = ImageLayout.Stretch pic.BackgroundImage = Image.FromFile(My.Application.Info.DirectoryPath & "\photos\Categories\" & ds.Tables(0).Rows(i)(0) & ".jpg") TableLayoutPanel1.Controls.Add(pic, 0, 1) Next
et voici le resultat Pièce jointe 418509

plutôt satisfaisant comparé au premier.Mais il me manque les titres.En plus maintenant je bloque sur le stade suivant.Je veux /si je clic sur l'image qui représente une catégorie,les images des articles de cette catégorie s'affichent dans un autre tablelayoutpanel.

Pour récupérer l'event Click sur tes PictureBox il faut t'abonner dynamiquement :
Code:

1 2 3 4 5 6 7 8 9 10 For i = 0 To ds.Tables(0).Rows.Count - 1 Dim pic As New PictureBox pic.name = i.tostring AddHandler pic.Click, addressof(Pcbs_Click) pic.BackgroundImageLayout = ImageLayout.Stretch pic.BackgroundImage = Image.FromFile(My.Application.Info.DirectoryPath & "\photos\Categories\" & ds.Tables(0).Rows(i)(0) & ".jpg") TableLayoutPanel1.Controls.Add(pic, 0, 1) Next
Code:

1 2 3 4 5 private sub Pcbs_Click(sender as object, e as eventargs) Dim pcb as picturebos = trycast(sender, Picturebox) Msgbox(pcb.Name & " Clicked") End sub
C du pseudo code.... car j'ai pas ouvert VS.... donc il faut l' adapter.

Pour pouvoir ajouter les titres (dynamiquement toujours) il faudrait dans chaque case de ton TablelayoutPanel ajouter un SplitContainer (Horizontal) puis ajouter PictureBox et Label par exemple. Pourquoi pas développer un UserControl contenant SplitContainer horizontal avec PictureBox et Label. Le but etant de pouvoir identifier chaque UserControl avec la propriété .Tag pour savoir le moment venu sur quel control tu agis.

A+

09/10/2018, 22h27
icomicar

re

Bonsoir
C'est bon.Résolu
Un très grand merci.