Animasyonlu Form Acilisi - Baskı Önizleme

Animasyonlu Form Acilisi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Dersleri (https://accesstr.net/forum-visual-basic-6-dersleri.html)
+--- Konu Başlığı: Animasyonlu Form Acilisi (/konu-animasyonlu-form-acilisi.html)

Animasyonlu Form Acilisi - chopper07 - 25/11/2008

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
-*-*..............................................................................*-*-
-*-*.......................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..

Cvp: Animasyonlu Form Acilisi - fomka - 26/11/2008

abi sana zahmet bir de ufak örnek eklermisin.