Capture Mouse Position within Control Coordinates - نسخة قابلة للطباعة

PHP كود :

Public Class MouseLocationChangedEventArgs
    Inherits EventArgs

    Public Sub New(pt As Point)
        Me._Location = pt
    End Sub

    Public Property Location As Point

    Public ReadOnly Property X As Integer
        Get
            Return Me.Location.Y
        End Get
    End Property

    Public ReadOnly Property Y As String
        Get
            Return Me.Location.X
        End Get
    End Property

    Public Overrides Function ToString() As String
        Return (Integer.Parse(Me.X, System.Globalization.CultureInfo.CurrentCulture) & "," & Integer.Parse(Me.Y, System.Globalization.CultureInfo.CurrentCulture))
    End Function

End Class

PHP كود :

Imports System.ComponentModel

Public Class CairoControl
    Inherits Control

    Private _mouseLocation As Point = New Point(0, 0)

    <Browsable(False)> <Category("Behavior")> <Description("Gets the position of the mouse cursor in control coordinates.")> <DefaultValue(GetType(Point), "0,0")> _
    Public ReadOnly Property MouseLocation As Point
        Get
            Return Me._mouseLocation
        End Get
    End Property

    Private Sub ClampPointToClient(pt As Point)
        Me.ClampPointToClient(pt, Me.ClientRectangle.Width - 1, Me.ClientRectangle.Height - 1)
    End Sub

    Private Sub ClampPointToClient(pt As Point, w As Integer, h As Integer)
        If pt.X < 0 Then
            pt.X = 0
        End If
        If pt.X > w - 1 Then
            pt.X = w - 1
        End If

        If pt.Y < 0 Then
            pt.Y = 0
        End If
        If pt.Y > h - 1 Then
            pt.Y = h - 1
        End If
    End Sub

    Private Function HitPoint(pt As Point) As Boolean
        Me.ClampPointToClient(pt)
        If pt.X >= 0 AndAlso pt.X < Me.Width AndAlso pt.Y >= 0 AndAlso pt.Y < Me.Height Then
            Me._mouseLocation.X = pt.X
            Me._mouseLocation.Y = pt.Y
            Return True
        End If
        Return False
    End Function

    Protected Sub OnMouseLocationChanged(e As MouseLocationChangedEventArgs)
        RaiseEvent MouseLocationChanged(Me, e)
    End Sub

    Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
        MyBase.OnMouseMove(e)
        If Me.HitPoint(e.Location) Then
            Dim args As New MouseLocationChangedEventArgs(Me._mouseLocation)
            Me.OnMouseLocationChanged(args)
        End If
    End Sub

    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
        MyBase.OnMouseDown(e)
        If Me.HitPoint(e.Location) Then
            Dim args As New MouseLocationChangedEventArgs(Me._mouseLocation)
            Me.OnMouseLocationChanged(args)
        End If
    End Sub

    Public Event MouseLocationChanged As MouseLocationChangedEventHandler

End Clas