Membuat Exit Layout pada visual basic
Bagi yang tertarik dengan animasi silahkan Copas coding dibawah ini, Persiapan Buat sebuah Project Baru Standart EXE tambahkan 1 buah Control CommandButton
Private Sub Command1_Click()
ExitLayout
Unload Me
End Sub
Private Sub ExitLayout()
On Error Resume Next
Dim fHeight As Long
Dim fWidth As Long
For fHeight = Me.Height To 1000 Step -1
Me.Height = fHeight
'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
Next fHeight
If Me.Height = 1000 Then
For fWidth = Me.Width To 1000 Step -2
Me.Width = fWidth
Next fWidth
End If
Me.Refresh
End Sub
ExitLayout
Unload Me
End Sub
Private Sub ExitLayout()
On Error Resume Next
Dim fHeight As Long
Dim fWidth As Long
For fHeight = Me.Height To 1000 Step -1
Me.Height = fHeight
'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
Next fHeight
If Me.Height = 1000 Then
For fWidth = Me.Width To 1000 Step -2
Me.Width = fWidth
Next fWidth
End If
Me.Refresh
End Sub
Mudah - mudahan ada mamfaatnya, akan Update Aplikasi Gudang yang sekarang masih dalam uji coba dan akan di post di blog ini kalau sudah finishing.
Artikel lain yang mungkin anda cari,:
visual basic
- Membuat Tampilan Form Lebih Menarik Dengan Skin di VB 6.0
- Program Shutdown Aplikasi Menggunakan Visual Basic
- cara menampilkan bilangan angka dengan visual basic 6.0
- Membuat database dengan memakai coding visual basic 6.0 (vb)
- Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0
- membuat form bergetar pada visual basic
- membuat kalkulator dengan visual basic 6.0
0 komentar:
Post a Comment