vba13-5.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 19 行

Private Sub UIToolPermit_MouseUp(ByVal button As Long, _
ByVal shift As Long, ByVal x As Long, ByVal y As Long)
    ' Do not process if the mouse was not pressed down
    ' on the map.
    If (Not m_blnMouseDown) Then Exit Sub
    Dim pMxDocument As IMxDocument
    Dim pActiveView As IActiveView
    Dim pMap As IMap
    Set pMxDocument = Application.Document
    Set pActiveView = pMxDocument.FocusMap
    pActiveView.PartialRefresh esriViewGeoSelection, _
    Nothing, Nothing
    Set pMap = pMxDocument.FocusMap
    pMap.SelectByShape m_pPoint, Nothing, True
    pActiveView.PartialRefresh esriViewGeoSelection, _
    Nothing, Nothing
    m_blnMouseDown = False
End Sub