ipLocnTest

ipLocn测试

在 .NET 中获取功能齐全的地图，无需任何实际的地图 API 参与！

• 支持卫星视图（带或不带标签）和常规视图（带标签）。
• 默认可拖动（通过鼠标左键）和可缩放（通过滚轮），但也提供静态模式（更高分辨率）（带有缩放按钮等）
• 导航到给定的坐标和城市/国家名称。
• 支持地理定位（PS：有时第一次尝试不起作用）（而且你的位置应该打开）
• 将图像直接保存到桌面

最新补充

• 重新设计的工具栏。

• 重新设计的地图选项菜单。

• 现在您可以搜索城市和国家以及常规坐标搜索！

• 为静态地图添加了圆形导航控件。现在他们已经黑了。

• 改进了静态地图的缩放。
  
• 向工具栏添加了导航提示。
  
• 较小的设计变更。
  
• 添加了搜索提示。

地理位置 - 示例

 Imports System.Device.Location

将以下代码放入主类中

 DIm n = 0
Private Sub Watcher_StatusChanged(ByVal sender As Object, ByVal e As GeoPositionStatusChangedEventArgs)
    n += 1
    If e.Status = GeoPositionStatus.Ready Then
        If Watcher.Position.Location.IsUnknown Then
            txtlat = "Cannot find location data"
        Else
            txtlat = Watcher.Position.Location.Latitude.ToString() '.Substring(0, 7)
            txtlong = Watcher.Position.Location.Longitude.ToString() '.Substring(0, 7)
        End If
    End If
    If n < 10 Then
        If txtlat <> "Cannot find location data" And Math.Abs(Val(txtlat)) > 0.0000001 Then
            Watcher.Stop()
            'the value of txtlat and txtlong has now been set to your location
        End If
    Else
            Watcher.Stop()
           'give user some indication of error/ handle the error (thrown when cannot find location)
    End If
End Sub
Private Sub LocateMe()
    n = 0
    Watcher = New GeoCoordinateWatcher()
    AddHandler Watcher.StatusChanged, AddressOf Watcher_StatusChanged
    Watcher.Start()
End Sub

当您需要位置时，调用 LocateMe() 子函数。首次使用时，将弹出一个消息框，请求访问位置的权限。 txtlat 和 txtlong 的值将设置为纬度和经度。

请注意，这通常不是瞬时的，第一次尝试可能会失败