Programalama > VISUAL BASIC

Etiketler: ekran, koruyucu

Ort. 0
Puan ver:
Bu programda 4 label 2 timer kullanılmıştır. Labelleri formun üzerine her biri bi köşede olmak üzere formu kaplayacak şekil de eşit olarak büyültünüz. Formu tam ekran yapınız. Her labelin rengini ve formun rengini değişik rengte yaparsanız farkı görürsünüz.Mesela label1'i kırmızı,label2' yi sarı, label3' ü sarı ve label 4'ü kırmızı yapınız.kodları uygun yerlerine yazdıktan sonra çalıştırınız. 

NOT:bilgisayarın ekran kartının iyi olması gerekmektedir Aksi taktirde görüntü iyi olmaya bilir.


Private Sub Form_Load()
Timer1.Interval = 1
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Height = Label1.Height + 10
Label2.Height = Label2.Height + 10
Label3.Height = Label3.Height + 10
Label3.Top = Label3.Top - 10
Label4.Height = Label4.Height + 10
Label4.Top = Label4.Top - 10
If Label1.Height = 5105 Then
Timer2.Interval = 1
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = False
Label1.Height = Label1.Height - 10
Label2.Height = Label2.Height - 10
Label3.Height = Label3.Height - 10
Label3.Top = Label3.Top + 10
Label4.Height = Label4.Height - 10
Label4.Top = Label4.Top + 10
If Label1.Height = 15 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
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 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.