TextBox

Question

Bjr &#224; tous
Qui pourrait m'expliquer pourquoi quand je fixe une maxlength &#224; ma textBox il accepte toujours n-1 caract&#232;re.CAD par exemple je fixe maxlengt &#224; 3 et lors de l'ex&#233;cution je ne peux saisir que 2 caract&#232;res.
Et comment faire aussi ce qui suit: j'ai 2 textBox que je fixe maxlength &#224; 2 et je voudrais quand le maxlength du 1er textBox atteint ;le focus passe automatiquement au 2eme textBox.

cs_Willi · Answer

Bonjour,
VB6 ? .net ?

ScSami · Answer

Willi pose la bonne question... Et pour &#233;viter qu'on te la repose &#224; chaque fois, il serait bien que tu penses &#224; toujours le pr&#233;ciser.

Mais, de mani&#232;re g&#233;n&#233;rale, je dirais que, peu importe que ce soit n ou n-1 (m&#234;me si ce n'est pas normal [v&#233;rifie qu'il n'y ai pas de caract&#232;res &#224; la con comme un CHR(13) ou 10 ou autre]) du moment que tu obtiens ce que tu voulais!!!

Pour que le focus passe automatiquement (&#224; la mani&#232;re de la saisie des num&#233;ros de licence lors de l'install de certains softs [vilains softs que sont ceux qui ont ce syst&#232;me... rrrr]), il faut, d&#233;j&#224;, utiliser une proc&#233;dure &#233;venementielle du type KeyPress ou KeyUp... A l'int&#233;rieur, il te suffit de tester le nombre de caract&#232;re via, par exemple, Len(varString).

D'autres questions ?

Enjoy 

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

gonclo · Answer

oui excuse moi c'est en VB6.

econs · Answer

Salut,


Il faut utiliser l'&#233;venement KeyUp :





Private Sub Text1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If Len(Text1.Text) = Text1.MaxLength Then

        Text2.SetFocus

    End If

End Sub


Pour ton probl&#232;me de nombre de caract&#232;res, ben ... c'est pas normal
du tout. Si MaxLength vaut 4, tu ne peux entrer que 4 caract&#232;res. S'il
vaut 0, tu n'es limit&#233; que par la capacit&#233; de la textbox (32Ko il me
semble).

Pas de d&#233;calage de 1 ...


Manu

econs · Answer

Oups, j'ai cr&#233;&#233; &#231;&#224; sous VBA ... Le Type de la variable KeyCode devra &#234;tre chang&#233; pour fonctionner en VB6.







 Private Sub Text1_KeyUp(ByVal KeyCode As Integer, ByVal Shift As Integer)

     If Len(Text1.Text) = Text1.MaxLength Then

         Text2.SetFocus

     End If

 End Sub

Manu

cs_Willi · Answer

Comme ScSami dit cela importe peu pour n-1....

Voici pour ta 2i&#232;me question: Quand le MaxLength du textbox1 est atteint on met le focus sur la textbox2

Private Sub Text1_Change()


    If Len(Text1.Text) = Text1.MaxLength Then
        Text2.SetFocus
    End If
    
End Sub



<HR width="100%" SIZE=2>



 Si la r&#233;ponse te conviens merci de l'accepter

econs · Answer

Oups, j'ai cr&#233;&#233; &#231;&#224; sous VBA ... Le Type de la variable KeyCode devra &#234;tre chang&#233; pour fonctionner en VB6.







 Private Sub Text1_KeyUp(ByVal KeyCode As Integer, ByVal Shift As Integer)

     If Len(Text1.Text) = Text1.MaxLength Then

         Text2.SetFocus

     End If

 End Sub

Manu

gonclo · Answer

SALUT

Que faudrait-il faire pour le propl&#232;me de nombre de caract&#232;re?

cloclo

mfaure · Answer

Salut

pour passer automatiquement à la textbox suivante, tu peux aussi utiliser le paramètre "Autotab" de la textbox, et le mettre en "True"

quite simple ;)

Max

TextBox

9 réponses

Discussions similaires