PDA

View Full Version : مكان فعلي mouse



mehdad.koulab
پنج شنبه 20 آبان 1389, 13:19 عصر
سلام
دوستان مكان فعلي mouse را چجوري ميتونم به دست بيارم.
مثلا با كليلك روي يك Button و x و y رو پيغام بده.

ali_najari
پنج شنبه 20 آبان 1389, 13:34 عصر
دوست عزيز براي انكار شما بايد از خاصيت MousePosition استفاده كنيد كه با استفاده از آن ميتونيد X و Y محل فعلي Mouse رو بدست بياريد به اينصورت كه



Dim _Point As Point = MousePosition


يا به اينصورت:



Dim _X, _Y As Integer
_X = MousePosition.X
_Y = MousePosition.Y
MsgBox("X: " & _X & vbCrLf & "Y: " & _Y)

Mani_rf
پنج شنبه 20 آبان 1389, 13:56 عصر
در صورتی که می خواهی مکان فعلی موس روی یک کنترل را فرم را به دست بی آوری در رویداد MouseMove آن شی از e.X و e.Y استفاده کن و
اگر می خواهی مختصات موس را در هرکجای صفحه نمایش حتی خارج از فرم برنامه به دست بی آوری از علاوه بر موردی که دوستمان گفتند از

Cursor.Position.X
Cursor.Position.Y

هم می توانی استفاده کنی.

omid-vbAuto
پنج شنبه 20 آبان 1389, 18:04 عصر
در صورتی که می خواهی مکان فعلی موس روی یک کنترل را فرم را به دست بی آوری در رویداد MouseMove آن شی از e.X و e.Y استفاده کن و
اگر می خواهی مختصات موس را در هرکجای صفحه نمایش حتی خارج از فرم برنامه به دست بی آوری از علاوه بر موردی که دوستمان گفتند از

Cursor.Position.X
Cursor.Position.Y


هم می توانی استفاده کنی.


اگه بخواهیم مختصات موس را در هر کجای صفحه نمایش حتی خارج از فرم بدست آوریم از کد زیر تو رخ داد MouseMove فرم استفاده می کنیم.




Cursor.Position.X
Cursor.Position.Y


اما مشکل اینجاست که وقتی نشانه گر موس از روی فرم خارج بشه چکار کنیم؟اون موقع دیگه رخ داد MouseMove رخ نمیده تا اینکه اطلاعاتو برا ما مخابره کنه.!!!

mehdad.koulab
پنج شنبه 20 آبان 1389, 21:22 عصر
اگه بخواهیم مختصات موس را در هر کجای صفحه نمایش حتی خارج از فرم بدست آوریم از کد زیر تو رخ داد MouseMove فرم استفاده می کنیم.




Cursor.Position.X
Cursor.Position.Y


اما مشکل اینجاست که وقتی نشانه گر موس از روی فرم خارج بشه چکار کنیم؟اون موقع دیگه رخ داد MouseMove رخ نمیده تا اینکه اطلاعاتو برا ما مخابره کنه.!!!
سلام با اين روشي كه دوستان گفتن من امتحان كردم و كامل جواب ميده همه جاي desktop

omid-vbAuto
پنج شنبه 20 آبان 1389, 21:28 عصر
سلام با اين روشي كه دوستان گفتن من امتحان كردم و كامل جواب ميده همه جاي desktop

لطفا یه نمونه برنامه بدین تا ما هم اسفاده کنیم.

mehdad.koulab
جمعه 21 آبان 1389, 09:18 صبح
اين الان x و y ماوس رو هر كجا كه باشه برميگردونه.

omid-vbAuto
جمعه 21 آبان 1389, 13:24 عصر
اين الان x و y ماوس رو هر كجا كه باشه برميگردونه.


:تشویق:دوست عزیز این کارو بلد بودم.

مثل اینکه منظورمو خوب نگفتم:

ببینید شما برای بدست آوردن مکان فعلی موس باید رو یک دکمه کلیک کنید.اما من می خوام بدون کلیک کردن و فقط با حرکت موس بر روی صفحه دسکتاب تغییراتش رو ON Time به Me.Text مخابره کنه.

حالا اگه دوستان در این مورد اصلاعاتی دارن مارو بی نصیب نزارن .ممنونم.

Alghoochi
جمعه 21 آبان 1389, 13:28 عصر
چرا از یه تایمر استفاده نمی کنی؟

omid-vbAuto
جمعه 21 آبان 1389, 17:26 عصر
چرا از یه تایمر استفاده نمی کنی؟

درسته مهندس میشه ان کارها رو کرد ولی این گونه کارها به نظر من پاسخ صحیح نیستن.
نظر شما چیه؟

Alghoochi
جمعه 21 آبان 1389, 19:12 عصر
شما هدفت از به دست آوردن مکان موس بگو شاید روش دیگه ای برای حل مسئله باشه. استفاده از Timer ساده ترین راهه

omid-vbAuto
جمعه 21 آبان 1389, 20:55 عصر
شما هدفت از به دست آوردن مکان موس بگو شاید روش دیگه ای برای حل مسئله باشه. استفاده از Timer ساده ترین راهه

مهندس هدف من اینکه یه برنامه ای بنویسم تا با اون بتونم فقط نقاط کلیک شده در صفحه رو بدست بیارم.که با timer این کار امکان پذیر نیستش.

MehdiElexal
جمعه 21 آبان 1389, 23:59 عصر
دوستان عزیز تا به اینجای کار از همگی ممنون
اگه من بخوام رو یک location خاصی فرمان کلیک بدم چور میشه ؟
ممنون

omid-vbAuto
شنبه 22 آبان 1389, 00:09 صبح
دوستان عزیز تا به اینجای کار از همگی ممنون
اگه من بخوام رو یک location خاصی فرمان کلیک بدم چور میشه ؟
ممنون


دوست عزیز لطفا سوال مربوط به تاپیک بپرسید.در ضمن این موضوع تو یه تاپیک دیگه هستش .یه سرچ بزن.

MehdiElexal
شنبه 22 آبان 1389, 00:17 صبح
دوست عزیز لطفا سوال مربوط به تاپیک بپرسید.در ضمن این موضوع تو یه تاپیک دیگه هستش .یه سرچ بزن.
خب جواب تایپیک که بدست اومد
Cursor.Position.X

Cursor.Position.y

منم همچین دور از موضوع سوال نکردم !!!

omid-vbAuto
شنبه 22 آبان 1389, 00:36 صبح
خب جواب تایپیک که بدست اومد
Cursor.Position.X

Cursor.Position.y

منم همچین دور از موضوع سوال نکردم !!!




دوست عزیز موضوع این تاپیک در مورو موقعیت موس هست.نه عمل کلیک کردن اون!!!



اگه من بخوام رو یک location خاصی فرمان کلیک بدم چور میشه ؟




این جمله بالائی مال کیه؟!!!



در ضمن من جوابت دادم .این موضوع تو یه تاپیک دیگه بحث شده و به نتیجه رسیده.شما مثل اینکه حال سرچ نداری:قهقهه:

MehdiElexal
شنبه 22 آبان 1389, 01:32 صبح
دوست عزیز موضوع این تاپیک در مورو موقعیت موس هست.نه عمل کلیک کردن اون!!!



این جمله بالائی مال کیه؟!!!



در ضمن من جوابت دادم .این موضوع تو یه تاپیک دیگه بحث شده و به نتیجه رسیده.شما مثل اینکه حال سرچ نداری:قهقهه:

من که نمیگم موضوع تایپیک اینی که شما میگی نیست !! میگم اون موضوع به پایان رسید ، حالا من یه تایپیک جدید باز کنم شما خیالت راحت میشه ؟
خب این هم ادامه همون بحث تموم شدست دیگه با یکم فرق!؟!
به نظرت اینکه من این همه تایپ کنم راحت تره یا سرچ بزنم ؟
حتما زدم نبوده دیگه ، شما بلدتری سرچ بزن به ما هم بده دعات میکنیم ، حتما من بلد نیستم سرچ بزنم که قطعا هم همینطوره !!

omid-vbAuto
شنبه 22 آبان 1389, 03:16 صبح
پاسخ شما چندتا جنبه داره :

جنبه ها :لبخند::



میگم اون موضوع به پایان رسید ، حالا من یه تایپیک جدید باز کنم شما خیالت راحت میشه ؟



اولا موضوع تاپیک به پایان نرسیده !!!:متعجب:هنوز سوال من پا برجاست و کسی پاسخ نداده به نوشته هام نگاه کنی متوجه می شی.:چشمک:از دوستان محترم نیز در خواست پاسخ می کنم.
دوما خیال ... من کلا راحته :لبخند:




حتما زدم نبوده دیگه ، شما بلدتری سرچ بزن به ما هم بده دعات میکنیم ، حتما من بلد نیستم سرچ بزنم که قطعا هم همینطوره !!



سوما خوب نسرچیدی:لبخند:بیا اینم لینکش:
http://www.barnamenevis.org/forum/showthread.php?t=258706

چهارما مدیران سایت برای دعا کردن همدیگه یه دکمه این پایین گذاشتن به نام "تشکر" اونو بزنی کافیه.:بامزه:

موفق باشین.

kingdaniyal
چهارشنبه 29 آذر 1391, 15:17 عصر
سلام دوست عزیز
ببین برای این کار یه تایمر نیاز داری
اول اینکه 2 تا لیبل اونجایی که میخوای مختصاتو نشون بده بزار
بد تنظیمات تایمرو اینجوری تنپیم کن
interval = 100
enabled = true

حالا برو تو قسمت کد نویسی و کد زیر رو بنویس
Private Sub Timer1_Timer(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim _X, _Y As Integer
_X = MousePosition.X
_Y = MousePosition.Y
Label1.Text = _X
Label2.Text = _Y
End Sub
این کد موس هر جا که باشه مختصاتشو نشون میده