Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Apr 6, 2000

Produce Shrinking Text

Use this code to get the shrinking text effect—similar to the opening of Star Wars:
 
' Requires a Label and Timer on the form
Private Sub Form_Load()

	With Me
		.BackColor = vbBlack
		.WindowState = vbMaximized
	End With
	With Label1
		.Alignment = vbCenter
		.AutoSize = True
		.BackColor = vbBlack
		.Caption = "Shrinking Text"
		.Font.Name = "Arial"
		.Font.Size = 150
		.ForeColor = vbGreen
		.Visible = True
	End With
	With Timer1
		.Interval = 1
		.Enabled = True
	End With

End Sub
Private Sub Timer1_Timer()
	With Label1
		If .FontSize > 2 Then
			.FontSize = .FontSize - 2
			.Left = (Me.Width - .Width) / 2
			.Top = (Me.Height - .Height) / 2
		Else
			.Visible = False
			Timer1.Enabled = False
		End If
	End With
End Sub
Michael Unger
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap