Discussion :

[veens777]

Bonjour,

Est possible de faire en sorte que lorsque l'utilisateur écrit dans un textbox, celui-ci s'ajuste automatiquement en hauteur en fonction du nombre de ligne...
je sais qu'il est possible de récupérer le nombre de lignes avec la fonction "textbox1.lines.length" mais il s'agit du nb de ligne au sens strict or il me faudrait le nombre de ligne "visuelle" c'est à dire celle affichée dans le textbox sans forcement qu'il y ait un retour à la ligne...
récupérer le nombre de caractère ne m'avance pas tant que ça j'ai essayer de calculer le nombre moyen de caractères contenu dans un ligne de mon textbox et d'ajuster la hauteur en fonction mais c'est trop imprécis comme méthode...

Merci pour votre aide.

Cordialement.

[_PascalC_]

Pour récupérer le nombre de lignes réellement affiché par le contrôle TextBox tu pourrais procéder comme ça par exemple :

Code :

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

1
2
3
4
5
6
7
 
Dim nbLignes As Integer
If TextBox1.TextLength = 0 Then
  nbLignes = 0 '...voire même 1 ici dans ton cas
Else
  nbLignes = TextBox1.GetLineFromCharIndex(TextBox1.TextLength - 1) + 1
End If

Après tu n'as plus qu'à ajuster la hauteur du contrôle, ce qui ne devrait pas te poser trop problème

[veens777]

Ok merci ! Ca marche nikel...

ajustement automatique de la hauteur du textbox pour un font = Microsoft Sans Serif; 8,25pt :

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
    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        'récupération du nb de lignes
        Dim nbLignes As Integer
        If TextBox1.TextLength = 0 Then
            nbLignes = 1
        Else
            nbLignes = TextBox1.GetLineFromCharIndex(TextBox1.TextLength - 1) + 1
        End If
 
        'ajustement de la hauteur du textbox en fonction du nb de lignes
        If nbLignes = 1 Then
            TextBox1.Height = 20
        Else
            TextBox1.Height = 20 + ((nbLignes - 1) * 14) - ((nbLignes - 2) * 1)
        End If
    End Sub