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]