مساعدة في الفيجوال بيسك

[komain]

بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته

اخواني احتاج لمساعدتكم في هذا الامر
1- اريد ان اجعل الفارة تتنتقل من مكان الى آخر اي مثلا تنتقل من button1 الى button2
2- و هل يمكن ان ابرمج الفارة لتقوم بالضغط على button1 بنفسها بعد وقت معين

[bammaha]

اخي ممكن تستخدم ال thread عشان تحرك الماوس من مكان لمكان اخر عن طريق معرفة احداثيات ال button2 ومن ثمة بعد تحرك الماوس تستطيع استدعاء ال listener لل button2

[komain]

بارك الله فيك اخي
هل يمكن ان تعطيني الكود لاني مبتدا في الفيجوال بيسك

[komain]

اين خبراء الفيجوال بيسك

[bammaha]

اخي الكود محتاج شوية وقت ,,, ممكن تستعين بالنت

[komain]

اخواني وجدت الكود الذي يجعل الفارة تنتقل من مكان الى مكان
و بقي كيف اجعلها تضغط لوحدها على الزر

[wladderb]

العفو اخي انت تأمر
في الاول ادا كنت تريد ان تضغط على زر داخل الفورم فالامر سهل جدا
Button1_Click(sender, e)
اضن انك لا تريده الانك قلت تريد كود للضغط
في الاول كود
الانتقال
وهو امر تحريك الماوس هو سهل جدا
تفضل هدا هو الكود
Windows.Forms.Cursor.Position = New System.Drawing.Point(266, 59)
266 و 59 هي الاحداتيات قم بتعويضها بما تريد جيد
الان الضغط جيد
يمكن ان نقسم الضغط الى 4 اقسام على الاقل
الاولى الضغط على الزر اليمن
التانية ترك الضغط على الزر اليمنى
التالتة الضغط على الزر اليسرى
الرابعة ترك الضغط على الزر اليسرى
رائعا الان
الاكواد

Public Declare Auto Function SetCursorPos Lib "User32.dll" (ByVal X As Integer, ByVal Y As Integer) As Long
Public Declare Auto Function GetCursorPos Lib "User32.dll" (ByRef lpPoint As Point) As Long
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down
Public Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
Public Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up



لكل استدعاء امره لدى وضعتها كلها
ضعها كلها في البرنامج او استعمل ما تريد
جيد الان كيف نضغط


mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)


mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

الضغط وترك الضغط
الجيد الان سانفد معك برنامج
وهو بنقل النافدة من مكان الى اخر
ليكن تموضعها القديم 100 100
والجديد اي المكان الدي نريد ان ننقل له النافدة هو
200 200



Windows.Forms.Cursor.Position = New System.Drawing.Point(100, 100)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Windows.Forms.Cursor.Position = New System.Drawing.Point(200, 200)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)


في انتضار ردك

[komain]

بارك الله فيك اخي
لا ادري كيف اشكرك على تعبك معي