Discussion :

[amateur23]

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 VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zeratec]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[amateur23]

bonsoir
merci infiniment