Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
99
Assunto : Visual Basic
Titulo: Como mover o form clicando em qualquer parte do form

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Para fazer isso precisaremos utilizar os eventos de mouse : mousedown, mouseup e mousemove.

Nos eventos mousedown e mouseup devemos identificar o inicio da movimentação, sendo que no mousedown devemos guardar a posição inicial para realizarmos calculos em seguida.

No evento mousemove devemos realizar a movimentação em si, realizando o calculo com a posição inicial que foi guardada. Veja :


Dim gx As Integer
Dim gy As Integer
Dim movendo As Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
gx = x
gy = y
movendo = True
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If movendo Then
Me.Left = Me.Left + (x - gx)
Me.Top = Me.Top + (y - gy)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
movendo = False
End Sub

Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 5/2/2005 4:19:00 PM
nome: Marcos Lopes Matos
email: radamanttys@gmail.com
comentário:
Gostei isso vai me ser muito útil gostaria de ver todos os eventos sem ser o do formulario para ter uma ideia.

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br