من شکلی دارم که هر 100 میلی ثانیه به top و left اش اضافه میشه!
حالا میخوام بگم که از لی اوت خارج نشه!
این رو نوشتم اما افاقه نکرد!
Sub t1_Tick
Dim i As Int
Dim e As Int
If click.Top = 0%y Then
i = -1%x
e = -1%y
else if click.Left = 0%x Then
i = 1%x
e = -1%y
Else If click.Top = 70%y Then
i = 1%x
e = 1%y
Else if click.Left = 70%x Then
i = -1%x
e = 1%y
Else
i = 1%x
e = 1%y
End If
click.Left = click.Left +i
click.Top = click.Top +e
End Sub
سوال
coco 1,746
سلام دوستان!
من شکلی دارم که هر 100 میلی ثانیه به top و left اش اضافه میشه!
حالا میخوام بگم که از لی اوت خارج نشه!
این رو نوشتم اما افاقه نکرد!
لینک ارسال
به اشتراک گذاری در سایت های دیگر
11 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.