بدست آوردن مختصات یک نقطه

[ehsanocx]

چطوری می تونم نقطعه x , y رو به دوتا تکست باکس بدم و اون اون نقطه رو روی فرم نمایش بده؟ اون نقطه ای که می خواد نمایش بده رو با لیبل نمایش بده . مثلا اون نقطه رو یک نقطه یا صفر بگذاره ممنون میشم راهنماییم کنید

[daniyal_1363]

باید از خاصیت Top و Left لیبل استفاده کنی، به این صورت






Private Sub Command1_Click()
On Error Resume Next
Label1.Top = Val(Text2.Text)
Label1.Left = Val(Text1.Text)
End Sub



خاصیت Height و Width لیبلی که میخوای جا به جا بشه رو کم کن تا مثل یه نقطه بشه:چشمک:

[m_test]

بدست آوردن مختصات ماوس (http://4linecode.mihanblog.com/post/91)