Sign in to follow this  
Luzifer

Efeito Windows Vista

Recommended Posts

Ola a todos. Estou com um problema que é o seguinte :

-Fiz uma pequena função em vb6 para window xp, que faz o efeito (+- parecido) a quando da abertura de uma janela no windows Vista.Até aqui tudo bem , só que o meu problema é fazer este efeito também no Visual Studio 2005, o que eu não consigo porque estou a iniciar agora no V.S.2005.

cump.

Luzifer

Junto anexo o código para o VB6

============================

Private Sub ExplodeVistaEfect(ByRef frm As Form)

With frm

.Width = 0

.Height = 0

.Show

For x = 0 To 10000 Step 50

.Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, x, x

DoEvents

Next

End With

End Sub

Private Sub Form_Load()

ExplodeVistaEfect Me

End Sub

============================

Share this post


Link to post
Share on other sites

Bom, acho que ao invés do método Move() você vai ter que usar a propriedade Location e só deve reparar que DoEvents agora fica na classe Application.

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this