ipLocnTest

ipLocnTest

Erhalten Sie anständig ausgestattete Karten in .NET, ohne dass eine tatsächliche Karten-API erforderlich ist!

• Unterstützt die Satellitenansicht (mit und ohne Beschriftungen) und die reguläre Ansicht (mit Beschriftungen).
• Standardmäßig ziehbar (über die linke Maustaste) und zoombar (über das Scrollrad), bietet aber auch einen statischen Modus (höhere Auflösung) (mit Tasten zum Zoomen usw.)
• Navigiert zu den angegebenen Koordinaten und dem Namen der Stadt/des Landes.
• Unterstützt Geolokalisierung (PS: Manchmal funktioniert es nicht beim ersten Versuch) (auch Ihr Standort sollte aktiviert sein)
• Speichert das Bild direkt auf Ihrem Desktop

Neueste Ergänzungen

• Neu gestaltete Symbolleiste.

• Neu gestaltetes Kartenoptionsmenü.

• Jetzt können Sie neben der regulären Koordinatensuche auch nach Städten UND Ländern suchen!

• Kreisförmige Navigationssteuerelemente für statische Karte hinzugefügt. Jetzt sind sie dunkel.

• Verbesserter Zoom in der statischen Karte.
  
• Navigationshinweise zur Symbolleiste hinzugefügt.
  
• Kleinere Designänderung.
  
• Suchtipp hinzugefügt.

Geolokalisierung – Beispiel

 Imports System.Device.Location

Fügen Sie den folgenden Code in die Hauptklasse ein

 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

Rufen Sie das LocateMe()-Sub auf, wenn Sie den Standort benötigen. Bei der ersten Verwendung wird eine Meldung angezeigt, in der Sie um Erlaubnis zum Zugriff auf den Standort gebeten werden. Die Werte von txtlat und txtlong werden auf den Breiten- und Längengrad gesetzt.

Beachten Sie, dass dies normalerweise nicht sofort geschieht und möglicherweise beim ersten Versuch fehlschlägt