Discussion :

[elinfo]

Bonjour,

Comment je peux diminuer la hauteur d'une listebox selon le nombre de ligne afficher?



Merci

[Phil Rob]

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
Public Class FBase  ' C'est mon Form ...
    ' Il y a un bouton BAjoute et un autre BRetire pour tester les ajouts et retraits de ligne de la Listbox nommée LBTest
    Dim Test As Integer = 0
    Private Sub BAjoute_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BAjoute.Click
        Test += 1
        LBTest.Items.Add(Test) ' Ajouter une ligne, j'y écris la valeur de la variable Test (juste pour l'exemple)
        LBTest.Height = LBTest.Font.Height * LBTest.Items.Count ' J'adapte la hauteur de ma ListBox
    End Sub
    Private Sub BRetire_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BRetire.Click
        If LBTest.Items.Count > 0 Then
            LBTest.Items.RemoveAt(LBTest.Items.Count - 1) ' Supprimer une ligne, je supprime la dernière ligne présente (juste pour l'exemple)
        End If
        LBTest.Height = LBTest.Font.Height * LBTest.Items.Count ' J'adapte la hauteur de ma ListBox
    End Sub
End Class

:-)