TypeWriter Effect (code included in post)

[BeholderOf]

its pretty simple and staight forward so here it is:

Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Public Sub TypeWriter(txtt As TextBox, time As Single, text As String)
'^^^ for time you put the amount of seconds you want it to wait
Dim progress As Integer
Dim lastc As Long
 
progress = 1
lastc = GetTickCount
time = time * 1000
 
Do While progress <> (Len(text) + 1)
If GetTickCount - lastc > time Then
txtt.text = txtt.text + Mid(text, progress, 1)
txtt.Refresh
progress = progress + 1
lastc = GetTickCount
End If
DoEvents
Loop
 
End Sub
 
Private Sub Form_Load()
Me.Show
TypeWriter Text1, 0.5, "Welcome"
End Sub

[Madboy]

Nice one, i tried putting it into a label, but that wont display it properly. (even with a timer, and refresh). Is there anyway of putting it into a label?

Suppose i could just make the text box flat, and set focus to another control (to hide the | cursor position)

[BeholderOf]

for a label change the declaration to:

Public Sub TypeWriter(txtt As Label, time As Single, text As String)
''^^^ make it a label instead of a textbox

and then change the .text property to caption:

txtt.Caption = txtt.Caption & Mid(text,progress,1)

[Madboy]

Yeah, im not daft - tried that. But it aint going to animate (or add text) to the label cos it needs updating. Im not bothered though

[BeholderOf]

This code works fine for me with a label:

Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Public Sub TypeWriter(txtt As Label, time As Single, text As String)
'^^^ for time you put the amount of seconds you want it to wait
Dim progress As Integer
Dim lastc As Long
 
progress = 1
lastc = GetTickCount
time = time * 1000
 
Do While progress <> (Len(text) + 1)
If GetTickCount - lastc > time Then
txtt.Caption = txtt.Caption + Mid(text, progress, 1)
txtt.Refresh
progress = progress + 1
lastc = GetTickCount
End If
DoEvents
Loop
 
End Sub
 
Private Sub Form_Load()
Me.Show
TypeWriter Label1, 0.5, "Welcome"
End Sub

[Madboy]

Just realized , i was using a third party ocx label, which doesnt use .Caption but .Label as the text appearance. Thanks again!

[Madboy]

Im making a app called "VB Code Library" which has loads of API,codes,links,tips,snippets & tutorials. I was wondering if i could include your code into the library?

[Madboy]

Heres an early development screenshot!

[BeholderOf]

sure you can use this code or modify anyway you want. have fun with it !

[Madboy]

Ok thanks dude