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

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Efeito Explodindo Formulário
Postada em 24/7/2001 por shibito      Clique aqui para enviar email para o autor  shibito@zipmail.com.br
'Em um módulo.bas:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'No formulário:
Sub ExplodeForm(frm As Form, Optional ByVal lNumSteps As Long = 25, _
Optional ByVal lStepDuration As Long)
Dim sngLeft As Single, sngTop As Single
Dim sngHeight As Single, sngWidth As Single
Dim sngNewHeight As Single, sngNewWidth As Single
Dim sngHeightStep As Single, sngWidthStep As Single
Dim iStep As Long

On Error Resume Next

'exit if the form is minimized/maximized
If frm.WindowState <> vbNormal Then Exit Sub

'save current size and position
sngLeft = frm.Left
sngTop = frm.Top
sngHeight = frm.Height
sngWidth = frm.Width

'calc the step for the height/width increase
sngHeightStep = sngHeight / lNumSteps
sngWidthStep = sngWidth / lNumSteps

'resize the form in several steps
For iStep = 1 To lNumSteps
'calc the new height/width
sngNewHeight = sngNewHeight + sngHeightStep
sngNewWidth = sngNewWidth + sngWidthStep
' display the form
frm.Move sngLeft + (sngWidth - sngNewWidth) / 2, _
sngTop + (sngHeight - sngNewHeight) / 2, sngNewWidth, sngNewHeight
frm.Visible = True
frm.Refresh
' pause if so requested
Sleep lStepDuration
Next

' ensure that the form is completely visible
frm.Move sngLeft, sngTop, sngWidth, sngHeight

End Sub

Private Sub Form_Load()

   ExplodeForm Me, 50, 1

End Sub
 


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