[VB]textbox a la ligne

Version imprimable

12/03/2006, 14h04
benbetto

[VB]textbox a la ligne

Bonjour voila quand j'ecrit un message dans la textbox1 et je mais envoyer elle arrive dans la textbox 2 mais comment la faire accumuler pas la remplacer par le 1er texte qui a eter envoyer enfaite je voudrais que a chaque fois que quelquin envoye sont message sa va a la ligne merci pour vos reponse aurevoir
12/03/2006, 14h06
SfJ5Rpw8

:arrow:

Code:

TextBox1 = TextBox1 & "Nouveau message"

[edit] :oops: lol j'ai oublié le vbCrlLf... voir plus loin...
12/03/2006, 14h11
jmfmarques

Citation:

que a chaque fois que quelquin envoye sont message sa va a la ligne

ce que t'a dit bbil, avec un vbcrlf entre textbox.text & nouveau_message
12/03/2006, 14h26
benbetto
j'ai rien comprie chuie deutant donc enfaite ma textbox3 c'est ou ont ecrit le message et la textbox1 c'est ou le message apparait donc j'ai mis ce code
Code:

1 2 3 Private Sub Command1_Click() Form1.Text3.Text = Form1.Text1.Text End Sub
puis pour cumulez les message jai rajouter ce code

Code:

TextBox3 = TextBox1 & "Nouveau message"

ce qui donne
Code:

1 2 3 4 Private Sub Command1_Click() Form1.Text3.Text = Form1.Text1.Text TextBox3 = TextBox1 & "Nouveau message" End Sub
mais mon texte va changer le 1er et ainsi de suite mais va pas le remettre en dessous du 1er texte...

[Balises "Code" ajoutée par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.:wink: ]
12/03/2006, 14h28
SfJ5Rpw8
oui je me suis bouffé le vbCrlLf...
Code:

1 2 3 Private Sub Command1_Click() Form1.Text3.Text = Form1.Text3.Text & vbCrLF & Form1.Text1.Text End Sub
il faut mettre à true la propriété multilignes du textbox Text3 ...!
12/03/2006, 14h32
benbetto

ouais ca marche bien mais la le probleme c'est que ca mais deux message puis apres quand je réecrit un message ca remplace les deux merci beaucoup quand meme pour votre aide
12/03/2006, 14h38
jmfmarques

Bien embrouillé... bon :

commence par nous dire :

Dans form1 tu as :
1) tu as un contrôle Text3 : à quoi sert-il ?
2) tu as un contrôle Text1 : à quoi sert-il ?

Ensuite tu as :

Textbox1 et Textbox3
dans quelle Form sont-ils et à quoi servent-ils ?

En te lisant, en effet, je trouve 4 boîtes de texte : "Text1", "Text3", "Textbox1" et "Textbox3"
sans pouvoir déterminer avec précision les mécanismes associés !
12/03/2006, 14h45
benbetto
enfaite j'ai 2 TextBox et une command1
Code:

1 2 3 4 Private Sub Command1_Click() Form1.Text3.Text = Form1.Text1.Text Form1.Text3.Text = Form1.Text3.Text & vbCrLf & Form1.Text1.Text End Sub
quand j'ecrit un texte dans la TextBox1 et je click sur la command le text va dans la textBox3 sa c'est bon mais apres je veut que mon texte va a la ligne a chaque fois que j'ecrit un message par exemple

texte1 ====>bonjour
texte2 ====>hellow
texte3 ====>sa va?
etc...

voila j'espere que j'ai ete clair merci

[Balises "Code" ajoutée par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.:wink: ]

:arrow:

Code:

1
2
3
4
5
6
7
8
 
Private Sub Command1_Click()
if Form1.Text3.Text ="" then 
  Form1.Text3.Text = Form1.Text1.Text
else
 Form1.Text3.Text = Form1.Text3.Text & vbCrLf & Form1.Text1.Text
end if
End Sub

12/03/2006, 14h58
benbetto

et ben voila merci beaucoup pour mes 2 probleme ca a ete vite resolu c'est le meuilleur forum d'aide sur vb

C'est bien mais pas tout-à-fait...

Il serait plus esthétique de créer un textbox de saisie, en plus (appelle-le saisie" et :
Code:

1 2 3 4 5 6 Private Sub Command1_Click() Form1.Text1.Text = Form1.Text1.Text & vbCrLf & saisie.Text Form1.Text3.Text = Form1.Text3.Text & vbCrLf & saisie.Text form1.saisie.text = "" form1.saisie.SetFocus End Sub
de cette façon, tu auras le "suivi" sur les 2 textboxes de dialogue.

en gros je remplace ce code :

Code:

1
2
3
4
5
6
7
Private Sub Command1_Click() 
if Form1.Text3.Text ="" then 
  Form1.Text3.Text = Form1.Text1.Text 
else 
 Form1.Text3.Text = Form1.Text3.Text & vbCrLf & Form1.Text1.Text 
end if 
End Sub

par celui la?

Code:

1
2
3
4
5
Private Sub Command1_Click() 
  Form1.Text1.Text = Form1.Text1.Text & vbCrLf & saisie.Text 
  Form1.Text3.Text = Form1.Text3.Text & vbCrLf & saisie.Text 
  form1.saisie.text = "" 
 End Sub

[Balises "Code" ajoutée par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.:wink: ]

12/03/2006, 15h10
jmfmarques

Voilà... et ajoute ce que je viens de rajouter (pour la commodité) dans mon message :

form1.saisie.SetFocus

de cette façon, les 2 interlocuteurs "virtuels" pourront suivre tous 2 leur conversation...

je te laisse deniner ce qu'il faut faire pour qu'un interlocuteur soit sur une Form et l'autre sur une autre Form avec, pour chacun, sa textbox de saisie ...!
12/03/2006, 15h13
benbetto

erreur de compilation
membre de methode ou de donnée introuvable
12/03/2006, 15h17
jmfmarques

erreur sur quoi ?

tu as bien créé une textbox supplémentaire et l'as bien nommée saisie ?

Ce que je t'ai dit est testé chez moi et marche
12/03/2006, 15h22
benbetto

ben oui jai rajouterun textbox que jai nomer saisie puis quand je rentre mon message dans la textbox 1 puis je mais envoyer sa me rajoute des barres dans la textbox1
12/03/2006, 15h24
jmfmarques

Cà c'est parce que tu n'as pas donné la propriété multiligne à tes textboxes, c'est tout !!!! Fais-le donc !

Et pendant que tu y es : ajoutes également la propriété Scroll Vertical (ce sera plus commode)..
12/03/2006, 15h33
benbetto

ben oui c'est bon j'avais oublier mais je vouas pas a quoi sa sert de faire ta technique si l'autre ca revient au meme sauf que c'est dans la textbox "saisie" que ont doit taper le texte et que dans la trextbox1 quand tu mais envoyer sa saute une ligne a chaque click
12/03/2006, 15h34
jmfmarques

Relis ce que j'ai dit plus haut en ce qui concerne 2 interlocuteurs, chacun sur Sa form, et tu devineras pourquoi !
Bon, je te laisse maintenant...