[mohammed moh]

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

بعد إذن صاحب الموضوع الأصلي إليكم مثال عن طريقة التحكم في الماوس

المثال في المرفقات

بالتوفيق للجميع

[سعود]

ههههههههههههههههههههههههههههه
والله وقعتني بمشكلة بس الحمدلله اني مو جديد على هالحركات

---

اللي يحب يجرب الكود بس بشرط مايكون فيه اي نافذة تعمل الا نافذة الملقلب هذا

حتى تنهي المشكلة بالنقر على زر ALt+F4


صرح متغير عمومي على مستوى الفروم

كود :

Dim ax, ay As Integer

اضف تايمر وضع به

كود :

       ax = Int(Rnd() * Me.Width)
       ay = Int(Rnd() * Me.Height)
       Cursor.Position = New Point(ax, ay)

وضمن حدث النقر لزر الامر اكتب

كود :

       Timer1.Enabled = True
       Timer1.Start()

اجعل قيمة الانترفال كثيرة شوي يعني 250 الى 1000