Skip to main content

AccessTr.neT


Animasyonlu Form Acilisi

chopper07
chopper07
1
3055

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
Task