Login | Register   
LinkedIn
Google+
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 16, 1999

Make the Ants March

To implement a quick and easy version of the old "marching ants" line around a control, place two CommandButtons, a Shape, and a Timer control on a form. Then insert this code into the form:
 
Private Sub Command1_Click()
	StartMarchingAnts
End Sub

Private Sub Command2_Click()
	StopMarchingAnts
End Sub

Private Sub StartMarchingAnts()
	Timer1.Interval = 200
	Timer1.Enabled = True
	Shape1.Visible = True
End Sub

Private Sub StopMarchingAnts()
	Timer1.Enabled = False
	Shape1.Visible = False
End Sub

Private Sub Timer1_Timer()
	If Shape1.BorderStyle = vbBSDot Then
		Shape1.BorderStyle = vbBSDashDot
	Else
		Shape1.BorderStyle = vbBSDot
	End If
End Sub
Pressing Command1 starts the animation; Command2 stops it. This works for all shape types.
George Hughen
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date