Ir para o conteúdo
TS91

Mexer img com o rato

Mensagens Recomendadas

TS91    0
TS91

Boas,

eu sei que jameti esta duvida mas enganei me no sitio, eu queria era meter aqui.

Eu preciso de fazer uma imagem mexer juntamente com o rato.

Eu ja consegui faze la mexer mas nao tava na mesma posição que o cursor.

Se alguem poder ajudar agradeço.

cumpz

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
got_r00t?    0
got_r00t?

Tinha aqui este código, vê se te ajuda.

Inherits System.Windows.Forms.Form
    Public Dragging As Boolean
    Public mousex, mousey As Integer
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox


Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = MouseButtons.Left Then
            Dragging = True
            mousex = -e.X
            mousey = -e.Y
            Dim clipleft As Integer = Me.PointToClient(MousePosition).X - PictureBox1.Location.X
            Dim cliptop As Integer = Me.PointToClient(MousePosition).Y - PictureBox1.Location.Y
            Dim clipwidth As Integer = Me.ClientSize.Width - (PictureBox1.Width - clipleft)
            Dim clipheight As Integer = Me.ClientSize.Height - (PictureBox1.Height - cliptop)
            Cursor.Clip = Me.RectangleToScreen(New Rectangle(clipleft, cliptop, clipwidth, clipheight))
            PictureBox1.Invalidate()
        End If
    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If Dragging Then
            'move control to new position
            Dim MPosition As New Point()
            MPosition = Me.PointToClient(MousePosition)
            MPosition.Offset(mousex, mousey)
            'ensure control cannot leave container
            PictureBox1.Location = MPosition
        End If
    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        If Dragging Then
            'end the dragging
            Dragging = False
            'Me.Capture = False
            Cursor.Clip = Nothing
            PictureBox1.Invalidate()
        End If
    End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
ribeiro55    44
ribeiro55

Quando preciso de algo desse género, costumo usar algo que inventei:

(Adiciona uma picturebox a uma form e substituí o código)

Public Class Form1

    Dim OffsetY As Integer
    Dim OffsetX As Integer
    Const BarraTitulo As Integer = 28
    Const Rebordo As Integer = 3

    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        OffsetY = e.Y + Me.Top
        OffsetX = e.X + Me.Left
    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            PictureBox1.Top = (Windows.Forms.Cursor.Position.Y - OffsetY) - BarraTitulo
            PictureBox1.Left = (Windows.Forms.Cursor.Position.X - OffsetX) - Rebordo
        End If
    End Sub
End Class

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade