İKİ DAKİKA GÜNCEL HABER MERKEZİ

Menü Editör Örneği

Yazar jawscod2

Private Sub cikis_Click()
End
End Sub

Private Sub daire_Click()
mx = Rnd * Form1.ScaleWidth
my = Rnd * Form1.ScaleHeight
For i = 1 To 10
Circle (mx, my), i * 100, , B
Next
End Sub

Private Sub dortgen_Click()
Dim mx, my, i
mx = Rnd * Form1.ScaleWidth
my = Rnd * Form1.ScaleHeight
For i = 10 To 0 Step -1
Line (mx + i * 100, my + i * 100)-(mx - i * 100, my - i * 100), , B
Next
End Sub

Private Sub Form_Load()
ScalaMode = 3 ‘pixel
Randomize Timer
BackColor = &HFFFFFF ‘beyaz
End Sub

Private Sub kirmizi_Click()
Form1.BackColor = vbRed
End Sub

Private Sub mavi_Click()
Form1.BackColor = vbBlue
End Sub

Bu yazı toplamda 39, bugün ise 0 kez görüntülenmiş

Bu konularda ilginizi çekebilir

• İnternet Programı
• String Fonksiyonlari
• Adam Asmaca Oyunu
• Tek Tusla Windows Kapama
• Renk Geçişi
• Titreyen Form
• Bilgisayarı Konuşturma
• Dll Kullanımı
• Adodc Bağlantı Yöntemleri
• Taksitli Satış Programı

Aradığınız bu haberimizde yoksa, alttaki kutucuğa yazarak google yada sitemizde arama yapmak size yardımcı olabilir.

	Arama terimlerinizi girin Arama formu g�nder
	Web www.ikidakika.com