• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 303
  • Last Modified:

Type writer text

Hi
I've been trying to fix a intro to a small game..
I'd like it to scroll character by character..like a Type writer text, the first letter is fixed..does'nt move, then
the next letter adds, and the next.

I've fooled around with len left and right function +1 -1
But it seems like they are fooling around with me

Can anyone help me out
coffeeman@swipnet.se
0
az1
Asked:
az1
1 Solution
 
rakkasCommented:
Hi!

here's an example. In this one It prints to a label named label1. You should use the timer function instead of the for-loop so the time will be the same on all systems and computers.


Dim sText As String
sText = "This is a message..."
For i = 1 To Len(sText)
    Label1.Caption = Mid(sText, 1, i)
    DoEvents 'Let the system do some stuff, ie draw your string to the screen!!
        For a = 1 To 1000000 'use a timer or something instead of this for-loop to make a pause
        Next a
Next i
0
 
az1Author Commented:
thanks
It works like a charm
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now