Percantik Form pada Visual Basic 6



Untuk Sobat ishal yang mendalami bahasa pemograman visual khususnya pada visual basic 6.0, pada artikel kali ini saya akan memberikan cara mempcantik tampilan pada Form di project visual basic kalian...
langsung aja deh menuju TKP ==>

1. Form Menutup Kebawah => Form saat kita Close atau Ditutup , Form tersebut akan menutup kebawah secara berjalan.
Codenya :
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 300
End Sub



2. Form Menutup ke Kanan => Sama seperti Form menutup kebawah, akan tetapi Form menutup kearah kanan ini akan menutup Form berjalan kearah kanan bukan kebawah.
Codenya :
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



3. Form Melebar Kesamping => Kali ini beda halnya dengan 1 dan 2, Form Muncul Melebar saat dijalan kan akan terlihat seperti gorden atau kain yang untuk menunutp jendelah tuh saat di buka.Pada animasi yang ini kita perlu menambahkan componen Timer di dalam Form tersebeut dan atur intervalnya menjadi 100.
codenya :

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 + 100
Tengah
If Me.Width >= 4000 Then
Timer1.Enabled = False
Tengah
End If
End Sub



4.  Form Melebar Keatas => kali ini sama seperti yang nomor 3 , pada animasi ini kita harus menambahkan componen Timer dan atur intervalnya menjadi 100
codenya
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 + 100
Tengah
If Me.Height >= 3000 Then
Timer1.Enabled = False
Tengah
End If
End Sub


Dari 1 sampai 3 mana yang kalian suka, Silakan Dicoba ya.
kalau ada pertanyaan silakan coment dibawah in :)  

Tidak ada komentar:

Posting Komentar