| VB-Homepage Tipp 276 |
| Lauftext ohne Control |
| Es gehört nicht viel dazu, einen einfachen Lauftext,
der wie in einer Endlosschleife angezeigt wird zu kreieren. Als erstes benötigen wir ein neues Projekt, dem wir eine Textbox (Text1) und einen Timer (Timer1) zuweisen. Sie können nun der Textbox noch die gewünschte ForeColor und BackColor Farbe zuweisen und sollten eine Proportionale Schriftart wie Courier verwenden. Selbstverständlich können Sie zur Wiedergabe auch andere Objekte (wie Label) nutzen. Definieren Sie im Allgemein/Deklarationen Abschnitt der Form unsere benötigte Variable Dim lauftext As String Im Form_Load Abschnitt wird unser Lauftext definiert. lauftext = String(30, " ") + "Lauftext - Scrooling Text - Beispiel - - VB Homepage" Als letzen stellen Sie die Interval Eigenschaft des Timers auf 100 und weisen ihm folgende Anweisung zu. lauftext = Mid(lauftext, 2) & Left(lauftext, 1) Text1 = lauftext Mehr wird nicht benötigt, wenn Sie nun Ihr Projekt mit F5 starten, läuft er freundlich vor sich hin. |
| Tipp-Download |
| Quelle : |
 |