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 - Mở hộp thoại Customize - Thêm mới một Tool ‘ 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 . 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 - Mở hộp thoại. 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,. 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