مختصات کلیک بر روی فرم

[mehdi58]

با سلام
من می خوام با کلیک بر روی هر نقطه از فرم مختصات X اون رو بدست بیارم ( برای انجام این کار مشکلی ندارم )اما در قسمتهایی که روی فرم کنترلی وجود داشته باشه این کار انجام نمی شه .
آیا این کار اصلا شدنی است ؟
آیا روش دیگه ای هم وجود داره ؟
متشکرم

[Business Analyst]

باید توی رویداد کلیک کنترل هم کد بزنی مثل

PrivateSubButton1_MouseClick(ByValsenderAsObject, ByValeAsSystem.Windows.Forms.MouseEventArgs) HandlesButton1.MouseClick

MessageBox.Show(e.Location.X)

MessageBox.Show(e.Location.Y)

EndSub

[mehdi58]

به خاطر پاسخگویی متشکرم
اما اگه کنترل مورد نظر از نوع ShockwaveFlash Object بود چی ؟
چطوری میشه فهمید که کجای اون کنترل کلیک شده ؟
متشکرم

[Business Analyst]

فرق نداره توی رویداد کلیک هرچی میخوای بنویسید

[saeed_rezaei]

باید توی رویداد کلیک کنترل هم کد بزنی مثل

PrivateSubButton1_MouseClick(ByValsenderAsObject, ByValeAsSystem.Windows.Forms.MouseEventArgs) HandlesButton1.MouseClick

MessageBox.Show(e.Location.X)

MessageBox.Show(e.Location.Y)

EndSub

سلام
در ویژوال بیسیک هنگامی که شما روی کنترلی کلیک می کنید،
ByVal e As System.EventArgs
ارسال می شه که اطلاعاتی در مورد مختصات بهتون نمی ده.
البته تاجایی که من یاد گرفتم. حالا شاید یه جورایی بشه این کار رو کرد نمی دونم.

اما برای به دست آوردن مختصات ماوس، باید از توابع api استفاده کنید.

DeclareFunction GetCursorPos Lib"user32" (ByRef lpPonit As POINTAPI) As Int32

شما باید یه ورودی که به صورت زیر تعریف می شه بهش بدید.

Structure POINTAPI

Dim x As Int32

Dim y As Int32

EndStructure

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

Dim pp As POINTAPI

GetCursorPos(pp)

MsgBox(pp.x)

MsgBox(pp.y)

[Business Analyst]

چرا اینقدر دردهسر!؟
وقتی میشه توی یه رویداد با 2 خط کد حلش کرد لزومی نداره
البته بستگی داره جسارت نباشه
ممنون

[saeed_rezaei]

چرا اینقدر دردهسر!؟
وقتی میشه توی یه رویداد با 2 خط کد حلش کرد لزومی نداره
البته بستگی داره جسارت نباشه
ممنون

دوست من، نمی دونم شما به ورژنی از وی بی کار می کنید. اما توی 2003 و 2005 ، هنگامی که شما رویداد کلیک رو تعریف می کنید به صورت زیر هست.

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

دقت کنید، نوع پارامتر e به صورت System.EventArgs تعریف می شه. که در این صورت هیچ گونه اطلاعاتی در مورد محل و مختصات ماوس به این تابع ارسال نمی شه. در عوض در mousempve شما پارامتر ورودی رو به صورت
ByVal e As System.Windows.Forms.MouseEventArgs
دریافت میکنید. شما در روال mousemove می تونید مختصات ماوس رو دریافت کنید.
تازه این یه قسمت مشکل هست. فرض کنید روی فرم شما بیش از 20 تا کنترل متفاوت ریخته. شما باید برای روال mouse move تمام کنترلهات این رو تعریف کنی. حالا مهم نیست به چه روشی تعریف میکنی، اما باید این رو تو کت سیستم بکنی که چه کاری رو انجام بدی
اما با استفاده از توابع api این مشکل رو دیگه نداری. کافیه هر جای برنامه که می خوای، حالا توی روال کلیک باشه یا توی یه تایمر، مختصات ماوس رو بر می گردونی. اینجوری کد نویسی کمتری می خواد.
البته این توضیح رو هم بدم که api که نوشتم، مختصات ماوس در کل صفحه نمایش رو بر می گردونه، حتی اگه خارج از فرم شما باشه. پس به دست آورن مختصات ماوس رو فرم، به عهده خود برنامه نویسه.

[ghafoori]

تازه این یه قسمت مشکل هست. فرض کنید روی فرم شما بیش از 20 تا کنترل متفاوت ریخته. شما باید برای روال mouse move تمام کنترلهات این رو تعریف کنی. حالا مهم نیست به چه روشی تعریف میکنی، اما باید این رو تو کت سیستم بکنی که چه کاری رو انجام بدی

ئوست عزیز برای تمام 20 کنترل هم می توان یک تابع نوشت

اما با استفاده از توابع api این مشکل رو دیگه نداری. کافیه هر جای برنامه که می خوای، حالا توی روال کلیک باشه یا توی یه تایمر، مختصات ماوس رو بر می گردونی. اینجوری کد نویسی کمتری می خواد.
البته این توضیح رو هم بدم که api که نوشتم، مختصات ماوس در کل صفحه نمایش رو بر می گردونه، حتی اگه خارج از فرم شما باشه. پس به دست آورن مختصات ماوس رو فرم، به عهده خود برنامه نویسه.

با دستور Control.MousePosition می توانید در هرجا از برنامه موقعیت موس را بدست اوری حتی اگر موس بیرون باشد

[saeed_rezaei]

سلام غفوری جان. من هم عرض کردم، "مهم نیست به چه روشی تعریف می کنی."
روشی control.mouseposition رو هم فکر می کنم که توی framework 2 اضافه شده باشه؟ ممنونم. این رو من بلد نبودم.

[mehdi58]

چرا اینقدر دردهسر!؟
وقتی میشه توی یه رویداد با 2 خط کد حلش کرد لزومی نداره
البته بستگی داره جسارت نباشه
ممنون

دوست عزیز کنترل ShockwaveFlash Object رویدادی برای این کار نداره !!!

[mehdi58]

با دستور Control.MousePosition می توانید در هرجا از برنامه موقعیت موس را بدست اوری حتی اگر موس بیرون باشد

دوست عزیز این دستور توی VB.NET 2003 و کلیک روی برخی از کنترلها مثل ShockwaveFlash Object جواب نمی ده .

[mehdi58]

سلام
در ویژوال بیسیک هنگامی که شما روی کنترلی کلیک می کنید،
ByVal e As System.EventArgs
ارسال می شه که اطلاعاتی در مورد مختصات بهتون نمی ده.
البته تاجایی که من یاد گرفتم. حالا شاید یه جورایی بشه این کار رو کرد نمی دونم.

اما برای به دست آوردن مختصات ماوس، باید از توابع api استفاده کنید.

DeclareFunction GetCursorPos Lib"user32" (ByRef lpPonit As POINTAPI) As Int32

شما باید یه ورودی که به صورت زیر تعریف می شه بهش بدید.

Structure POINTAPI

Dim x As Int32

Dim y As Int32

EndStructure

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

Dim pp As POINTAPI

GetCursorPos(pp)

MsgBox(pp.x)

MsgBox(pp.y)

دوست عزیز به خاطر پاسخگویی متشکرم اما من نتونستم از روش شما استفاده کنم .
امکانش هست که نمونه ای رو ضمیمه کنین ( البته توی VB.NET 2003 )

[Business Analyst]

ئوست عزیز برای تمام 20 کنترل هم می توان یک تابع نوشت


با دستور Control.MousePosition می توانید در هرجا از برنامه موقعیت موس را بدست اوری حتی اگر موس بیرون باشد

اقای غفوری این کد روی شوکویو فلش کار نمیکنه!

[Business Analyst]

سلام
در ویژوال بیسیک هنگامی که شما روی کنترلی کلیک می کنید،
ByVal e As System.EventArgs
ارسال می شه که اطلاعاتی در مورد مختصات بهتون نمی ده.
البته تاجایی که من یاد گرفتم. حالا شاید یه جورایی بشه این کار رو کرد نمی دونم.

اما برای به دست آوردن مختصات ماوس، باید از توابع api استفاده کنید.

DeclareFunction GetCursorPos Lib"user32" (ByRef lpPonit As POINTAPI) As Int32

شما باید یه ورودی که به صورت زیر تعریف می شه بهش بدید.

Structure POINTAPI

Dim x As Int32

Dim y As Int32

EndStructure

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

Dim pp As POINTAPI

GetCursorPos(pp)

MsgBox(pp.x)

MsgBox(pp.y)

دوست عزیز کد شما هم مثل بنده و جناب غفوری برای شوکویو کار نمیکنه!

[Business Analyst]

سلام
در ویژوال بیسیک هنگامی که شما روی کنترلی کلیک می کنید،
ByVal e As System.EventArgs
ارسال می شه که اطلاعاتی در مورد مختصات بهتون نمی ده.
البته تاجایی که من یاد گرفتم. حالا شاید یه جورایی بشه این کار رو کرد نمی دونم.

اما برای به دست آوردن مختصات ماوس، باید از توابع api استفاده کنید.

DeclareFunction GetCursorPos Lib"user32" (ByRef lpPonit As POINTAPI) As Int32

شما باید یه ورودی که به صورت زیر تعریف می شه بهش بدید.

Structure POINTAPI

Dim x As Int32

Dim y As Int32

EndStructure

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

Dim pp As POINTAPI

GetCursorPos(pp)

MsgBox(pp.x)

MsgBox(pp.y)

این کد هم مثل مال بندخ و ]قای غفوری کار نمیکنه

[saeed_rezaei]

سلام دوستان
حالا که دارم این پست رو می زنم، خونه هستم، 2003 ندارم. مثالی که واستون می زنم با 2005 هست.
اما همین رو توی اداره با 2003 نوشتم. کار می کنه. فعلا هم توی یکی از برنامه هام استفاده می شه.
این هم نمونه:

[saeed_rezaei]

کدی که ازش توی برنامه استفاده کردم:

PublicClass Form1

 

Structure POINTAPI

   Dim x As Int32

   Dim y As Int32

EndStructure

 

DeclareFunction GetCursorPos Lib"user32" (ByRef lpPonit As POINTAPI) As Int32

 

PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

   Dim pp As POINTAPI

   GetCursorPos(pp)

   txt_x.Text = pp.x

   txt_y.Text = pp.y

EndSub

EndClass

[amirsajjadi]

با سلام

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     Timer1.Interval = 50

     Timer1.Start()

End Sub

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If MouseButtons = Windows.Forms.MouseButtons.Left Then

     Me.Text = MousePosition.ToString

End If

End Sub

فقط این کد یک مشکل کوچیکی که داره اینه که در تمام صفحه ی کاری ویندوز کار میکنه که با کمی تغییر میشه اون رو درست کرد