VB 6.0中的Microsoft MapPoint 18.0對象庫

Question

我正在使用Microsoft MapPoint 18.0對象庫作爲VB 6.0中的參考。創建對象並傳遞地址參數後，程序不會返回任何有效地址的經度，緯度數據。想知道這是否是VB 6.0的dll問題？

Answer 1

我只是做了使用參考「微軟MapPoint 19.0對象庫（北美）」和下面的代碼爲我工作快速測試：

Private Sub Command1_Click() 
Dim mmpApp As MapPoint.Application, mmpMap As MapPoint.Map, _ 
     mmpFindResults As MapPoint.FindResults 

Set mmpApp = New MapPoint.Application 
Set mmpMap = mmpApp.ActiveMap 

Set mmpFindResults = mmpMap.FindAddressResults(_ 
     "24 Sussex Drive", _ 
     "Ottawa", _ 
     "", _ 
     "ON", _ 
     "", _ 
     MapPoint.GeoCountry.geoCountryCanada) 

If mmpFindResults.ResultsQuality = geoFirstResultGood Then 
    MsgBox "First result returned: (" & mmpFindResults(1).Latitude & "," & _ 
      mmpFindResults(1).Longitude & ")" 
Else 
    MsgBox "The search returned poor, ambiguous, or non-existent results" 
End If 

Set mmpFindResults = Nothing 
Set mmpMap = Nothing 
Set mmpApp = Nothing 
End Sub 

我期望它也將在18.0版本下工作。