Index du Forum




 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Comment redimensionner et déplacer des TextBox suivent leurs contenus

 
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code
Sujet précédent :: Sujet suivant  
Auteur Message
Dayvid
Administrateur

Hors ligne

Inscrit le: 24 Oct 2012
Messages: 89
Localisation: Vienne - Poitiers (86000)
Masculin Lion (24juil-23aoû)
Point(s): 107
Moyenne de points: 1,20

MessagePosté le: Dim 1 Juin 2014 - 22:33    Sujet du message: Comment redimensionner et déplacer des TextBox suivent leurs contenus Répondre en citant

Salut,

Voici comment redimensionner et déplacer / réajuster des TextBox suivent le texte qu'il contiennent
Chaque TextBox et suivent celui que vous éditer, se réajustera et se redimensionnera suivent le texte qu'il ont.

Votre Form devra contenir 4 TextBox nommer successivement TextBox1, TextBox2, TextBox3 et TextBox4, ils devront êtres coller les uns à coté des autre.

Code:
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)

        ' Redimensionne le TextBox égale à la largeur du texte + 5 Pixels
        MonTextBox.Width = TextRenderer.MeasureText(MonTextBox.Text, MonTextBox.Font).Width + 5 ' + 5 pour que le texte taper soit entièrement visible et non tronqué

        ' Si la largeur du Textbox est inférieur à 15 Pixels
        If MonTextBox.Width < 15 Then
            MonTextBox.Width = 15 ' Redimensionne le TextBox pour qu'il face 15 Pixel de largeur
        End If

        TextBox2.Location = New Point(TextBox1.Location.X + TextBox1.Width, TextBox1.Location.Y)
        TextBox3.Location = New Point(TextBox2.Location.X + TextBox2.Width, TextBox2.Location.Y)
        TextBox4.Location = New Point(TextBox3.Location.X + TextBox3.Width, TextBox3.Location.Y)

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

        Dim MonTextBox As TextBox = DirectCast(sender, TextBox)
        Dim MonTextBoxSize As Size = TextRenderer.MeasureText(MonTextBox.Text, MonTextBox.Font)

        ' Redimensionne le TextBox égale à la largeur du texte + 5 Pixels
        MonTextBox.Width = TextRenderer.MeasureText(MonTextBox.Text, MonTextBox.Font).Width + 5 ' + 5 pour que le texte taper soit entièrement visible et non tronqué

        ' Si la largeur du Textbox est inférieur à 15 Pixels
        If MonTextBox.Width < 15 Then
            MonTextBox.Width = 15 ' Redimensionne le TextBox pour qu'il face 15 Pixel de largeur
        End If

        TextBox3.Location = New Point(TextBox2.Location.X + TextBox2.Width, TextBox2.Location.Y)
        TextBox4.Location = New Point(TextBox3.Location.X + TextBox3.Width, TextBox3.Location.Y)

    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

        Dim MonTextBox As TextBox = DirectCast(sender, TextBox)
        Dim MonTextBoxSize As Size = TextRenderer.MeasureText(MonTextBox.Text, MonTextBox.Font)

        ' Redimensionne le TextBox égale à la largeur du texte + 5 Pixels
        MonTextBox.Width = TextRenderer.MeasureText(MonTextBox.Text, MonTextBox.Font).Width + 5 ' + 5 pour que le texte taper soit entièrement visible et non tronqué

        ' Si la largeur du Textbox est inférieur à 15 Pixels
        If MonTextBox.Width < 15 Then
            MonTextBox.Width = 15 ' Redimensionne le TextBox pour qu'il face 15 Pixel de largeur
        End If

        TextBox4.Location = New Point(TextBox3.Location.X + TextBox3.Width, TextBox3.Location.Y)

    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

        Dim MonTextBox As TextBox = DirectCast(sender, TextBox)
        Dim MonTextBoxSize As Size = TextRenderer.MeasureText(MonTextBox.Text, MonTextBox.Font)

        ' Redimensionne le TextBox égale à la largeur du texte + 5 Pixels
        MonTextBox.Width = TextRenderer.MeasureText(MonTextBox.Text, MonTextBox.Font).Width + 5 ' + 5 pour que le texte taper soit entièrement visible et non tronqué

        ' Si la largeur du Textbox est inférieur à 15 Pixels
        If MonTextBox.Width < 15 Then
            MonTextBox.Width = 15 ' Redimensionne le TextBox pour qu'il face 15 Pixel de largeur
        End If

    End Sub


Ainsi, le TexBox qui est éditer se redimensionnera automatiquement suivent le texte qu'il contiendra mais aussi tous les autres qui le suivent !
N'hésitez pas à donner vos avis Clin d'œil / Conseil
_________________
Le respect n'est pas en option, mais une obligation !
Je serai intransigeant sur ce point-ci !

Veuillez s'il vous plait, aider les membres du mieux que vous le pouvez,
mais ne faites pas tout à leur place non plus, car ce n'est pas les aider !
La programmation est déjà assez difficile comme ça !


Revenir en haut
Publicité






MessagePosté le: Dim 1 Juin 2014 - 22:33    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com