VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



This Code is Changed the state of Form Caption Using Timer Control and Loop.

by Zaw Min Aye (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 19th September 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)

This Code is Changed the state of Form Caption Using Timer Control and Loop.

Rate This Code is Changed the state of Form Caption Using Timer Control and Loop.






Private Sub Command1_Click()
Static i, j
mzm:
    If i <= Len(str) Then: Form1.Caption = Left(str, i): i = i + 1: j = 0: Else: Form1.Caption = Replace(str, Right(str, j), ""): j = j + 1: If Len(Form1.Caption) = 1 Then i = 0: GoTo mzm:
End Sub

Private Sub Form_Load()

    str = "Information Technology"
    

End Sub



Private Sub Timer1_Timer()
    Command1_Click
End Sub



Download this snippet    Add to My Saved Code

This Code is Changed the state of Form Caption Using Timer Control and Loop. Comments

No comments have been posted about This Code is Changed the state of Form Caption Using Timer Control and Loop.. Why not be the first to post a comment about This Code is Changed the state of Form Caption Using Timer Control and Loop..

Post your comment

Subject:
Message:
0/1000 characters