|
| Autor |
Nachricht |
Devilworld_
Tutorial Leser
Anmeldedatum: 26.08.2007
Beiträge: 24
|
Text Label baut sich auf
Verfasst am: 14.03.2008, 20:57 |
|
|
hey,
ich weis, es ist jetzt nur eine kleinigkeit,
aber wie stellt man ein, das sich der Text in
einem Label aufbaut/schreibt?
Das es Graphisch so aussieht, wie wenn er
gerade geschrieben wird...
Danke und MfG
Devil |
|
| |
|
 |
chiller1415_
Poster
Anmeldedatum: 16.12.2007
Beiträge: 125
|
Verfasst am: 14.03.2008, 21:20 |
|
|
| Würd mich auch mal interessieren:D |
|
| |
|
|
sollniss_
Coder
Anmeldedatum: 08.09.2007
Beiträge: 212
|
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 15.03.2008, 02:13 |
|
|
| Code: |
lbl.text += "h"
thread.sleep(100)
lbl.text += "a"
thread.sleep(100)
... |
is ausm Kopf, kann auch threading.sleep sein. Auf jeden Fall wird dadurch immer eine kleine Pause gemacht und dann erst weitergeschrieben.
Mit nem Timer geht es auch, ist aber mindestens genauso viel Schreibarbeit |
|
| |
|
|
chiller1415_
Poster
Anmeldedatum: 16.12.2007
Beiträge: 125
|
Verfasst am: 15.03.2008, 09:22 |
|
|
| geht net:S |
|
| |
|
|
jojo4ever_
Poster
Anmeldedatum: 22.07.2007
Beiträge: 108
|
Verfasst am: 15.03.2008, 10:16 |
|
|
Hatte grade langeweile 
| Code: | Option Explicit
Dim x As Integer
Private Sub Form_Load()
Label1.Caption = ""
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim a()
a = Array("H", "a", "l", "l", "o")
If x > UBound(a) Then
Timer1.Enabled = False
Exit Sub
End If
If Label1.Caption = "" Then
Label1.Caption = a(x)
Else
Label1.Caption = Label1.Caption & a(x)
End If
x = x + 1
End Sub
|
Zuletzt bearbeitet von jojo4ever_ am 15.03.2008, 10:17, insgesamt einmal bearbeitet |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 15.03.2008, 10:17 |
|
|
2 Textboxen und ein Timer. Mehr braucht man nicht.
In einer Textbox (Oder wenn ihr wollt in einer String Variable) steht der Text.
Diese sollte unsichtbar sein.
Die andere Textbox soll den Text am Ende anzeigen.
Der Timer liest dann per Mid$ immer das nächste Zeichen ein und schreibt es in die andere Textbox.
| Code: |
Private Sub Timer1_Timer()
static sBuffer as string, i as long
sBuffer = sBuffer & (Mid$(Text1.Text, i, 1))
Text2.Text = sBuffer
i = i + 1
If i = (Len(Text1.Text) - 1) Then
Timer1.Enabled = False
End If
End Sub
|
Sollte so inetwa funktionieren. Hab es aber nicht probiert.
Also selbst ist der Mann 
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Devilworld_
Tutorial Leser
Anmeldedatum: 26.08.2007
Beiträge: 24
|
Verfasst am: 15.03.2008, 10:33 |
|
|
danke euch ^^
funktionieren beide super.
thx nochmal |
|
| |
|
|
Registrieren
Login
