Form1 Efektli Açılsın//Kolikantos

[kolikantos]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Efektli Açılış​

Merhaba arkadaşlar.Şimdi size yaptığınız çalışmadaki Form1'in efektli açmayı öğreteceğim.Tabikide buda kodlarla olacak
Şimidi Form1'e eklenecekler:
----------------------------------
Sadece 1 Timer gerisi size kalmış...
----------------------------------
Evet.Şimdi Form1'e yazılacak kodları vereyim:
--------------------------------------------

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer1.interval=100
    End Sub

Bunu Form1'e koyacaksınız.
Şimdi Timer1'e yazacağınız kodlar:
------------------------------------

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim x, y, k As Integer
        x = 300
        y = 0
        For k = 0 To 300
            y += 1.1
            Me.Size = New System.Drawing.Size(x, y)
        Next
        Timer1.Stop()
    End Sub

Tamamdır.
Not:Arkadaşlar Eğer fazladan yazı olursa yada aynı yazılar tekrar olursa bir tanesini silin.Bileşen hatası verir
-----------------------------------------
Şimdi yapmamız gereken son bir şey kaldı.
Timer'in üstüne tıklayıp Interval'ın değerini 100 yapın.Zaten öyledir.Ben sadece kontrol etmeniz için söyledim.
---------------------------------------------
Eğer yapamazsanız video koyacağım.
1 Teşekkür ve 1 +Rep yeter.
O da olmazsa 1 Teşekkür yeter ​

 

[Ruiz]

Teşşekürler

 

[kolikantos]

Teşşekürler

Önemli
Rica ederim...

 

[umit99]

Demo koyabilir misin ?

 

[kolikantos]

Demo koyabilir misin ?

Tamam...