ورود

View Full Version : Label خارج از فرم



vb-sosol
دوشنبه 03 خرداد 1389, 17:32 عصر
سلام :قلب:
بچه ها من در برنامه خودم label به سمت چپ حرکت میکنه میخوام وقتی به آخر فرم رسید یک مسیج باکس بیاد
اما خاصیت left این label را برابر همون عددی که محل قرار گیری label خارج از فرم هست میزارم هیچ اتفاقی نمی افتد میشه راهنمایی کنید چکار کنم؟

Mohamad ghorbani
دوشنبه 03 خرداد 1389, 17:38 عصر
سلام :قلب:
بچه ها من در برنامه خودم label به سمت چپ حرکت میکنه میخوام وقتی به آخر فرم رسید یک مسیج باکس بیاد
اما خاصیت left این label را برابر همون عددی که محل قرار گیری label خارج از فرم هست میزارم هیچ اتفاقی نمی افتد میشه راهنمایی کنید چکار کنم؟

اول ببین زمانی که Label به آخر فرم می رسه خاصیت left برابر چه عددیه . مثلا 2000
بعد توی Timer می نویسی :

if Label1.left = "2000" then
a = msgbox("Error")
end if

vb-sosol
دوشنبه 03 خرداد 1389, 17:42 عصر
اول ببین زمانی که Label به آخر فرم می رسه خاصیت left برابر چه عددیه . مثلا 2000
بعد توی Timer می نویسی :

if Label1.left = "2000" then
a = msgbox("Error")
end if


همین کد را نوشتم نشد :ناراحت:

Mohamad ghorbani
دوشنبه 03 خرداد 1389, 17:54 عصر
همین کد را نوشتم نشد :ناراحت:
من نوشتم شد !

xxxxx_xxxxx
دوشنبه 03 خرداد 1389, 19:03 عصر
دقت کنید دستور شرطی رو به چه شکل نوشته اید.
اگر فرضاً بخواید زمانی که Left برابر عدد 5 شد MsgBox فراخوانی بشه و گام های حرکت Label شما 3 تایی هست. ممکن هست که هیچ وقت Left لیبل برایر عدد 5 نشه. پس بجای استفاده از علامت مساوی (=) در درستورات شرطی از علامت های کوچتر و بزرگتر (< ، >) یا کوچکترمساوی و بزرگترمساوی (=> , =<) استفاده کنید.