求助:engine开发中identify功能的实现

engine开发中显示属性,我用以下的方式实现: Private Sub MapControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long, ByVal mapX As Double, ByVal mapY As Double) If opState = "findByPoint" Then Dim pIdentify As IIdentify Set pIdentify = Me.MapControl1.Layer(0) Dim pPoint As IPoint Set pPoint = New Point pPoint.x = mapX pPoint.y = mapY Dim pIDArray As IArray Set pIDArray = pIdentify.Identify(pPoint) Dim pGeoObj As IIdentifyObj Dim pDisplay As IScreenDisplay Set pDisplay = New ScreenDisplay pDisplay.hWnd = Me.MapControl1.hWnd If Not pIDArray Is Nothing Then Set pGeoObj = pIDArray.Element(0) pGeoObj.Flash pDisplay End If End If End Sub (点查属性时opState值是"findByPoint") 请问,Set pIDArray = pIdentify.Identify(pPoint)为什么得不到我想要的feature???

哦,,你是如何解决的???