Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

Tekst invoegen in RichTextBox1 (Opgelost)

tomate - 28/12/2007 16:48 (laatste wijziging 28/12/2007 16:50)

Lid

hy,

Ik zou graag het volgende doen in VB.NET:
Als je op button een klikt verschijnt er een woord in mijn RichTextBox.
Als je daarna op een tweede button klikt verschijnt er een tweede woord in mijn RichTextBox.

vbnet code - Bekijk de code zonder highlighting - Klap code in

                 
'Als ik het volgende gebruik worden de woorden vervangen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = "drie"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = "twee" 
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RichTextBox1.Text = "een" 
    End Sub

            
'Als ik het volgende gebruik worden de woorden vervangen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = "drie"
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = "twee" 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RichTextBox1.Text = "een" 
    End Sub
 

Die drie en die twee zouden dan dus naast mekaar moeten verschijnen.

Dus als je eerst op button 2 klikt verschijnt er eerst "twee" en als je dan op button 3 klikt zou er "een" naast moeten staan

Alvast Bedankt

3 antwoorden

Gesponsorde links

GTW - 28/12/2007 17:12

PHP gevorderde

vbnet code - Bekijk de code zonder highlighting - Klap code in

                'Als ik het volgende gebruik worden de woorden vervangen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = RichTextBox1.text + "drie"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = RichTextBox1.text + "twee" 
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RichTextBox1.Text = RichTextBox1.text + "een" 
    End Sub
            
'Als ik het volgende gebruik worden de woorden vervangen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = RichTextBox1.text + "drie"
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = RichTextBox1.text + "twee" 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RichTextBox1.Text = RichTextBox1.text + "een" 
    End Sub
 

indien dit niet goed werkt, kun je er een if bij ingooien of het vak leeg is. als dit zo is, moet de text er achter worden geplakt.

JBke - 29/12/2007 09:03

PHP gevorderde

vbnet code - Bekijk de code zonder highlighting - Klap code in

                'Als ik het volgende gebruik worden de woorden vervangen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text += "drie"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text += "twee" 
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RichTextBox1.Text += "een" 
    End Sub

            
'Als ik het volgende gebruik worden de woorden vervangen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text += "drie"
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text += "twee" 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RichTextBox1.Text += "een" 
    End Sub
 

Abbas - 31/12/2007 00:16
Crew .NET		VB.NET is er soms "soepel" in maar om strings te concatenaten moet je eigenlijk voor VB.NET het ampersand - teken gebruiken (&).

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten