08-10-12, 09:30 AM
[TABLE="class: grid, width: 500, align: center"]
[TR]
[TD="align: center"]توليد مكان عشوائي لمكان اداة ما ولتكن زر امر[/TD]
[/TR]
[TR]
[TD="align: center"]ضمن التصريحات العامة اكتب
وضمن حدث MouseEnter لزر الامر اكتب
حاول تنقر الزر! ماتقدر
بس
هذي مقبلات للافطار[/TD]
[/TR]
[/TABLE]
[TR]
[TD="align: center"]توليد مكان عشوائي لمكان اداة ما ولتكن زر امر[/TD]
[/TR]
[TR]
[TD="align: center"]ضمن التصريحات العامة اكتب
كود :
Dim a, s As Integerكود :
a = Int(Rnd() * 500)
s = Int(Rnd() * 500)
Button1.Location = New Point(a, s)بس
هذي مقبلات للافطار[/TD][/TR]
[/TABLE]