- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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..