Blog Archive
About Me
- UPT SDN Purworejo 1 Pasuruan
hh. Diberdayakan oleh Blogger.
Label
- animasi delphi7 (2)
- animasi vb (2)
- delphi7 (2)
- vb6 (2)
Jumat, 29 Juni 2012
Animasi Form vb6
Animasi pada vb6, emg bisa..??
Ehmm coba dulu dech...
Sobat blogger pasti ngrasa bosan dengan gaya form ketika Load atau Unload yang gitu-gitu aja..
gak ada sensasi "wahh.." gtu...
untuk itu gw kasi beberapa tips n trik agar saat form load atau unload memiliki gaya atau animasi...
yuk bikin coding...
Ketika Form Load [ muncul ]
Public Sub Tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Ketika Form Unload [ ngilang ]
- Form menutup ke atas atau ke bawah
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top - 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 300
End Sub
* untuk menutup kebawah ganti + pada " Me.Top = Me.Top - 5 "
- Form menutup ke kanan atau ke kiri
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 5 ' ganti angka 5 sesuai dgn selera'
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
* untuk menutup kebawah ganti - pada " Me.Left = Me.Left + 5 "
Untuk contoh aplikasi nya download disini
Ehmm coba dulu dech...
Sobat blogger pasti ngrasa bosan dengan gaya form ketika Load atau Unload yang gitu-gitu aja..
gak ada sensasi "wahh.." gtu...
untuk itu gw kasi beberapa tips n trik agar saat form load atau unload memiliki gaya atau animasi...
yuk bikin coding...
Ketika Form Load [ muncul ]
- Form Melebar dari tengah ke samping
Beri tambahan timer pada form ( interval = 100) Public Sub Tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
Private Sub Form_Load()
Me.Width = 10
End Sub
Private Sub Timer1_Timer()
Me.Width = Me.Width + 500
Tengah
If Me.Width >= 5000 Then
Timer1.Enabled = False
Tengah
End If
End Sub
Do
Me.Left = Me.Left + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
Private Sub Form_Load()
Me.Width = 10
End Sub
Private Sub Timer1_Timer()
Me.Width = Me.Width + 500
Tengah
If Me.Width >= 5000 Then
Timer1.Enabled = False
Tengah
End If
End Sub
- Form Melebar dari tengah ke samping
Beri tambahan timer pada form ( interval = 100)
Public Sub Tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Form_Load()
Me.Height = 10
End Sub
Private Sub Timer1_Timer()
Me.Height = Me.Height + 500 'ganti angka 500 sesuai dgn selera'
Tengah
If Me.Height >= 3000 Then ' sesuaikan dgn heigh form'
Timer1.Enabled = False
Tengah
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 100
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Form_Load()
Me.Height = 10
End Sub
Private Sub Timer1_Timer()
Me.Height = Me.Height + 500 'ganti angka 500 sesuai dgn selera'
Tengah
If Me.Height >= 3000 Then ' sesuaikan dgn heigh form'
Timer1.Enabled = False
Tengah
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 100
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
- Form menutup ke atas atau ke bawah
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top - 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 300
End Sub
* untuk menutup kebawah ganti + pada " Me.Top = Me.Top - 5 "
- Form menutup ke kanan atau ke kiri
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 5 ' ganti angka 5 sesuai dgn selera'
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
* untuk menutup kebawah ganti - pada " Me.Left = Me.Left + 5 "
Untuk contoh aplikasi nya download disini
Label:
animasi vb,
vb6
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar