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

 

  Dicas

  Visual Basic.Net    (Forms/MDI)

Título da Dica:  Eventos em objeto sem timer
Postada em 12/1/2006 por Geronimo            
Private Sub Form_Activate()

'EFEITO DE ENTRADA DE OBJETOS, sem o uso de Timer

With Form1 ' neste caso estou usando form mas pode ser aplicado a qualquer objeto
            
             .Top = 8000 ' modifique estes valores para trabalharem simultaneamente
             .Left = 10650 ' para chegarem ao mesmo tempo
          
          Do While .Top > 0
                
                .Top = .Top - 15  ' incremente como quiser, 15 em 15, 60 em 60
                .Left = .Left - 20
                
                DoEvents            ' se desejar, não obrigatório, pq o efeito é rápido não necessita de processamento paralelo
                
         Loop
        
    .Left = 0 'para garantir o alinhanhento do objeto

End With
'
'Faça com Left para entrada da esquerda para a direita, ou inverta o Top para partir de abaixo para cima
' use e abuse
'elimine o top ou left para que a entrada fique na horizontal ou vertical o caso acima é para entrar em diagonal
' e posicionar no canto superior em Top = 0 e left =0

End Sub
 


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