Form ' a açılış efekti verme

Bu dersimizde Form'u açarken nasıl efekt vereceğimizi öğreneceğiz.

Bu dersimizde Form'u açarken nasıl efekt vereceğimizi öğreneceğiz.

Gerekli olanlar:

[*] 1 adet timer
[*] Timer'ın interval olayını 100 yapın.


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Start()

        Timer1.interval=100

    End Sub



    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

  • Etiketler;
Yusuf Göksu Coşkun
Lefke Avrupa Üniversitesi - Bilgisayar Mühendisliği
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Guzel Olmus tsk
nasıl bir efekt veriyor bir caps koysaydınız daha iyi olurdu
önemli değil tekrar tekrar açıyor timer ın interval olayını düşürürsen görürsün..

Yukarı Git