Und der Film den ich erwähnte, hieß glaube ich Cry Wolf. _________________ Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
S.A.V.A.S_ Tutorial Leser
Anmeldedatum: 09.07.2007 Beiträge: 69
Verfasst am: 25.03.2008, 11:37
hey könnte jemand das tut auch für vb6 machen? :S wäre nett ^^ _________________ Meine Visual Basic Community : [url]VB-Coderz.NET[/url]
Teyhouse_ Poster
Anmeldedatum: 11.02.2007 Beiträge: 100
Verfasst am: 25.03.2008, 12:01
Cooles Tut, ist zwar sehr Spezial aber dennoch brauchbar - danke! _________________
c0re_ « Moderator »
Anmeldedatum: 28.11.2007 Beiträge: 425
Verfasst am: 25.03.2008, 12:06
S.A.V.A.S hat Folgendes geschrieben:
hey könnte jemand das tut auch für vb6 machen? :S wäre nett ^^
Habs mir jetzt nicht angeschaut aber so sollte es funktionieren.
Code:
Private sText As String
Private TempChar As String
Private CharCount As Integer
Private MaxChars As Integer
Private Sub Form_Load()
sText = "Blub. Blub, blub."
CharCount = 1
MaxChars = Len(sText) + 1
tmrWrite.Interval = 333 ' Intervall von 1/3 Sekunde
TextBox.Text = ""
tmrWrite.Enabled = True
End Sub
Private Sub tmrWrite_Timer()
If Not CharCount = MaxChars Then
TempChar = Mid(sText, CharCount, 1)
TextBox.Text = TextBox.Text & TempChar
Else
CharCount = 1
tmrWrite.Enabled = False
End If
CharCount = CharCount + 1
End Sub
Mit einer Schleife hätte man es natürlich preziser machen können
aber ich wollte jetzt keine Wait API benutzen. _________________
chiller1415_ Poster
Anmeldedatum: 16.12.2007 Beiträge: 125
Verfasst am: 25.03.2008, 14:22
Boah das ist geil dankeee!
Mit freundlichen Grüßen
--Chillo-- _________________
Krack0r Newbie
Anmeldedatum: 03.02.2010 Beiträge: 1
Verfasst am: 03.02.2010, 17:58
Der Downloadlink ist down,könnte bitte jemand einen reupload machen?