VisualBasic_form_acilisi.htm

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
-*-*                                                                              *-*-
-*-*     C o d e d      b y     M e l i h   U c a r                     *-*-
-*-* h t t p : / / w w w . t e c h m a s t e r . o r g              *-*-
-*-*                                                                              *-*-
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

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

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol