Memebuat Animasi tampilan Form VB
Disini kita akan membuat animasi Form sehingga saat di jalankan (Run) Form akan terbuka dari tengah-tengah desktop seperti layar yang di tarik bagian atas dan bagian bawahnya, berikut caranya : DOWNLOAD
Buat Project baru di VB /(Jalankan VB anda/StandardEXE/Open)
Ketikan Kode ini pada Form Load
Private Sub Form_Load()
ME.Height=10
End Sub
Untuk membuat animasi munculnya form di tengah, ketik Kode berikut
Public Sub tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Tambahkan 1 Timer dengan cara /(Clik Timer pada tool box/drang di Form) jangan lupa pada jendela properties intervalnya ubah jadi 100, dan pada jendela kode ketikan kode berikut ini
Private Sub Timer2_Timer()
Me.Height = Me.Height + 100
tengah
If Me.Height >= 4000 Then
Timer2.Enabled = False
tengah
End If
End Sub
Tips & Trik :
Angka 4000 diatas bisa anda ubah sesuai dengan ukuran form anda
Untuk membuat variasi andan bisa merubah Height menjadi Width sehingga form akan membuka secara horizontal