Diminuer colonne ListView

Version imprimable

bonjour le forum
voila ma question dans un usf j'ai un listview ou les colonnes sont trop grand peu pas voir le tableau dans sa totalité
se que je recherche comment diminuer ses colonnes svp

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
 With ListBox1
        .ColumnCount = UBound(Tableau, 2)
        'En option (à adapter)
        ' .Top = 20
        .Width = 80 * UBound(Tableau, 2)
        DoEvents
        .List() = Tableau
    End With
 
 
    For i = 1 To UBound(Tableau, 2)
        Set Lbl = Me.Controls.Add("Forms.Label.1")
        With Lbl
            .Left = ListBox1.Left + ((i - 1) * 80)  ''ListBox1.Left + 7 + ((i - 1) * 80)
            .Top = ListBox1.Top - 10
            .Width = 80
            .Height = 10
            .Caption = Plage.Cells(1, i)
            .BackColor = RGB(255, 255, 255)    ''RGB(224, 224, 224)
            .Font.Bold = True
            .BorderColor = RGB(0, 0, 0)
            .BorderStyle = 1
        End With
    Next i
 
End Sub

merci pour votre aide

Ce code est bien celui de la création de la listView ?
Pour moi ce code gère les propriétés de ta ListBox et Label.

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
With ListBox1
   .ColumnCount = UBound(Tableau, 2)
   'En option (à adapter)
   ' .Top = 20
   .Width = 80 * UBound(Tableau, 2)
   DoEvents
   .List() = Tableau
End With
 
 
For i = 1 To UBound(Tableau, 2)
   Set Lbl = Me.Controls.Add("Forms.Label.1")
   With Lbl
      .Left = ListBox1.Left + ((i - 1) * 80) ''ListBox1.Left + 7 + ((i - 1) * 80)
      .Top = ListBox1.Top - 10
      .Width = 80
      .Height = 10
      .Caption = Plage.Cells(1, i)
      .BackColor = RGB(255, 255, 255) ''RGB(224, 224, 224)
      .Font.Bold = True
      .BorderColor = RGB(0, 0, 0)
      .BorderStyle = 1
   End With
Next i
 
End Sub

Après l'instanciation de ta ListView, tu dois avoir une propriété du style Me.ListView.Column.Width qui devrait faire ce que tu souhaites.

Le forum VB.NET serait plus en mesure de répondre à ta demande ;)

17/04/2020, 23h37
amateur23

bonsoir
merci infiniment