Problème pour passer à la ligne suivante dans un textbox

Question

Bonjour,

Une question simple:
Pourquoi, au lieu d'aller au début de la ligne suivante, la pression de la touche Enter (code ascii = 13) provoque l'insertion d'une ligne avant mon texte et que, d'autre part, le curseur revient au début de la deuxième ligne à chaque pression de cette même touche?  
Voilà le code:

Private Sub text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Text1.Text = Text1.Text + vbCrLf
     End If
End Sub

Merci d'avance

huelce · Answer

Salut,
je ne saisie pas tout dans ton énoncé (peut-être parce que je suis fatigué) ; mais voici 2 pistes :
- Pour éviter l'insertion d'une nouvelle ligne (c'est la fonction première de la touche Enter) essaie de placer un "KeyAscii=0" juste avant ton "End If" ou après ton "If" (à tester)
- Pour placer ton curseur ou tu veux, à la fin si j'ai suivi, met "Text1.SelStart=Len(Text1)"

Renfield · Answer

En fait, le curseur se repositionne au début, car le contenu du TextBox change.....

cs_dan24 · Answer

Merci à toi huelce pour avoir répondu aussi rapidement, malgré une heure tardive, à ma question et merci à Renfield pour la petite précision.

En effet, avec le code suivant ça marche :

Private Sub text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Text1.Text = Text1.Text + vbCrLf
        Text1.SelStart = Len(Text1)
        KeyAscii = 0
     End If
End Sub

Merci encore

Problème pour passer à la ligne suivante dans un textbox

3 réponses

Discussions similaires