Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
11.09.2004, 17:41 Uhr
FlAsH
keine Ahnung

ich verstehe nicht warum das nicht geht!
Es soll eine Titelanimation geben die wie schreibt
aber es klappt ned

Visual Basic:

Dim Message As String
Dim num As Integer
num = Len(Message)
Message = "Hallo"
'-----------
Private Sub Timer1_Timer()
Me.Caption = Left(Message, num) & "_"
num = num - 1
If num = 0 Then
num = Len(Message)
End If
End Sub

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
11.09.2004, 18:12 Uhr
Bruder Leif
dances with systems
(Operator)

Moin!

Und wenn Du die Zeilen

Visual Basic:

num = Len(Message)
Message = "Hallo"

vertauschst?
--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
11.09.2004, 18:17 Uhr
FlAsH
keine Ahnung

ne geht immer noch nicht!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

003
11.09.2004, 18:29 Uhr
Bruder Leif
dances with systems
(Operator)

mmmh ich glaub das hier ist eher was für Dich:

Visual Basic:

Dim Message As String
Dim num As Integer
Private Sub Form_Load()
    Message = "Hallo"
    num = 0
End Sub
Private Sub Timer1_Timer()
    Me.Caption = Left(Message, num) & "_"
    num = num + 1
    If num = Len(Message) + 1 Then
        num = 0
    End If
End Sub

--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

004
11.09.2004, 19:42 Uhr
FlAsH
keine Ahnung

Danke jetzt geht

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: