Zone Texte

Question

Comment je peux limiter l'ecriture dans une zone de texte que sur sa langueur, c-à-d
ne pas ecrire plus de ce qu'il va
être affiche à l'écran?
exemple:
Text1.Width = 1450
Text1.Text = "Teste de la chaîne"
Donc sur cette langueur la chaîne s'affiche compeletement.
Je veux si j'ajoute d'autres caracteres à la chaîne, que le programme ne me permettera pas de les rajoutes, vu que la langueur de ce qui va être affiche à l'écran est dépasse.
Merci d'avance

DeAtHCrAsH · Answer

Tu as une propriété pour les textbox qui s'appelle maxlenght... elle te permet de limiter le nombre de carctere de ta textbox...

ataeallah · Answer

maxlenght ne permet pas d'ecrire sur toute la langueur d'une zone texte visible

DeAtHCrAsH · Answer

ben apres c a toi d'adapté maxlengght en fonction de la taille de ta textbox

ataeallah · Answer

C'est ça ce que je cherche, est je n'ai pas encore trouve une solution

DeAtHCrAsH · Answer

ben c simple... Tu compte combien de charactere tu peux mettre dans ta textbox sachant qu'ils doivent etre visible... Puis ensuite, tu mets ce nombre dans la proprieté maxlenght

ataeallah · Answer

contre exemple :
La taille de Majuscule et minuscule c'est déferant aussi la taille de "i" c'est déferant de la taille de "m".

DeAtHCrAsH · Answer

Je sais comment faire ... atta je te prepare une ptite fonction tres seimple qui le fera

DeAtHCrAsH · Answer

Voila c'est fait...
Il te faut un label et une textbox
Ton textbox s'appelle Text1 et ton label Label1
Tu mets la proprieté visible de ton label sur false, puis la proprieté autosize sur true

Ensuite tu mets ce bout de code :

Private Sub Text1_Change()
Text1.Text = TestLongueur(Text1.Text)
Text1.SelStart = Len(Text1.Text)
End Sub

Public Function TestLongueur(txt As String)
Dim resultat As Boolean
Label1.Caption = txt
If Label1.Width > Text1.Width Then
txt = Mid(txt, 1, Len(txt) - 1)
MsgBox "Vous avez atteint la limite maximale autorisé", vbCritical, "Limite atteint"
End If

TestLongueur = txt

End Function

Voili voilou ... 
j'espere repondre correctement a ta question....
Sur ce bonne prog et A++

DeAtH_-_CrAsH

ataeallah · Answer

Merci Beaucoup, ça c'est trés bien marche
Et encore Merci
@+

DeAtHCrAsH · Answer

Di riencccccchhhhh :]
Ca fait tjs plaisirs de pouvoir aider....
Bonne chance par la suite ..
A++

DeAtH_-_CrAsH

Zone Texte

10 réponses

Discussions similaires