تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مؤشر الماوس
#1
أخواني الأفاضل

لو تكرمتم.. إني بحاجة لإظهار مؤشر الماوس فوق زر معين عند تشغيل الفورم فكيف يمكنني ذلك جزاكم الله خيراً

تقبلوا تحياتي
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

PHP كود :
Public Class Form1
    
'دالة من دوال API لتغير مكان الماوس
    <System.Runtime.InteropServices.DllImportAttribute("user32.dll", EntryPoint:="SetCursorPos")> _
    Public Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As <System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.Bool)> Boolean
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '
هذه نقطة منتصف الزر وهذه النقطة بالنسبة للفورم
        Dim P 
As New Point(Button1.Location.Button1.Width 2Button1.Location.Button1.Height 2)
        
'قمنا بجلب نقطة منتصف الزر ولكن بانسبة للشاشة كلها
        SetCursorPos(PointToScreen(P).X, PointToScreen(P).Y)
    End Sub
End Class 

الرد }}}}
تم الشكر بواسطة:
#3
واذا كنت لاتريد التعامل مع دوال api (اللتى لا يجيد التعامل معها الكثيرون)

فأن كود اخى AHMED HUSSIEN يلبى الغرض مع تغيير بسيط

تفضل الكود بدون api

PHP كود :
Dim P As New Point(Button1.Location.Button1.Width 2Button1.Location.Button1.Height 2)
        
Cursor.Position Button1.Parent.PointToScreen(P

تحياتى للجميع
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل الماوس يقف ثامى سطر فى التكست بوكس ابو روضة 6 162 30-07-16, 07:42 AM
آخر رد: ابو روضة
  [سؤال] الغاء ظهور قائمة النسخ عند النقر بزر الماوس الايمن Ahmed Gandos 1 128 31-03-16, 02:15 AM
آخر رد: HASAN6.0
  [سؤال] اريد كود إلغاء ظهور قائمة النسخ عند النقر بزر الماوس الأيمن على مربعات النصوص Ahmed Gandos 5 259 08-03-16, 08:54 PM
آخر رد: HASAN6.0
  كود ايقاف الماوس و الكيبورد mohamed haroon 9 685 14-09-15, 05:23 PM
آخر رد: mohamed haroon
  [VB.NET] اخفاء الماوس ILI 2 225 06-09-15, 07:53 PM
آخر رد: الطالب
  مساعدة في نقر الماوس على PictureBox ILI 4 419 05-09-15, 05:01 PM
آخر رد: ILI
  تحديد كلمة عندما تمر الماوس من فوقها العواد الصغير 2 384 27-07-15, 12:18 AM
آخر رد: العواد الصغير
  [سؤال] تغيير مؤشر الكتابة صقر 1 387 30-10-14, 12:39 AM
آخر رد: Dev Saeed
  تغيير مؤشر الكتابة صقر 2 569 29-10-14, 01:49 AM
آخر رد: صقر
  [سؤال] كود حجز الماوس بالفورم محمد اسماعيل 3 439 18-10-14, 03:56 PM
آخر رد: shwehdi4pc

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


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