by Hafeez Ullah Arain Faith College Of Information Tchnology In Hyderabad (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 14th October 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
randomly increase and decrease the form size show the curent form height and width on form caption and also increase and decrease the label
'e-mail: [email protected]
'personal voice #0221-816732
'contact address:faith college of information
'technology hyderabad sindh pakistan phone#0221-784313-14
' IMPORTANT INSTRUCTIONS
'first of all set a form width and height
'form width =1695 and form height=1190
'then put THE two timer on form :
'set form controlbox property=false
'set timer1.interval=100 and timer2.interval=0
'PUT LABEL ON FORM AND SET LABEL CAPTION=HAFEEZ
Private Sub Timer1_Timer()
Me.Caption = "width=" & Me.Width & ":" & "height=" & Me.Height
Me.BackColor = vbBlue
If Me.Height >= 5000 And Me.Width >= 5000 Then
Timer1.Interval = 0
Timer2.Interval = 100
Else
Me.Width = Me.Width + 50
Me.Height = Me.Height + 50
Label1.FontSize = Label1.FontSize + 3.5
End If
End Sub
Private Sub Timer2_Timer()
Me.Caption = "width=" & Me.Width & ":" & "height=" & Me.Height
Me.BackColor = vbGreen
If Me.Height <= 1200 And Me.Width <= 1700 Then
Timer2.Interval = 0
Timer1.Interval = 100
Else
Me.Width = Me.Width - 50
Me.Height = Me.Height - 50
Label1.FontSize = Label1.FontSize - 5
End If
End Sub
No comments have been posted about randomly increase and decrease the form size show the curent form height and width on form caption . Why not be the first to post a comment about randomly increase and decrease the form size show the curent form height and width on form caption .