Hier mal eine Art Matrixtext, der animiert dargestellt wird.
Einfach mal ausprobieren (code ist wahrscheinlich unsauber. sry für mid() :P)
Einfach mal ausprobieren (code ist wahrscheinlich unsauber. sry für mid() :P)
VB.NET-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
Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!