[آموزشی] حركت انيميشني فرم هنگام باز و بسته شدن

[Ghoghnus]

كد هاي زير را در قسمت General فرمتون كپي كنيد:

کد:

Private Sub Form_Animation_Opener(your_form As Form, ByVal loop_step As Integer, ByVal how_open As Integer)
Dim f_h, f_w, i, j


  f_w = your_form.Width
  f_h = your_form.Height

Select Case how_open
  Case Is = 1
      For i = 0 To f_h Step loop_step
         your_form.Height = i
         your_form.Show
      Next i
Case Is = 2
      For i = 0 To f_w Step loop_step
         your_form.Width = i
         your_form.Show
      Next i
Case Is = 3
      your_form.Height = 0
      For i = 0 To f_w Step loop_step
          your_form.Width = i
          your_form.Show
      Next i
      For i = 0 To f_h Step loop_step
          your_form.Height = i
          your_form.Show
      Next i
Case Is = 4
     For i = 0 To f_w Step loop_step
         your_form.Height = j
         your_form.Width = i
         your_form.Show
         If j < f_h Then j = j + loop_step
     Next i

End Select

End Sub

Private Sub form_Animation_Closer(your_form As Form, loop_step As Integer)
On Error GoTo Exit_sub
Dim f_h, f_w, i, j
f_w = your_form.Width
f_h = your_form.Height
For i = f_h To 0 Step loop_step
   your_form.Height = i
   your_form.Show
   DoEvents
Next i
For i = f_w To 0 Step loop_step
    your_form.Width = i
    your_form.Show
    DoEvents
Next i
Exit_sub:
End Sub
Private Sub Form_Load()
     Form_Animation_Opener Me, 2, 3
End Sub

Private Sub Form_Unload(Cancel As Integer)
    form_Animation_Closer Form1, -2
    Me.WindowState = 1
End Sub

[mahdi321]

سلام این کد ها هم موقع Unload کردن فرم

کد php:

Private Sub Form_Unload(Cancel As Integer)
  Dim counter As Integer
  Dim I As Integer
  counter = Me.Height
  Do: DoEvents
    counter = counter - 10
    Me.Height = counter
    Me.Top = (Screen.Height - Me.Height) / 2
  Loop Until counter <= 10
  I = 15
  counter = Me.Width
  Do: DoEvents
    counter = counter + I
    Me.Width = counter
    Me.Left = (Screen.Width - Me.Width) / 2
    I = I + 1
  Loop Until counter >= Screen.Width
End
End Sub