Posts Subscribe to This BlogComments

Follow Us

New Articles

1 2 3 4 5
Photobucket Disini kalian dapat merequest Software, Game, Pembuatan gambar 3dimensi AUTOCAD dan ANIMASI 3DSMAX ataupun Share Solution of Computer

Senin, 07 November 2011

Explode form visual basic

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



0 komentar: