ipLocnTest
1.0.0
احصل على خرائط مميزة بشكل لائق في .NET، دون الحاجة إلى استخدام أي واجهة برمجة تطبيقات خرائط فعلية في نهايتك!
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 على خط الطول وخط العرض.
لاحظ أن هذا لا يتم عادةً بشكل فوري، وقد يفشل في المحاولة الأولى