Laufschrift in VB6

[fr33k]

So da dies von chesar angesprochen wurde, und ich diese funktion bei mir drinnen habe, erklär ich das in einem kleinen "Tutorial".
Dafür ein "grosses" Tutorial oder sogar ein Videotutorial zu machen wäre übertrieben.

Los gehts:

Ihr braucht dafür:
1x Label (bei mir Label2)
1x Timer (bei mir laufschrift)

Es gibt dabei 2 möglichkeiten dies zu realisieren

in die Form_Load kommt:

Code:

Label2.Caption =frmMain.Caption

---

Hiermit bestimmen wir das der Text der in den Eigenschaften(Caption) der Form steht, auch in unser Label stehen soll.

oder:

Code:

Label2.Tag = "Starcraft 2 v1.0.1.16195 +3 Promo trn by fr33k" Label2.Caption = Label2.Tag

---

Hier trägt man den Text direkt ein, also muss in der Caption von der Form nichts mehr stehen.
Wie man es macht ist geschmacksache

und in den Timer kommt bei beiden möglichkeiten:

Code:

1 2 3 4 5 6 7 8 9 10

Private Sub laufschrift_Timer() Dim var As String Dim sText As String var = Left(Label2.Caption, 1) sText = Mid(Label2.Caption, 2, Len(Label2.Caption)) & var Label2.Caption = sText End Sub

---

Ist selbsterklärend denke ich
Wichtig ist nur noch das der Timer Interval zuständig für die schnelligkeit der Laufschrift ist, ich habe bei meinen Trainern den Wert 100 genommen.

Das war der ganze zauber schon, also alles gar nicht so schwer wie man vielleicht denken mag.

gruss fr33k