Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Laufschrift !!!!!!!!!!!!!!!!!!
Autor: Martin01
Datum: 01.04.03 18:19
'Wenn es noch einfacher geht, bitte melden: 'Ich brauche ' 1x Form1 ' 1x Timer1 ' 1x Label1 ' ' 1x LaufText (oder Me.text / Me.Label1.text schieben) ' ' Form1_Load ' Timer1_Tick Private LaufText As String = " Wo ist die Maus? " 'mit min. 2 Zeichen belegen Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Timer1.Interval = 300 Me.Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick With LaufText LaufText = .Substring(1, .Length - 1) & .Chars(0) End With Me.Text = LaufText Me.Label1.Text = LaufText End Sub

Laufschrift !!!!!!!!!!!!!!!!!!	800	Ernie	31.03.03 20:13
Re: Laufschrift !!!!!!!!!!!!!!!!!!	448	eclere	01.04.03 15:46
Re: Laufschrift !!!!!!!!!!!!!!!!!!	160	Martin01	01.04.03 18:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen