Postingan

Menampilkan postingan dari September, 2009

Membuat efek pada saat form di tutup pada vb6

Buat temen-temen yang masih pengen memperdalam vb ini ada sedikit tutorial tentang bagaimana membuat efek form saat ditutup Pertama buat dulu project baru kemudian tambahkan 1 timer dan 3 command, ganti properties interval timer jadi 500. Kemudian, masing-masing command ganti caption-nya jadi "Jatuh Kesamping", "Jatuh Kebawah" dan "Efek Mengecil". Ketikan code dibawah ini : Private Sub Command1_Click() Do Me.Left = Me.Left + 2 Me.Move Me.Left + 2 DoEvents Loop Until Me.Left > Screen.Width Unload Me End Sub Private Sub Command2_Click() Do Me.Top = Me.Top + 20 Me.Move Me.Left, Me.Top DoEvents Loop Until Me.Top > Screen.Height - 500 Unload Me End Sub Private Sub Command3_Click() GotoVal = Me.Height / 2 For Gointo = 1 To GotoVal DoEvents Me.Height = Me.Height - 10 If Me.Height <= 11 Then GoTo horiz Next Gointo horiz: Me.Height = 30 GotoVal = Me.Width / 2 For Gointo = 1 To GotoVal DoEvents Me.Width = Me.Width - 10