[YazanOtoum]

اخواني هذه احدى محاولاتي (الصورة في المرفقات)



Postion Mouse هو Postion الخاص بالماوس في شاشة الوندز 

Postion Image هو Postion الماوس ولكن فقط على PictureBox الموجودة في الفورم

Result Postion وهو محاولتي في ايجاد postion الحقيقي اقصد تاع Screen والذي يجب ان يكون كما هو في Postion Mouse


ولكن لم ينفع

محاولتي :
الكود :

كود :

Public Class Form1
    Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
    Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
   
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       



    End Sub
  
   





    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim myX As Integer = MousePosition.X
        Dim myY As Integer = MousePosition.Y

     

        Label1.Text = "Postion Screen :" & myX & "-" & myY

    End Sub

   

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        Dim PPoint = New Point(e.X, e.Y)
        Label2.Text = "Postion Image : " & e.X & " - " & e.Y
        Dim a As Integer = (e.X * (screenWidth / PictureBox1.Width))
        Dim b As Integer = (e.Y * (screenHeight / PictureBox1.Height))
        Label3.Text = " Result Postion :" & a & "-" & b
    End Sub
End Class