copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
'Beispiel: VB .NET - RichtextBox - Zeichen an das Ende einer jeden Zeile anfügen
'
Option Explicit On
Option Strict On

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "RichtextBox - "
            .CenterToScreen()
            .Button1.Text = "Test..."
            Dim Lines As String() = {"Monday", "Thuesday", "Wednesday", "Thursday", "Friyday", "Saturday", "Sunday"}
            Me.RichTextBox1.Lines = Lines
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Lines() As String = Me.RichTextBox1.Lines
        For n As Integer = 0 To Lines.Count - 1
            Lines(n) = Lines(n) & " - " & n.ToString()
        Next
        Me.RichTextBox1.Lines = Lines
    End Sub

End Class
Sourcecode Visual Basic