Animasyonlu Form Açılışı

[ßyMesMes]

Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch 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..

 

[darki2696]

Tşkler...

 

[cskn192]

Teşekkürler.

 

[turkmmouser01]

SaoL

 

[ßyMesMes]

Siz sağolun.