title image


Smiley Re: VB6: Laufschrift??
Hi MrPing,

wie wärs damit:



Private Sub cmdLaufenStart_Click()

Dim I As Integer

Dim Halt



'*** Aktiviert das Bild Image2 ***

Image2.Picture = LoadPicture("R:\PRX\Geburtstag01.gif")



text1.Visible = True

cmdLaufenEnde.Visible = True



Halt = False



'Den Lauftext einstellen

If Lauftext = Empty Then _

Lauftext = "Liebe Frau xxx, herzlichen Glückwunsch zu Ihrem Geburtstag und alles Gute für das nächste Lebensjahr! "



Do Until Halt = True

'Kurz warten

For I = 0 To 15000: DoEvents: Next

DoEvents



'Hinten an den Lauftext das 1. Zeichen anhängen

Lauftext = Lauftext & Mid(Lauftext, 1, 1)



'Vom Lauftext das 1. Zeichen wegnehmen

Lauftext = Mid(Lauftext, 2, Len(Lauftext) - 1)



'Den Lauftext zuweisen

text1.Text = Lauftext

Call Blinken

Loop

End Sub

Sub Blinken()

Dim tmp



For tmp = 1 To 1

Dim Pausenlänge, Start, Ende, Gesamtdauer

Pausenlänge = 0.1 ' Dauer festlegen.

Start = Timer ' Anfangszeit setzen.

Do While Timer < Start + Pausenlänge

DoEvents ' Steuerung an andere Prozesse

' abgeben.

Loop

Ende = Timer ' Ende festlegen.

Gesamtdauer = Ende - Start ' Gesamtdauer berechnen.



Next

End Sub







Private Sub CommandButton2_Click()

Halt = True

End Sub



MfG

WeDe2

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: