[VB] Traitement de chaine de caractere

Traitement de chaine de caractere [VB] - Programmation

Marsh Posté le 06-12-2001 à 10:24:30    

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

Reply

Marsh Posté le 06-12-2001 à 10:24:30   

Reply

Marsh Posté le 06-12-2001 à 11:32:09    

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...


---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8
Reply

Marsh Posté le 06-12-2001 à 13:58:48    

obj.SelStart = 0
obj.SelLength = Len(obj.Text)
 
vala

Reply

Marsh Posté le 06-12-2001 à 14:01:29    

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

Reply

Marsh Posté le 06-12-2001 à 16:51:30    

Code :
  1. Private Sub txtNum_Change()
  2. If Len(MaFeuille.txtNum) > 4 Then
  3.   MaFeuille.txtNum = Left(MaFeuille.txtNum, 4)[G]
  4.   MaFeuille.txtNum.SetFocus  'donne le focus au contrôle txtNum
  5.   SendKeys "{END}" 'simule un appuie sur "Fin"[/G]
  6. End If
  7. End Sub

 

[edtdd]--Message édité par jmbocquet--[/edtdd]


---------------
stats boinc : http://jmb.boinc.fr/
Reply

Marsh Posté le 06-12-2001 à 18:34:21    

Dans l'évênement "GotFocus" tu insère le code suivant :

Code :
  1. Text1.SelStart = Len(Text1..text)


 :sol:


---------------
Plus un ordinateur possède de RAM, plus vite il peut générer un message d'erreur.
Reply

Marsh Posté le 07-12-2001 à 17:50:48    

Bendes a écrit a écrit :

Dans l'évênement "GotFocus" tu insère le code suivant :

Code :
  1. Text1.SelStart = Len(Text1..text)


 :sol:  




 
;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed