Conversion de coordonnées dans VB2008

Question

J'ai des coordonnées sous la forme 57/20 et je cherche à changer cela en -57,20 pour une utilisation dans un fichier kml pour Google Earth, quel code dois-je utiliser pour faire cela?

Answer 1

Vos besoins sont difficiles à comprendre.

Si vous avez juste besoin de traduire une coordonnées telles que Point(x:=57, y:=20) à -57,20 (juste la coordonnée X négatif), vous pouvez le faire:

Dim OldCoordinates As New Point(x:=57, y:=20) 

Dim NewCoordinates As New Point With 
    { 
     .X = OldCoordinates.X * -1I, 
     .Y = OldCoordinates.Y 
    }