Animation in the Main Form 1

[mai19ea]

Any idea how i can make animated text flashing on the screen of my Main Form.

thanks for your help

 

[ZmrAbdulla]

do you mean to blink a label or a textbox? Or an animation?

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[mai19ea]

thanks for the reply, what i mean is that a label which is sliding to the left

 

[ZmrAbdulla]

I dont have any idea of a scrolling text , blinking is able to do without any big effort.

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[mai19ea]

thnks, blinking is enough, could you give me the code please

 

[ZmrAbdulla]

Set form's timer to 1000 and on timer event

Private Sub Form_Timer()
    Me.Label0.Visible = Not Me.Label0.Visible
End Sub

replace the label name to actual.

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[ZmrAbdulla]

You can try another method by setting timer = 100

Private Sub Form_Timer()
    Select Case Me.Label0.Caption
    Case Is = "Zameer"
        Me.Label0.Caption = "ameer Z"
    Case Is = "ameer Z"
        Me.Label0.Caption = "meer Za"
    Case Is = "meer Za"
        Me.Label0.Caption = "eer Zam"
    Case Is = "eer Zam"
        Me.Label0.Caption = "er Zame"
    Case Is = "er Zame"
        Me.Label0.Caption = "r Zamee"
    Case Is = "r Zamee"
        Me.Label0.Caption = " Zameer"
    Case Is = " Zameer"
        Me.Label0.Caption = "Zameer "
    Case Is = "Zameer "
        Me.Label0.Caption = "Zameer"
    End Select
End Sub

Just for fun.
This must be possible by storing the caption into a public variable.

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[mai19ea]

thanks a lot, its much better!