Textbox composant Microsoft Forms 2.0 Object LibraryRésolu

Question

Salut,

j'ai ajouté le composant Microsoft Forms 2.0 Object Library our pouvoir mettre autosize a ma textbox mais quand je change le texte qu'elle cela change juste la hauteur et non la largeur donc ça écrit verticalement.

Si quelqu'un sait comment résoudre ce problème pourrait-il m'aider ?

Merci d'avance.

Antho2005

cs_MPi · Accepted Answer

Désolé Dolphin Boy, mais cette méthode ne fonctionne pas très bien.


Je pense que le mieux est de mettre un Label invisible ayant la propriété Autosize à True et la même police que le textbox.

et d'utiliser un code un peu comme ceci


Private Sub Text1_KeyPress(KeyAscii As Integer)

    'on refile le texte au Label plus le dernier caractère entré

    Label1 = Text1 & Chr(KeyAscii)

    'on lui rajoute aussi la largeur de celui-ci

    'ça évite de perdre le premier caractère au niveau du textbox

    Label1.Width = Label1.Width + TextWidth(Chr(KeyAscii))

    

    'on garde un minimum de 1000 twips de largeur au textbox

    If Label1.Width < 1000 Then 'à modifier au besoin

        Text1.Width = 1000  'on ne veut pas qu'il soit tout petit petit...

    Else

        Text1.Width = Label1.Width + TextWidth(Chr(KeyAscii))

    End If


End Sub

MPi

cs_casy · Answer

Attention à la licence de Microsoft Forms 2.0.

Elle n'est pas distribuable. Elle ne doit pas normalement être utilisée sur une machine où Microsoft Office n'est pas installé

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Dolphin Boy · Answer

De plus, je n'ai pas l'impression que ça fonctionne en VB6. J'ai essayé et n'y suis pas arrivé non plus.
Je crois bien qu'il va te falloir passer par une fonction de redimensionnement. Il me semble qu'il y a ça sur le site.

Dolphin Boy · Answer

tiens, je viens de retrouver ça pour redimensionner en largeur sous vb6 en fonction du texte contenu :

Text1.Width = Len(Text1.Text) * Text1.FontSize * Screen.TwipsPerPixelX

Dolphin Boy · Answer

Et avec la textbox de vb6 !

Textbox composant Microsoft Forms 2.0 Object Library

5 réponses

Votre réponse

Discussions similaires