ipLocnTest
1.0.0
รับแผนที่ที่มีคุณลักษณะเหมาะสมใน .NET โดยไม่ต้องมี API การทำแผนที่จริงใดๆ ที่เกี่ยวข้องกับคุณ!
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 จะถูกตั้งค่าเป็นละติจูดและลองจิจูด
โปรดทราบว่าโดยปกติจะไม่เกิดขึ้นทันที และ อาจ ล้มเหลวในการลองครั้งแรก
