Search Tools Links Login

Simple text effect


very Simple but interesting text effect for the form caption

Original Author: Chris Martian

Inputs

needs a timer called timer1

Code

Dim x As Integer
Private Sub Form_Load()
x = 0
End Sub
Private Sub Timer1_Timer()
Me.Caption = Mid$("Created by Chris Martian", 1, x)
'find how much of the caption should be displayed
x = x + 1
'add 1 to number of letters to be displayed next time
If x > Len("Created by chris martian") Then x = 0
'if it gets to the end then start again
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 74 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.