LArgeur de TextBox

Question

Hé oui, c'es encore moi, donc bonjour, je vais vous exposer mon petit problème !

En fait, j'ai par ce site appris à crer dynamiquement un controle :

        tex = tex + 1
        Picture1.ScaleMode = 3
        xs = X
        ys = Y
        msg = InputBox("Quel message voulez-vous affichez dans le TextBox ?", "Message")
        Load Text12(tex)
        Text12(tex).Visible = True
        Text12(tex).Left = X
        Text12(tex).Top = Y
        Text12(tex).Text = msg
        
Ces lignes de codes fonctionnent ! Le seul ennuis, c'est que comme ,vous le voyez, c'est en exécution que nous définissons le texte que contiendra le TextBox et le truc, c'est qu'il faudra que je réussisse à ce que le TextBox prenne juste la largeur des caractère ! Donc si noous tapons Bonour, je veux ke ca donne ca :

_______
|Bonjour|

Bon c'est engros, donc si vous avez compris, je veut qu'il se retaille !

xxx Ziman xxx

gplog · Answer

Salut,
Je sait pas si j'ai tout compris, mais j'ai ptet une idée pour toi :
Tu peut mesurer la taille d'un texte avec la fonction "TextWidth"
Donc pour ton truc : 
TextBox.width= TextWidth(MessageAAfficher)

@plus

Ziman · Answer

Euh, ca marche po bcp ! Ce ke je veu c que le textbox se remdimmension juste assez cpour contenir tout le texte !

xxx Ziman xxx

gplog · Answer

J'ai fait un essai, et c'est vrai que ça bouffe un peu la fin du texte, mais en rajoutant 100, la dimension tombe juste :

TextBox.width= TextWidth(MessageAAfficher)+100

Comme ça ça devrait être meilleur.

crenaud76 · Answer

Petite précision au passage 
Les "100" à ajouter correspondent en fait aux bordures de la textbox. Text1.text donne la largeur "hors-tout" de la textbox, donc la taille disponible dedans pour le texte est effectivement légèrement plus petite.

Christophe R.

Ziman · Answer

Merci à vous tous, cela a résolu mon problème, merci bcp !

xxx Ziman xxx

LArgeur de TextBox

5 réponses

Discussions similaires