Membuat Exit Layout

    Share

    eRGe@N5
    Member Newbie
    Member Newbie

    Male
    Thread & Post : 14
    Point Forum : 207033
    Thanks Given : 0
    Join date : 02.08.11
    Age : 27
    Lokasi : N3 & N5

    default Membuat Exit Layout

    Post by eRGe@N5 on Thu Aug 18, 2011 2:09 am

    Bagi yang tertarik dengan animasi silahkan Copas coding dibawah ini, Persiapan Buat sebuah Project Baru Standart EXE tambahkan 1 buah Control CommandButton


    Spoiler:
    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


      Waktu sekarang Thu Dec 08, 2016 10:49 am