ipLocnTest

ipLocnTest

Obtenez des cartes correctement présentées dans .NET, sans aucune API de cartographie réelle impliquée de votre côté !

• Prend en charge la vue satellite (avec et sans étiquettes) et la vue régulière (avec étiquettes).
• Déplaçable par défaut (via le bouton gauche de la souris) et zoomable (via la molette de défilement), mais fournit également un mode statique (résolution plus élevée) (avec boutons pour le zoom, etc.)
• Navigue vers les coordonnées données et le nom de la ville/du pays.
• Prend en charge la géolocalisation (PS : parfois cela ne fonctionne pas du premier coup) (votre position doit également être activée)
• Enregistre l'image directement sur votre bureau

Derniers ajouts

• Barre d'outils repensée.

• Menu d'options de carte repensé.

• Vous pouvez désormais rechercher des villes ET des pays, ainsi que la recherche de coordonnées habituelle !

• Ajout de contrôles de navigation circulaires pour la carte statique. Maintenant, ils sont sombres.

• Zoom amélioré sur la carte statique.
  
• Ajout d'indices de navigation à la barre d'outils.
  
• Modification mineure de la conception.
  
• Astuce de recherche ajoutée.

Géolocalisation - exemple

 Imports System.Device.Location

Mettez le code suivant dans la classe principale

 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

Appelez le sous LocateMe() lorsque vous avez besoin de l'emplacement. Lors de la première utilisation, une boîte de message apparaîtra demandant l'autorisation d'accéder à l'emplacement. Les valeurs de txtlat et txtlong seront définies sur la latitude et la longitude.

Notez que cela n’est généralement pas instantané et peut échouer du premier coup.