Discussion :

[Lord - Nelson]

Bonjour,

Je voudrait redimensionner en largeur un texbox suivent le texte qu'il y à dedans.
Il faut passer je pense par des commande via les graphique pour la mesure de la largeur en pixel du texte.

Voici une page que l'on m'as donné: http://msdn.microsoft.com/fr-fr/libr...vs.110%29.aspx
Cependant je n'est pas réussi à l'intégrer à mon code car moi je veux que ça se d’éclanche chaque fois que le texte de mon texbox change.

Pouvez vous m'aider svp car je ne sais vraiment pas comment faire

[yaqqq]

Essayez:

Code :

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

1
2
3
4
5
6
7
 
    ' textbox1 sur form
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim txt As TextBox = DirectCast(sender, TextBox)
        txt.Width = TextRenderer.MeasureText(txt.Text, txt.Font).Width + 10
    End Sub

Ou (plus avance):

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
 
     ' pour cet exemple: textbox1.multiline = true 
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim maxwidth = 200
        Dim txt As TextBox = DirectCast(sender, TextBox)
 
        Dim txtsize As Size = TextRenderer.MeasureText(txt.Text, txt.Font)
 
        If txt.Width <= maxwidth Then
            txt.Width = txtsize.Width + 10
        Else
            txt.Height = (CInt(txtsize.Width / txt.Width) + 3) * txtsize.Height
        End If
    End Sub

[Lord - Nelson]

Ni quel chrome, merci beaucoup

Edit: Après modifications, voici le résulta:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
 
        Dim MonTextBox As TextBox = DirectCast(sender, TextBox)
        Dim MonTextBoxSize As Size = TextRenderer.MeasureText(MonTextBox.Text, MonTextBox.Font)
 
        MonTextBox.Width = TextRenderer.MeasureText(MonTextBox.Text, MonTextBox.Font).Width + 5
 
        If MonTextBox.Width < 15 Then
            MonTextBox.Width = 15
        End If
 
    End Sub