Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma 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..
