- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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:
--------------------------------------------
Kod:
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:
------------------------------------
Kod:
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
Şimidi Form1'e eklenecekler:
----------------------------------
Sadece 1 Timer gerisi size kalmış...
----------------------------------
Evet.Şimdi Form1'e yazılacak kodları vereyim:
--------------------------------------------
Kod:
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:
------------------------------------
Kod:
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
