• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 6 رای - 2.83 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: shape and timer
حالت موضوعی
#1
سلام دوستان.یه برنامه میخواستم که با استفاده از timer و shape نوشته شده باشه و حداقل 10 خط داشته باشهBlush
ساده هم باشه:heart:
 
پاسخ
#2
کد:
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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پرش به انجمن:


Browsing: 1 مهمان