HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Formumuza bir adet Timer Koyalim ve asagidaki kodları ekleyelim
Private Sub Timer1_Timer( )
Dim ilkyukseklik, sonyukseklik, ilkgenislik, songenislik
ilkyukseklik = 510
sonyukseklik = 6405
ilkgenislik = 1845
songenislik = 6840
Form1.Width = ilkgenislik
Form1.Height = ilkyukseklik
For y = ilkyukseklik To sonyukseklik
Form1.Height = y
If y = sonyukseklik Then
For g = ilkgenizlik To songenislik
Form1.Width = g
If g = songenislik Then
Timer1.Enabled = False
End If
Next
End If
Next
End Sub
Hepsi bu kadar şimdi F5 tusu ile form animasyonumuzu test edebiliriz..
Private Sub Timer1_Timer( )
Dim ilkyukseklik, sonyukseklik, ilkgenislik, songenislik
ilkyukseklik = 510
sonyukseklik = 6405
ilkgenislik = 1845
songenislik = 6840
Form1.Width = ilkgenislik
Form1.Height = ilkyukseklik
For y = ilkyukseklik To sonyukseklik
Form1.Height = y
If y = sonyukseklik Then
For g = ilkgenizlik To songenislik
Form1.Width = g
If g = songenislik Then
Timer1.Enabled = False
End If
Next
End If
Next
End Sub
Hepsi bu kadar şimdi F5 tusu ile form animasyonumuzu test edebiliriz..
