Programalama > VISUAL BASIC

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Enabled = True
Timer2.Interval = 1000
Timer3.Enabled = True
Timer3.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static x As Long
x = x + 100
Shape1.FillColor = QBColor(Rnd * 15)
Shape1.Width = x
Shape1.Height = x
End Sub

Private Sub Timer2_Timer()
Shape2.FillColor = QBColor(Rnd * 15)
Shape2.Width = (3000)
Shape2.Height = (4000)
Shape2.Left = (10000)
Shape2.Top = (3000)
End Sub

Private Sub Timer3_Timer()
Shape3.FillColor = QBColor(Rnd * 15)
Shape3.Width = (Rnd * 7000)
Shape3.Height = (Rnd * 7000)
Shape3.Left = (Rnd * 7000)
Shape3.Top = (Rnd * 7000)
End Sub


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.