güzel bir ekran koruyucu

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Güzel Bir Ekran Koruyucu

Güzel bir ekran koruyucu</STRoNG>
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.

Kod Alanı:

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

Hosting Sponsorumuz - Noktahost internet hizmetleri