VB MousePosition in PictureBox

[jan25ish]

Hi.
Ich wüsste jetzt nicht wie ich das anders erklären könnte
Wenn man sich die picturebox als desktop vorstellen würde, und dann auf die picturebox klickt, dass man dann die mouseposition bekommen würde. Aber die box ist kleiner als der desktop. Ich habe mir über drei stunden den kopf zerbrochen aber keine lösung gefunden. Könntet ihr mir helfen?

Also ich meine das man sich die picbox als verkleinerter desktop vorstellt. Wenn man dann auf die box klickt dannbekommt man die mouseposition wie sie auf dem großem desktop wäre.

[Ludder231]

gibts nicht einfach ne position von der Maus? Also es gibt ein picturebox event mit Picturebox click und dann die X,Y Pos von der Maus. Musst mal googlen

[xoreaxeax]

Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        MessageBox.Show("Drei Stunden??")
    End Sub
End Class

[Ludder231]

Originally Posted by xoreaxeax

Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        MessageBox.Show("Drei Stunden??")
    End Sub
End Class

Die Mausposition fehlt Das war doch sein Hauptproblem denk ich mal...

PHP Code:

 Label1.Text = "X." & e.X & vbCrLf & "Y." & e.Y 


Vllt. gehts so.
Sonst(Nur in der Form):

PHP Code:

 Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Label1.Text = "X." & e.X & vbCrLf & "Y." & e.Y
        
    End Sub 


Sonst:

[»Barney«]

protected override void OnMouseDoubleClick(MouseEventArgs e)
        {
            base.OnDoubleClick(e);
 
            int x = e.X, y = e.Y;
            var button = e.Button;
        }

[xoreaxeax]

Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        MessageBox.Show(Cursor.Position.ToString)
    End Sub
End Class

[»Barney«]

Originally Posted by xoreaxeax

Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        MessageBox.Show(Cursor.Position.ToString)
    End Sub
End Class

that's not what he asked, the cursor might be moved before the event is fired

[jan25ish]

Danke Ludder habs jetzt endlich raus ;D

[Ludder231]

Originally Posted by jan25ish

Danke Ludder habs jetzt endlich raus ;D

Wäre gut wenn du deine Lösung posten würdest für user die das später auch mal wissen wollen

[jan25ish]

Also ich habe noch ne PictureBox2 erstellt die 1;1 groß ist und Visible = False.
Die PictureBox2 wird da positioniert, wo man mit der Maus hinklickt.

Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        Label1.Text = "X." & "%" & e.X & "%" & "Y." & "%" & e.Y
End Sub

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Dim screen As New Rectangle
        screen.Width = PictureBox1.Width
        screen.Height = PictureBox2.Height

        PictureBox2.Left = Label1.Text.Split("%")(1)
        PictureBox2.Top = Label1.Text.Split("%")(3)

        TextBox1.Text = PictureBox2.Left
        TextBox2.Text = PictureBox2.Top
End Sub

[Requi]

 player.Location = New Point(Me.PointToClient(MousePosition))

Meinst du das? Der nimmt die koordinaten aus der form und nicht die vom kompletten display