25/11/2008, 17:58
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
-*-*..............................................................................*-*-
-*-*.......................C o d e d b y U c a r.........................*-*-
-*-*..............................................................................*-*-
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Formumuza bir adet Timer Koyalim ve asagidaki kodları ekleyelim
Hepsi bu kadar şimdi F5 tusu ile form animasyonumuzu test edebiliriz..
-*-*..............................................................................*-*-
-*-*.......................C o d e d b y U c a r.........................*-*-
-*-*..............................................................................*-*-
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Formumuza bir adet Timer Koyalim ve asagidaki kodları ekleyelim
Kod:
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 SubHepsi bu kadar şimdi F5 tusu ile form animasyonumuzu test edebiliriz..