Lấy về tọa độ của vị trí nhấn chuột trên bản đồVí dụ lấy về tọa độ của vị trí nhấn chuột trên bản đồ Trước tiên ta thêm mới một Tool vào giao diện của ArcMap ‘ Trong sự kiện Mouse Down
Trang 1Lấy về tọa độ của vị trí nhấn chuột trên bản đồ
Ví dụ lấy về tọa độ của vị trí nhấn chuột trên bản đồ
Trước tiên ta thêm mới một Tool vào giao diện của ArcMap
‘ Trong sự kiện Mouse Down của Tool cài đặt đoạn code sau
Private Sub ITool_OnMouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long,
ByVal Y As Long)
Dim pMxDoc As IMxDocument
Dim pActiveView As IActiveView
Dim m_pPoint As IPoint
Set pMxDoc = ThisDocument
Set pActiveView = pMxDoc.FocusMap
‘ Biến m_pPoint trả về tọa độ của vị trí nhấn chuột trên bản đồ
‘ Chú ý X, Y là vị trí nhấn chuột lên bản đồ không phải tọa độ địa lý
Set m_pPoint = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y)
‘ Thử hiển thị tọa độ địa l ý X, Y của vị trí nhấn chuột
Msgbox m_pPoint.X & “ “ & m_pPoint.Y
End Sub