0

大约一个小时前一切正常，但现在我尝试的任何东西都出错了。

strFullAddress = "texas. usa"

GeoCode = GMap1.getGeoCodeRequest(strFullAddress, sMapKey)
Dim gLatLng As New Subgurim.Controles.GLatLng(GeoCode.Placemark.coordinates.lat, GeoCode.Placemark.coordinates.lng)
Dim oMarker As New Subgurim.Controles.GMarker(gLatLng)

GMap1.Add(oMarker)

以前工作得很好。现在这只是创建了非洲左侧的标记。对于任何地址或任何纬度，我都有相同的结果......似乎没有其他人有这个问题，我没有想法......那么，关于可能发生什么的任何想法？

编辑：

我尝试了这个示例代码，当我学习如何使用 subgurim 时它也对我有用，它也只是在非洲旁边放了一个标记。

    Dim strFullAddress As String
    Dim sMapKey As String =
    ConfigurationManager.AppSettings("googlemaps.subgurim.net")
    Dim GeoCode As Subgurim.Controles.GeoCode

    ' Combine our address fields to create the full address.  The street,
    ' suburb and country should be seperated by  periods (.)
    strFullAddress = txtStreetAddress.Text & ". " & txtSuburb.Text & ". " & txtCountry.Text

    ' Work out the longitude and latitude
    GeoCode = GMap1.getGeoCodeRequest(strFullAddress, sMapKey)
Dim gLatLng As New Subgurim.Controles.GLatLng(GeoCode.Placemark.coordinates.lat, GeoCode.Placemark.coordinates.lng)
    ' Display the map
    GMap1.setCenter(GLatLng, 16, Subgurim.Controles.GMapType.GTypes.Normal)
    Dim oMarker As New Subgurim.Controles.GMarker(GLatLng)
    GMap1.Add(oMarker)
    GMap1.GZoom = 5
4

0 回答 0