Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Tutorials
Autor
Nachricht
tr4st_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()

[Video] Ein sich selbst schreibender Text
Verfasst am: 25.03.2008, 07:20

Joa mir fällt gerade nicht ein wie man das ganze nennt Smile
Ein sich selbst schreibender Text?

Auf jeden Fall ist es sehr früh und ich bin sehr müde, aber wollte unbedingt noch das Tutorial fertig machen.

Ab und an erzähle ich ein bisschen wirres Zeug, einfach ignorieren Very Happy hatte keine lust es nochmal neu zu machen.

Download: http://rapidshare.com/files/102158607/GhostWriter.rar

Passwort: vb-x.org

Vielleicht erklärt das Bild mehr xD
http://img3.imagebanana.com/img/yoesyaja/Unbenannt.gif

Kritik und dergleichen ist wie immer willkommen.

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
Tutorial Leser



Anmeldedatum: 09.07.2007
Beiträge: 69


Verfasst am: 25.03.2008, 12: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
Poster



Anmeldedatum: 11.02.2007
Beiträge: 100


Verfasst am: 25.03.2008, 13:01

Cooles Tut, ist zwar sehr Spezial aber dennoch brauchbar - danke!
_________________
 
c0re_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 29.11.2007
Beiträge: 425


Verfasst am: 25.03.2008, 13: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
Poster

Anmeldedatum: 16.12.2007
Beiträge: 125


Verfasst am: 25.03.2008, 15:22

Boah das ist geil dankeee!


Mit freundlichen Grüßen
--Chillo--
_________________
 
Krack0r
Newbie
Newbie

Anmeldedatum: 03.02.2010
Beiträge: 1


Verfasst am: 03.02.2010, 18:58


Der Downloadlink ist down,könnte bitte jemand einen reupload machen?
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Tutorials

Tags: cry wolf, text, video, film

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Api Download in Prozent + Kb anzeige + Progrezzbar 818 21.10.2007, 14:03
Keine neuen Beiträge Download 788 30.08.2007, 16:45
Keine neuen Beiträge Download mit Internet Explorer Object 498 18.08.2008, 20:00
Keine neuen Beiträge Visual Basic Download ? 731 13.06.2007, 17:55
Keine neuen Beiträge Visual Basic 6 download 2346 26.05.2007, 12:51
 



[ Time: 0.3293s ][ Queries: 103 (0.0303s) ][ GZIP on - Debug on ]