USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Show / Hide Form com modo de Explosão / Implosão
Postada em 3/2/2003 por Felipe            
'Declare essa API em um módulo:
#If Win16 Then
    Type RECT
        Left As Integer
        Top As Integer
        Right As Integer
        Bottom As Integer
    End Type
#Else
    Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
    End Type
#End If

#If Win16 Then
    Declare Sub GetWindowRect Lib "user.dll" (ByVal hwnd As Integer, lpRect As RECT)

    Declare Function GetDC Lib "user.dll" (ByVal hwnd As Integer) As Integer

    Declare Function ReleaseDC Lib "user.dll" (ByVal hwnd As Integer, ByVal hdc As _
        Integer) As Integer

    Declare Sub SetBkColor Lib "gdi.dll" (ByVal hdc As Integer, ByVal crColor As Long)

    Declare Sub Rectangle Lib "gdi.dll" (ByVal hdc As Integer, ByVal X1 As Integer, _
        ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)

    Declare Function CreateSolidBrush Lib "gdi.dll" (ByVal crColor As Long) As Integer

    Declare Sub DeleteObject Lib "gdi.dll" (ByVal hObject As Integer)
#Else
    Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, _
        lpRect As RECT) As Long

    Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long

    Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal _
        hdc As Long) As Long

    Declare Function SetBkColor Lib "gdi32.dll" (ByVal hdc As Long, ByVal _
        crColor As Long) As Long

    Declare Function Rectangle Lib "gdi32.dll" (ByVal hdc As Long, ByVal X1 As Long, _
        ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

    Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long

    Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
#End If

'Crie essas funções
Sub ExplodeForm(f As Form, Movement As Integer)
    Dim myRect As RECT
    Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
    Dim TheScreen As Long
    Dim Brush As Long
    
    GetWindowRect f.hwnd, myRect
    formWidth = (myRect.Right - myRect.Left)
    formHeight = myRect.Bottom - myRect.Top
    TheScreen = GetDC(0)
    Brush = CreateSolidBrush(f.BackColor)
    For i = 1 To Movement
        Cx = formWidth * (i / Movement)
        Cy = formHeight * (i / Movement)
        X = myRect.Left + (formWidth - Cx) / 2
        Y = myRect.Top + (formHeight - Cy) / 2
        Rectangle TheScreen, X, Y, X + Cx, Y + Cy
        DoEvents
    Next i
    X = ReleaseDC(0, TheScreen)
    DeleteObject (Brush)
End Sub

Public Sub ImplodeForm(f As Form, Movement As Integer)
    Dim myRect As RECT
    Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
    Dim TheScreen As Long
    Dim Brush As Long
    
    GetWindowRect f.hwnd, myRect
    formWidth = (myRect.Right - myRect.Left)
    formHeight = myRect.Bottom - myRect.Top
    TheScreen = GetDC(0)
    Brush = CreateSolidBrush(f.BackColor)
    For i = Movement To 1 Step -1
        Cx = formWidth * (i / Movement)
        Cy = formHeight * (i / Movement)
        X = myRect.Left + (formWidth - Cx) / 2
        Y = myRect.Top + (formHeight - Cy) / 2
        Rectangle TheScreen, X, Y, X + Cx, Y + Cy
        DoEvents
    Next i
    X = ReleaseDC(0, TheScreen)
    DeleteObject (Brush)
End Sub

Private Sub Command1_Click()
    'Substitua todos os '500' pela velocidade do efeito de
    'explosão\Implosão
    Call ImplodeForm(Me, 500)
    End
    Set Form1 = Nothing
End Sub

Private Sub Form_Load()
    Call ExplodeForm(Me, 500)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Call ImplodeForm(Me, 500)
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página