Probleme TextBox

Question

Bonsoir,
le debutant que je suis en VB ne trouve pas la soln sur le forum.
Voilà, je voudrais créer un textbox avec un ">" au debut de la ligne où saisir le texte. Puis en tapant "ENTER", je veux renvoyer à la ligne suivante qui doit avoir au début le même ">". Je ne veux pas non plus perdre ce qui a déja été saisi auparavant.

J'ai tapé le bout de code :

Private Sub TxtEditeur_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtEditeur.Text = TxtEditeur.Text + vbCrLf + ">"
        SendKeys "^{End}"
    End If   
End Sub

résultat : il se passe a peu près ce que je veux, sauf qu'il y a des lignes vides en haut du textbox ??
Merci d'avance pour la réponse

Renfield · Answer

Normal !

il faut annuler le retour a la ligne provoqué par la pression de la touche Entree....


Private Sub TxtEditeur_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtEditeur.Text = TxtEditeur.Text + vbCrLf + ">"
SendKeys "^{End}"
KeyAscii = 0
End If
End Sub


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Probleme TextBox

1 réponse

Discussions similaires