Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Public Class Form1

    Private WithEvents Timer1 As New Timer With {.Interval = 50, .Enabled = True}
    Dim i, k As Integer


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim s As String = _
        "Dies ist irgendein" & vbNewLine & _
        "Text, den ich 'animieren'" & vbNewLine & _
        "möchte ;-)" & vbNewLine & vbNewLine & _
        "Und?"

        If k = 3 Then
            i = i + 1
            k = 0
        End If

        k = k + 1

        If i > s.Length Then
            Timer1.Enabled = False
            Label1.Text = s
            Exit Sub
        End If

        Dim random As New Random()
        Label1.Text = Mid(s, 1, i) & Chr(random.Next(97, 119) + k)

    End Sub


End Class