3

我工作的公司有一个由我们的现场工作人员使用的应用程序，它定期注册他们的 GPS 位置，我们最初使用 System.Device.Location GeoCoordinateWatcher 类为 Windows 8 x86 编写了应用程序。

在 Windows 10 中，相同的代码不再正常运行，GeoCoordinateWatcher.Permission 返回 Granted，但每次调用我们都会继续收到未知位置。Windows 8 和 Windows 10 平板电脑都具有 LTE。

    Public Function GetLocation() As GeoCoordinate
         Dim geoCoordinate As GeoCoordinate
         Dim watcher As GeoCoordinateWatcher
         watcher = New GeoCoordinateWatcher(GeoPositionAccuracy.High)
         watcher.TryStart(False, TimeSpan.FromMilliseconds(15000))

         LogToFile("Position Permission: " & watcher.Permission.ToString)
         LogToFile("Watcher Status: " & watcher.Status.ToString)

         geoCoordinate = watcher.Position.Location

         If geoCoordinate.IsUnknown Then
             LogToFile("Unknown")
         Else
             LogToFile(String.Format("Lat: {0}, Long: {1}, H Accuracy: {2}, V Accuracy: {3}, Crse: {4}, Spd: {5}, Alt: {6}", geoCoordinate.Latitude, geoCoordinate.Longitude, geoCoordinate.HorizontalAccuracy, geoCoordinate.VerticalAccuracy, geoCoordinate.Course, geoCoordinate.Speed, geoCoordinate.Altitude))

         End If
         Return geoCoordinate
     End Function

我们的日志文件显示了我们获得许可的每个调用，混合状态 = NoData 或 Initializing，并且位置始终未知。

我们确实在平板电脑上收到了应用程序正在访问位置信息的通知，并且我可以确认 GPS 确实在工作，因为内置的地图应用程序正确显示了当前的 GPS 位置。

有没有人对尝试解决正在发生的事情有什么建议？

4

1 回答 1

0

查看您的函数后，我会假设您没有在位置更改时调用实际 get 的处理程序。这个事件是PositionChanged Event （请看这里），当位置数据的纬度或经度发生变化时触发。

我建议将您的声明更改watcher为类级别变量并使其成为WithEvents. 例如...

 Private WithEvents watcher As GeoCoordinateWatcher

现在您可以访问该类的所有其他方法和函数。您的作为位置更改回调的事件看起来像这样。

Private Sub watcher_PositionChanged(ByVal sender As Object, ByVal e As GeoPositionChangedEventArgs(Of GeoCoordinate))
   'here you have access to latitude and longitude coordinates for example...
  'e.Position.Location.Altitude etc...   
End Sub

于是，一切都结束了......

 Private WithEvents watcher As GeoCoordinateWatcher'declare outside of function....

 Public Sub StartLocation()
         watcher = New GeoCoordinateWatcher(GeoPositionAccuracy.High)
         AddHandler watcher.PositionChanged, AddressOf watcher_PositionChanged
         watcher.Start(False, TimeSpan.FromMilliseconds(15000))
 End Sub

 Private Sub watcher_PositionChanged(ByVal sender As Object, ByVal e As GeoPositionChangedEventArgs(Of GeoCoordinate))
       LogToFile("Position Permission: " & watcher.Permission.ToString)
       LogToFile("Watcher Status: " & watcher.Status.ToString)

      e.* 'whatever you need here...
 End Sub
于 2016-04-19T21:41:58.323 回答