تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في نقر الماوس على PictureBox
#1
السلام عليكم

اخواني

لدي مشروع موجود به picturebox ويقوم بالتقاط صورة لشاشة الجهاز عند فتحه 

الان انا اعرف كيف اقوم بجعل الماوس ينقر على postion معين في الشاشة 


ولكن لم اعرف كيف احتسب postion picturebox بالنسبة للشاشة يعني اجعل عندما اضغط على مثلا داخل picturebox عند صورة form1 كما هو موضح بالصورة ...يجعله يقوم بالنقر بشكل حقيقي على الشاشة الكامله




انا اعرف موضوي معقد ويمكن ما عرفت اوصل الفكرة ولكن باختصار شديد اعتبر Picturebox اعتبارا انها RemoteDesktop ولما تضغط عليها انت عمم تتحكم بششاشة الجهاز  


ارجوا انو وضحة وشكرا لكم



كود لتحديد Postion  في picturebox عند الضغط عيها 

كود :
 Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseClick
        PPoint = New Point(e.X, e.Y)
        MsgBox(e.X & " , " & e.Y)

    End Sub


وهذا كود لتغير مكان mouse 
اي postion الخاص به


كود :
 Private Declare Function SetCursorPos Lib "user32.dll" ( _
ByVal X As Int32, _
ByVal Y As Int32 _
) As Boolean

والاستدعاء :
كود :
  SetCursorPos(5, 5)

وتغير الرقمين 5


و كود النقر 

كود :
Private Declare Sub mouse_event Lib "user32.dll" ( _
    ByVal dwFlags As Int32, _
    ByVal dx As Int32, _
    ByVal dy As Int32, _
    ByVal cButtons As Int32, _
    ByVal dwExtraInfo As Int32 _


والاستدعاء بالنقر يمين او شمال mouse

كود :
 mouse_event(&H2, 0, 0, 0, 1)

        mouse_event(&H4, 0, 0, 0, 1




الصورة المرفقة فيها برنامجي Form1 ملتقط صورة للشاشة  والشاشة الاصلية 


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
سلام


لم افهم مقصد بشكل واضح

ولكن MousePosition تعطيك احداثيات x,y المؤشر بالنسبه للشاشه كامله مثل
Dim myX As Integer = MousePosition.X
Dim myY As Integer = MousePosition.Y


موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#3
لكي تتم الحسابات بشكل دقيق عليك أن تربط إحداثيات Bounds و Location الخاصيين ب PictureBox مع نفطة الصفر لشاشة الكمبيوتر و نقطة الصفر هنا هي النقطة الموجودة في أعلي يسار شاشة الكمبيوتر , وبما أن PictureBox نفسه موجود داخل Form إذن عليك أن تربط إحداثيات الفورم أيضا مع نقطة الصفر و هنا ستجد انك تقوم بعملية مزدوجة لكي تقوم بمثل تلك العمليات الحسابية لذلك و بدلا من استخدام PictureBox عليك ان تستخدم الفورم نفسه بشكل مباشر في أخذ الصورة من سطح الكمبيوتر  

وعلي فكرة أنت لست في حاجة أن تتستخدم UnManaged Code لتحديد أماكن الماوس أو تغيير شكل Cursor فكل هذا من الممكن ان يتم داخل احداث مثل Mouse Down و Mouse Move و Mouse Up

عموما انا اعمل علي فكرة مشابهة و قاربت علي الإنتهاء من كتابة الكود و ربما غدا أضع الكود في قسم المقالات ليستفيد منه الجميع

ولأنه مش واضح قوي ماذا تريد أن تفعل لكن أنا أتوقع أنك تريد تحديد مكان جزء معين من الصورة الموجودة داخل Picturebox لذلك عليك ان تستخدم MousePosition لتحديد مكان الماوس علي شاشة الكمبيوتر ثم تقوم بتعريف مستطيل مركزه تلك النقطة و تحدد أنت أبعاده ثم تقوم بنقل احداثيات مركز المستطيل لتحديد مكانه علي سطح الكمبيوتر وربما عليك أن تربطه مع مكان PictureBox Control لذلك وإن كانت توقعاتي صحيحة يمكنك أن تبدأ من هنا حيث ستجد بعض الأفكار في اللينك التالي

اللينــــــــــــــــــك
الرد }}}
تم الشكر بواسطة: الطالب
#4
اخواني هذه احدى محاولاتي (الصورة في المرفقات)



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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#5
ههههههههههههههه
اخواني كود السابق صحيح ويعطي المطلوب وتم الحل  Big Grin Big Grin Big Grin Big Grin


والتوضيح : في المرفقات بالصورة


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة: fdhrg
#6
(05-09-15, 05:01 PM)YazanOtoum كتب : ههههههههههههههه
اخواني كود السابق صحيح ويعطي المطلوب وتم الحل  Big Grin Big Grin Big Grin Big Grin


اخي ممكن توضح كيفية النقر علي الصوره تعطي نتيجه حقيقيه علي شاشة الحاسوب
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 219 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم