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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Arrastar Imagem
Cavalheiro
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 18/07/2007 17:11 hs            
Pessoal preciso arrastar um imagem (componente image) num formulario, ou seja qdo clicar sobre a imagem e manter o botao direito precionado preciso que ao arrastar o mouse a imagem acompanhe a posição do ponteiro...
 
Agradeço desde já a ajuda.
 
Valeu

_______________________________________________

Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador 
Presidente Prudente-SP
http://vbprudente.blogspot.com

   
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 18/07/2007 22:20 hs            
Veja se este código te ajuda
 
 
'Declare
Dim MoveObjeto As Object
Dim MoveForm As Form
Dim MouseX As Long, MouseY As Long
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = 2) Then
        Set MoveObjeto = Picture1
        MouseX = X
        MouseY = Y
    End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = 2) Then
        Picture1.Left = Picture1.Left + X - MouseX
        Picture1.Top = Picture1.Top + Y - MouseY
    End If
End Sub
   
Cavalheiro
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 19/07/2007 08:33 hs            
Valeu Tekki deu certo.....Obrigado..
 
Vou encerrar o post..
 

_______________________________________________

Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador 
Presidente Prudente-SP
http://vbprudente.blogspot.com

   
Página(s): 1/1    

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