Hello
I am having difficulty identifying points. The points have lines above or below them. I have to Zoom in real close to where the point is away from the line, then I am able t Identify the point.
my code is as follows:
Private Sub Idenfify_Toggle_Button_Click()
'------------------------------------------
' Button - Identify Toggle Button
'------------------------------------------
Select Case Me.Idenfify_Toggle_Button.Value
Case True
Map0.Identifier.IdentifierMode = imAllLayersStopOnFirst
Map0.Identifier.OutlineColor = vbYellow
Map0.Identifier.HotTracking = True
Map0.CursorMode = tkCursorMode.cmIdentify
Case False
Map0.CursorMode = tkCursorMode.cmZoomIn
Map0.SetFocus
End Select
End Sub
Private Sub Map0_ShapeIdentified(ByVal LayerHandle As Long, ByVal shapeIndex As Long, ByVal pointX As Double, ByVal pointY As Double)
'------------------------------------------
' Event code for mouse button click
' and display message box of assets
' description and Spatial ID
'------------------------------------------
If LayerHandle = -1 Then End
Dim sf As New MapWinGIS.Shapefile
Set sf = Map0.Shapefile(LayerHandle)
If sf.CellValue(Spatial_ID_Field(LayerHandle), shapeIndex) = "" Then End
search_string = "SpatialID = '" & sf.CellValue(Spatial_ID_Field(LayerHandle), shapeIndex) & "'"
DoCmd.OpenForm "FRM Map Inventory PopUp", , , search_string
End Sub