Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Ekran Koruyucu

  Bu Ders Hakkında Sorularınız Varsa Lütfen Buraya Tıklayarak Forum Sayfamızda Bu Konunun Başlığı Hakkında Sorunlarınızı Yazınız.      

Formunuza güzel bir ekran koruyucu koyabilirsiniz.
Public Sub drawcircle(]
Dim red As Integer 'declare all varibles
Dim blue As Integer
Dim green As Integer
Dim xPos As Integer
Dim yPos As Integer
red = 255 * Rnd 'randomize red color
blue = 255 * Rnd 'randomize blue color
green = 255 * Rnd 'randomize green color
xPos = ScaleWidth / 2
yPos = ScaleHeight / 2
radius = ((yPos * 0.99] + 1] * Rnd
Circle (xPos, yPos], radius, RGB(red, blue, green]
End Sub
Private Sub Timer1_Timer(]
Call drawcircle
End Sub

Kolay Gelsin.






Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 25 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=