vba13-5.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

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