منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مثال] تعلم كيف تحرك الماوس(منقول من المنتدى القديم) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مثال] تعلم كيف تحرك الماوس(منقول من المنتدى القديم) (/showthread.php?tid=112)



تعلم كيف تحرك الماوس(منقول من المنتدى القديم) - mohammed moh - 16-09-13

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



RE: تعلم كيف تحرك الماوس(منقول من المنتدى القديم) - سعود - 03-09-17

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

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

حتى تنهي المشكلة بالنقر على زر 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