درس تصميم واجهة برمجية تتفاعل مع خرائط نظم المعلومات الجغرافية

[فهد المطلق]

شكرا اخوي مختار على هذا التعاون

هلا اخت سلمى

بخصوص الطلب الاول جربي هذا الكود

Dim point As IPoint
point = MapControl1.ToMapPoint(x, y)
Label1Caption = "X:  " & Format(x, "#0.0000")
Label2.Caption = "Y:  " & Format(y, "#0.0000")

اما بخصوص الطلب الثاني

هل جربتي المثال الذي عملته ورفعه لك اخوي مختار مره اخر ربما يفي بالغرض