Yine
Olduğu Gibi Forma Yapıştırın..4
Sonra Formda Boş Bi Yere Tıklayın..
Kod:
Sub Form_Click() Dim CX, CY, Radius, Limit ScaleMode = 3 CX = ScaleWidth / 2 CY = ScaleHeight / 2 If CX > CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit Circle (CX, CY), Radius, RGB(Rnd * 100, Rnd * 100, Rnd * 100) Next Radius End Sub
__________________
Forma Cerceve Eklemek
Programlama0 Mesaj
●21 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Forma Cerceve Eklemek