04-01-2012، 08:14 PM
سلام دوستان.یه برنامه میخواستم که با استفاده از timer و shape نوشته شده باشه و حداقل 10 خط داشته باشه
ساده هم باشه:heart:
ساده هم باشه:heart:
04-01-2012، 08:36 PM
کد:
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