Visual Studio 2008 vraag invoegen text

[Vbuser]

Hallo,

Ik ben nieuw hier en ik ben begonnen met vb2008.
Nu loop ik tegen het volgende aan:

Ik wil met het drukken op een button een waarde van bv Label5 in de RichTextbox1 zetten.
Dit lukt wel met onderstaande code.
Alleen wil ik graag elke keer als ik op de button druk dat de 1e waarde blijft staan en dat bij de 2e keer drukken deze waarde op de 2e regel komt te staan.
En de eerste waarde moet natuurlijk blijven staan.
Na veel zoeken nog niet gevonden.

Heeft iemand een idee om mij op gang te helpen?

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

RichTextBox1.Text = Label5.Text + Label4.Text + Label3.Text + Label6.Text + Label2.Text + Label1.Text

:d

 

[MartinJM]

Hallo,

Allereerst: Welkom op Helpmij.nl!

Dan gelijk een verzoekje: Kan je de volgende keer de code in code-tags plaatsen? Die vind je bovenaan het tekstvlak bij het '#'-knopje.

Je zou het zo kunnen doen. Hierbij gaat de tekst wel weer naar boven als je er een derde keer op drukt:
[CPP]If Not TextBox1.Text = Label1.Text Then
TextBox1.Text = Label1.Text
Else
TextBox1.Text = vbNewLine & TextBox1.Text
End If[/CPP]

Je zou ook dit kunnen gebruiken, maar dat werkt wel iets anders: http://msdn.microsoft.com/en-us/library/dy85x1sa.aspx
VB:
[CPP]If Not TextBox1.Text.Contains(Label1.Text) Then
TextBox1.Text = Label1.Text
Else
TextBox1.Text = vbNewLine & TextBox1.Text
End If[/CPP]

Succes!:thumb:
MartinJM

 

[Vbuser]

Ik krijg niet het gewenste resultaat. De text word wel vervangen maar komt niet op 2e regel en 1e regel blijft niet staan.

        If Not RichTextBox1.Text = Label5.Text + Label4.Text + Label3.Text + Label6.Text + Label2.Text + Label1.Text Then
            RichTextBox1.Text = Label5.Text + Label4.Text + Label3.Text + Label6.Text + Label2.Text + Label1.Text
        Else
            RichTextBox1.Text = vbNewLine & RichTextBox1.Text
        End If

 

[MartinJM]

Wat wil je dan precies?

Ik begreep dat je bij de tweede keer klikken de text 1 regel naar beneden wilde. Of heb ik dan de vraag verkeerd begrepen?

MartinJM

 

[Vbuser]

Ja dat klopt.
Heb nog even gezocht en ben gaan kijken met een listbox.
Dit werkt wel.
Toevoegen data:

        ListBox1.Items.Add(Label3.Text)
        ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

Verwijderen data:

ListBox1.Items.Remove(Label3.Text)

Hier kan ik verder mee.

Bedankt voor jouw inzet en moeite.
Ik kom vast met nog veel meer vragen.

 

[wampier]

RichTextBox1.Text = RichTextBox1.Text + Label5.Text + Label4.Text + Label3.Text + Label6.Text + Label2.Text + Label1.Text + vbNewLine

is volgens mij alles wat nodig is?

 

[The Mighty Atom]

Volgens mij zijn jullie moeilijk aan het doen. Gebruik gewoon AppendText:

RichTextBox1.AppendText(vbNewLine)
RichTextBox1.AppendText("Tekst hier")

 

[JoZ1]

En zelfs dát kan in één commando.

RichTextBox1.AppendText(vbNewLine & "Tekst hier")

Denktank hierzo

 

[Vbuser]

Dank jullie voor de vele mogelijkheden.
Ik heb wel in de gaten dat ik nog veel kan leren.

 

[JoZ1]

In principe maakt het (in dit geval) niet uit welke methode je gebruikt, hoewel de 'AppendLine'-methode mijn voorkeur geniet.

Is de vraag opgelost? (zo ja: startpost > rechtsonderin > 'Zet status opgelost')