If Not IsNothing(pLocator) Then
'pGeocodingProperties = CType(pLocator, IGeocodingProperties2) '10/25/2010, cannot cast Arc9 Locator to IGeocodingProperties2, go back to older interface
pGeocodingProperties = CType(pLocator, IGeocodingProperties)
''print out the ESRI default properties BEFORE resetting them:
Debug.Print("SpellingSensitivity: " & pGeocodingProperties.SpellingSensitivity.ToString)
Debug.Print("MinimumCandidateScore: " & pGeocodingProperties.MinimumCandidateScore.ToString)
Debug.Print("MinimumMatchScore: " & pGeocodingProperties.MinimumMatchScore.ToString)
Debug.Print("SideOffset: " & pGeocodingProperties.SideOffset.ToString)
Dim iEsriUnits As Int32 = pGeocodingProperties.SideOffsetUnits 'esriSystem.esriUnits
Select Case iEsriUnits
Case 0
Debug.Print("SideOffsetUnits: Unknown")
Case 1
Debug.Print("SideOffsetUnits: Inches")
Case 2
Debug.Print("SideOffsetUnits: Points")
Case 3
Debug.Print("SideOffsetUnits: Feet")
Case 4
Debug.Print("SideOffsetUnits: Yards")
Case 5
Debug.Print("SideOffsetUnits: Miles")
Case 6
Debug.Print("SideOffsetUnits: Nautical miles")
Case 7
Debug.Print("SideOffsetUnits: Millimeters")
Case 8
Debug.Print("SideOffsetUnits: Centimeters")
Case 9
Debug.Print("SideOffsetUnits: Meters")
Case 10
Debug.Print("SideOffsetUnits: Kilometers")
Case 11
Debug.Print("SideOffsetUnits: Decimal degrees")
Case 12
Debug.Print("SideOffsetUnits: Decimeters")
Case Else
Debug.Print("SideOffsetUnits: other")
End Select
Debug.Print("MatchIfScoresTie: " & pGeocodingProperties.MatchIfScoresTie.ToString)
Debug.Print("AddXYCoordsToMatchFields: " & pGeocodingProperties.AddXYCoordsToMatchFields.ToString)
Debug.Print("AddReferenceIDToMatchFields: " & pGeocodingProperties.AddReferenceIDToMatchFields.ToString)
Debug.Print("AddPercentAlongToMatchFields: " & pGeocodingProperties.AddPercentAlongToMatchFields.ToString)
'Debug.Print("AddStandardizeStringToMatchFields: " & pGeocodingProperties.AddStandardizeStringToMatchFields.ToString)
With pGeocodingProperties
.SpellingSensitivity = 63
.MinimumCandidateScore = 10
.MinimumMatchScore = 30
.SideOffset = 20
.SideOffsetUnits = esriUnits.esriFeet
.AddXYCoordsToMatchFields = True
.AddReferenceIDToMatchFields = True
.AddPercentAlongToMatchFields = True
'.AddStandardizeStringToMatchFields = True
'10/04/2010, ArcGIS 10.0 bug: AddStandardizeStringToMatchFields: "The method or operation is not implemented."} System.NotImplementedException
'10/08/2010, the Output Fields checkbox for "Standardized address" is grayed-out in ArcCatalog 10.0 Locator Properties for "US Address -Dual Zone"
End With
val = pLocator
''NOW print out the properties AFTER resetting them:
Debug.Print(vbNewLine & "SpellingSensitivity: " & pGeocodingProperties.SpellingSensitivity.ToString)
Debug.Print("MinimumCandidateScore: " & pGeocodingProperties.MinimumCandidateScore.ToString)
Debug.Print("MinimumMatchScore: " & pGeocodingProperties.MinimumMatchScore.ToString)
Debug.Print("SideOffset: " & pGeocodingProperties.SideOffset.ToString)
'Dim iEsriUnits As Int32 = pGeocodingProperties.SideOffsetUnits 'esriSystem.esriUnits
Select Case iEsriUnits
Case 0
Debug.Print("SideOffsetUnits: Unknown")
Case 1
Debug.Print("SideOffsetUnits: Inches")
Case 2
Debug.Print("SideOffsetUnits: Points")
Case 3
Debug.Print("SideOffsetUnits: Feet")
Case 4
Debug.Print("SideOffsetUnits: Yards")
Case 5
Debug.Print("SideOffsetUnits: Miles")
Case 6
Debug.Print("SideOffsetUnits: Nautical miles")
Case 7
Debug.Print("SideOffsetUnits: Millimeters")
Case 8
Debug.Print("SideOffsetUnits: Centimeters")
Case 9
Debug.Print("SideOffsetUnits: Meters")
Case 10
Debug.Print("SideOffsetUnits: Kilometers")
Case 11
Debug.Print("SideOffsetUnits: Decimal degrees")
Case 12
Debug.Print("SideOffsetUnits: Decimeters")
Case Else
Debug.Print("SideOffsetUnits: other")
End Select
Debug.Print("MatchIfScoresTie: " & pGeocodingProperties.MatchIfScoresTie.ToString)
Debug.Print("AddXYCoordsToMatchFields: " & pGeocodingProperties.AddXYCoordsToMatchFields.ToString)
Debug.Print("AddReferenceIDToMatchFields: " & pGeocodingProperties.AddReferenceIDToMatchFields.ToString)
Debug.Print("AddPercentAlongToMatchFields: " & pGeocodingProperties.AddPercentAlongToMatchFields.ToString)
'Debug.Print("AddStandardizeStringToMatchFields: " & pGeocodingProperties.AddStandardizeStringToMatchFields.ToString)
End If