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 no Formulário
Postada em 15/5/2006 por Jonas Ely      Clique aqui para enviar email para o autor  jonas_ely@zipmail.com.br
Abra um novo projeto no VB
Coloque um Timer com Interval de 1
Na propriedade BorderStyle do formulário coloque 0-None
Na propriedade StarUpPosition do formulário coloque 2 - CenterScreen
e insire este código no View Code

Private Sub Form_Load()
Form1.Width = 0
Form1.Height = 0
End Sub

Private Sub Timer1_Timer()
Form1.Left = Form1.Left - 50
Form1.Top = Form1.Top - 50
Form1.Height = Form1.Height + 100
Form1.Width = Form1.Width + 100

If Form1.Height = 4000 Then
Timer1.Interval = 0
End If
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