Dans l'évênement "GotFocus" tu insère le code suivant :
Code :
Text1.SelStart = Len(Text1..text)
:sol:
;)
Bendes
Dans l'évênement "GotFocus" tu insère le code suivant :
Code :
Text1.SelStart = Len(Text1..text)
:sol:
jmbocquet
Code :
Private Sub txtNum_Change()
If Len(MaFeuille.txtNum) > 4 Then
MaFeuille.txtNum = Left(MaFeuille.txtNum, 4)[G]
MaFeuille.txtNum.SetFocus 'donne le focus au contrôle txtNum
SendKeys "{END}" 'simule un appuie sur "Fin"[/G]
End If
End Sub
[edtdd]--Message édité par jmbocquet--[/edtdd]
dinbougre888
erf en fait moi je veux limiter la saisie d'un champ à 4 caractere slmt
donc si ça dépasse 4 caractere il supprime le 5è et après je veux kil se positionne sur la fin de la chaine
Private Sub txtNum_Change()
If Len(MaFeuille.txtNum) > 4 Then
MaFeuille.txtNum = Left(MaFeuille.txtNum, 4)
End If
End Sub
mais il se positionne en début
Bloodymary_
obj.SelStart = 0
obj.SelLength = Len(obj.Text)
vala
Ciler
Ya surement une methode plus clean mais sinon, dans l'évènement click sur le textbox, tu peut mettre
Text1.text = text1.text + "a"
Text1.text = left(text1.text,Len(Text1.text)-1)
C'est à dire que tu ajoute un carctère à la fin que tu effece aussitôt...
dinbougre888
salut j'ai un textbox nommé text1
je voudrais savoir comment faire en sorte ke lorsque le curseur se positionne sur ce textbox, qu'il positionne aussi le curseur à la fin de la chaine de caractère dans textbox
en général il se place au début
