Home of Gamehacking - Archiv

Normale Version: Laufschrift in VB6
Sie sehen gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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:
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 HappyHappy
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

Super Danke dir Smiling
Nur leider geht es nicht in VB08
kommt immer der Fehler

"Caption" ist kein Member von "System.Windows.Forms.Label". C:\Users\****\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 4 9 WindowsApplication1
"

Ne Idee warum?
Ja,
bei VB2008 gibt es keine Label.Caption mehr ...
du musst stattdessen
Label1.Text
benutzen Wink
und wieder ein Neues Problem Smiling

Fehler 1 "Public Property Left() As Integer" hat keine Parameter, und der Rückgabetyp kann nicht indiziert werden. C:\Users\***\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 12 15 WindowsApplication1

VB06 is schon Komisch Smiling

und könnt ihr euch das mal angucken
http://www.homeofgamehacking.de/showthread.php?tid=63