Gerekli olanlar:
1 adet timer
Timer'ın interval olayını 100 yapın.
Visual Basic i çalıştırıp yeni bir proje açıyoruz.
Gelen tasarım penceresi içerisini çift tıklıyıp Forum load kısmına gidiyoruz ve kodumuzu yapıştırıyoruz.
Araç kutusundan 1tane Timer tasarıma ekiyoruz ve Timer'e çift tıklıyoruz Timer kodumuzu yapıştırıyopruz.
Bunları yaparsak penceremiz açılırken yukarıdan aşagı dogru açılış yapıcaktır
Forum Looad Kodu
Kod:
Timer1.Start()
Timer1.interval=100
Timer Kodu
Kod:
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()
Tüm Kod
Kod:
Public Class StarTÜRK
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
Timer1.Interval = 1000
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
End Class
Son düzenleme: