by Vivek Patel (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 29th July 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
It is a code regarding how one can perform FORM Animation in VB.
Timer1.Enabled = True
cmdclick = True
Form1.Height = 5
Form1.Width = 5
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Command1.Caption = "Fast Animation for Nice effect"
End Sub
Private Sub Timer1_Timer()
If cmdclick = False Then
If Form1.Width <= 6000 Then
'for horizontal animation
Form1.Width = Form1.Width + 150
If Form1.Width >= 6000 Then
Timer1.Enabled = False
Form1.Height = 5
Timer1.Enabled = True
End If
Else
'for vertical animation
Form1.Height = Form1.Height + 150
If Form1.Height >= 3135 Then
Timer1.Enabled = False
End If
End If
Else 'cmdclick = true
If Form1.Width <= 6010 Then
Form1.Width = Form1.Width + 150
If Form1.Height <= 3135 Then
Form1.Height = Form1.Height + 150
End If
Else
Timer1.Enabled = False
End If
End If
End Sub
No comments have been posted about It is a code regarding how one can perform FORM Animation in VB.. Why not be the first to post a comment about It is a code regarding how one can perform FORM Animation in VB..