Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!
Forma Hiç Bişe Eklemeye Gerek Yok Fodlaraı Forma Yapıstır F5 bas cıkan sayfaya fare sol tusuyla tıkla beyenmedınmı bır keredaha tıkla 

Kod:
Private Sub Form_Click()
Dim CX, CY, Limit, Msg, Radius ' Değişkenleri tanımla
ScaleMode = 3 ' Ölçeği piksel olarak tanımla
AutoRedraw = -1 ' AutoRedraw özelliğini aç.
Width = Height ' Yüksekliği genişliğe eşitle
CX = ScaleWidth / 2 ' X posizyonunu ayarla
CY = ScaleHeight / 2
Limit = CX
For Radius = 0 To Limit
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
DoEvents
Next Radius
End Sub
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
- Cevaplar
- 1
- Görüntüleme
- 599
- Cevaplar
- 1
- Görüntüleme
- 464
- Cevaplar
- 7
- Görüntüleme
- 5K