+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: shape and timer (/showthread.php?tid=2005)
shape and timer - mamali - 04-01-2012
سلام دوستان.یه برنامه میخواستم که با استفاده از timer و shape نوشته شده باشه و حداقل 10 خط داشته باشه
ساده هم باشه:heart:
RE: shape and timer - Amin_Mansouri - 04-01-2012
کد:
Private Sub Form_Load()
Me.Caption = "Change Shape"
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
ChangeShape (Rnd * 5)
End Sub
Public Function ChangeShape(Vaule As Integer)
Shape1.Shape = (Vaule)
End Function