• Home
 · 
• Miscellaneous
 · 
• randomly increase and decrease the form size show the curent form height and width on form caption

randomly increase and decrease the form size show the curent form height and width on form caption

randomly increase and decrease the form size show the curent form height and width on form caption and also increase and decrease the label

Rate randomly increase and decrease the form size show the curent form height and width on form caption

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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