ipLocnTest

ipLocnTest

Dapatkan peta dengan fitur yang layak di .NET, tanpa melibatkan API pemetaan aktual di pihak Anda!

• Mendukung tampilan Satelit (dengan dan tanpa label) dan tampilan Reguler (dengan label).
• Default Dapat Diseret (Melalui tombol kiri mouse) dan Dapat Diperbesar (Melalui Roda Gulir), Tetapi juga menyediakan mode statis (resolusi lebih tinggi) (dengan tombol untuk zoom, dll)
• Menavigasi ke koordinat tertentu dan nama kota/negara.
• Mendukung Geolokasi (PS: terkadang tidak berfungsi pada percobaan pertama) (lokasi Anda juga harus aktif)
• Menyimpan gambar langsung ke desktop Anda

Tambahan Terbaru

• Bilah alat didesain ulang.

• Menu opsi peta didesain ulang.

• Sekarang Anda dapat mencari kota DAN negara, bersama dengan pencarian koordinat reguler!

• Menambahkan kontrol Navigasi melingkar untuk peta statis. Sekarang mereka gelap.

• Peningkatan zoom pada peta statis.
  
• Menambahkan petunjuk Navigasi ke toolbar.
  
• Perubahan desain kecil.
  
• Menambahkan tip pencarian.

Geolokasi - sebuah contoh

 Imports System.Device.Location

Masukkan kode berikut ke dalam kelas utama

 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

Panggil sub LocateMe() bila Anda memerlukan lokasi. Untuk penggunaan pertama, kotak pesan akan muncul meminta izin untuk mengakses lokasi. Nilai txtlat dan txtlong akan diatur ke lintang dan bujur.

Perhatikan bahwa ini biasanya tidak terjadi secara instan, dan mungkin gagal pada percobaan pertama