Voilà mon bugg
 
 
j'ai une textbox et je voudrai qu'a chaque fois que je tape un texte dedans, après avoir fait "entrée" ça le recopie ds une autre textbox en multiligne en sautant une ligne à chaque fois...
 
Je m'explique mieux:
 
Je tape "salut" ds une text box puis je fait entrée
salut s'instri ds une deuxième text box
Je tape "coucou" ds la première text box puis de nouveau entrée
et là coucou se met en dessous de salut.
 
ce qui me manque simplement c comment faire sauter la ligne ds la deuxième text box.
 
merci pour vautre patience pour un débutant comme moi

Pffffffffff espèce de nul ! Si tu cherchais avant de poser des questiond à la con.   DEGAGE !!!      
 
Non j'arrête je suis juste très énervé car je viens de commencer le boulot et j'ai pas envie, alors je traine un pti peu sur le net.
Pour ta question c'est très simple.
Pour recuperer la valeur renntrée de ta texte boc c'est : MatxtBox.value
Bon maintenant sur l'evenement de ta textbox correspondant (qui doit etre afterUpdate mais je ne vosi pas commment est fait ton prg) tu mets

Normalement ça marche car chr(10) c'est le codage du retour chariot. Si ça ne marche pas essaie de le mettre avant le texte.
Voila si ça ne te conviens pas, dis-le      

lol, ken g commencé à lire ton message j'ai cru que tt sérieux, pourtant j'ai cherché avant de poster...
 
bref ce soir je vais essayer ce que tu m'a dit en rentrant, ça devrait marcher...
 
merci encore..
 
++

arf, ça marche pas ...
 
voici mon code
 
 
Private Sub message_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
chat.Text = message.Text & Chr(10)
End If
End Sub
 
dans le chat il affiche le message suivi de || et tout est concatené.
de meme si je le met avant.
 
normal ? comment puis-je faire autrement ?

& vbCrLf

si j'ai bien compris j'écris ça:
 
Private Sub message_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
chat.Text = message.Text & vbCrLf
End If
End Sub
 
 
mais ça fait toujours pareil...

c bon j'ai résolu mon problème::
 
Private Sub message_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
chat.Text = chat.Text & Chr(10) & message.Text
End If
End Sub
 
merci @ tous..