|
|
|
|
|
|
|
|
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
|
|
|
|
|
