ini salah satu design dalam membuat form.....
dimana disini saya akan memberikan suatu effect ketika membuka suatu program tersebut.....
SOurce code nya.
Private Sub Explode(ByRef frm As Form, ByRef efek As Boolean)
With frm
.Width = 0
.Height = 0
.Show
If efek Then
For x = 0 To 10000 Step 50
.Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, x, x
DoEvents
Next
Else
For x = 10000 To 0 Step -50
.Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, x, x
DoEvents
Next
End
End If
End With
End Sub
Private Sub Form_Load()
Explode Me, 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1: Explode Me, 0
End Sub
Atau kalian bisa download contoh programnya disini
Related Post
Visual Basic
- GAME CARD WITH VISUAL BASIC 6
- Using ADO and the ListView control Visual basic 6.0
- Program pengacak no undian pada VB 6
- duplikat gambar dengan visual basic
- Efek Tetesan Air Diatas Monitor dengan visual basic
- SIMULATION DEACTIVE BOOM VER.1
- Simulasi animasi gerbang otomatis dengan visual basic
- MENAMPILKAN PILIHAN GAMBAR DENGAN VISUAL BASIC
- Animasi Frame image dengan visual basic 6
- Game uji kemampuan otak dengan visual basic 6.0
