Skip to main content

#EvdeKal


Animasyonlu Form Acilisi

chopper07
chopper07
1
2513

Animasyonlu Form Acilisi

#1
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
-*-*..............................................................................*-*-
-*-*.......................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 Sub 


Hepsi bu kadar şimdi F5 tusu ile form animasyonumuzu test edebiliriz..

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
#2
abi sana zahmet bir de ufak örnek eklermisin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da