توليد مكان عشوائي لمكان اداة ما ولتكن زر امر

توليد مكان عشوائي لمكان اداة ما ولتكن زر امر - نسخة قابلة للطباعة

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

توليد مكان عشوائي لمكان اداة ما ولتكن زر امر - سعود - 08-10-12

[TABLE="class: grid, width: 500, align: center"]
[TR]
[TD="align: center"]توليد مكان عشوائي لمكان اداة ما ولتكن زر امر[/TD]
[/TR]
[TR]
[TD="align: center"]ضمن التصريحات العامة اكتب

كود :

Dim a, s As Integer

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

كود :

a = Int(Rnd() * 500)

        s = Int(Rnd() * 500)

        Button1.Location = New Point(a, s)

حاول تنقر الزر! ماتقدر
بس Smile

هذي مقبلات للافطار Smile

[/TD]
[/TR]
[/TABLE]

توليد مكان عشوائي لمكان اداة ما ولتكن زر امر - tariq2812 - 08-10-12

طيب لو نقلت التركيز الى الزر بالمفتاح tab وظغطت زر المسطرة ينفذ الامر داخل حدث Click