PDA

View Full Version : ثابت نگه داشتن ماوس



sokote_bi_payan
پنج شنبه 15 شهریور 1386, 00:05 صبح
به نام خدا

با سلام خدمت دوستان عزیز

این چیزی که می خوام بگم واسه کسایی که نمی دوننه پس از استادان معذرت می خوام

برای اینکه ماوس و در یک جای ثابتی نگه داریم می تونیم این کار و کنیم

ابتدا در بالای فرممون این کد را وارد می کنیم

Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long


سپس در رویداد Load فرممون می نویسیم:

setcurorpos 10,1000

برای اینکه کاربر نتونه ماوس و از جاش تکون بده در رویداد mouse_move می نویسیم

setcurorpos 10,1000

همین

یا علی

:لبخندساده: