A ver un simple ejemplo:
Public Sub Form_Open()
Dim x_a, y_o, r, an As Short
Dim po As New Point
Dim mp As New MapPoint
Dim mmpp As New MapPoint[]
MapView1.Map.AddTile("GoogleMap", "https://khms{s}.google.es/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galileo", ["version": "702"]).SubDomains = ["0", "1", "2"]
MapView1.Map["GoogleMap"].Visible = True
' Establece el centro del círculo:
mp.Lat = 40.4378698
mp.Lon = -3.8196207
po = MapView1.Map.MapPointToPixelRel(mp)
x_a = po.X
y_o = po.y
r = 10 ' Representa la longitud del radio del círculo
' Describe el círculo:
For an = 0 To 360 ' Representa el ángulo de la circunferencia
po.X = x_a + r * Cos(Rad(an))
po.Y = y_o + r * Sin(Rad(an))
mp = MapView1.Map.PixelToMapPointRel(po)
mmpp.Push(mp)
MapView1.Map.AddShape("espana").AddPolyLine("espana", mmpp)
Next
End
Dim x_a, y_o, r, an As Short
Dim po As New Point
Dim mp As New MapPoint
Dim mmpp As New MapPoint[]
MapView1.Map.AddTile("GoogleMap", "https://khms{s}.google.es/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galileo", ["version": "702"]).SubDomains = ["0", "1", "2"]
MapView1.Map["GoogleMap"].Visible = True
' Establece el centro del círculo:
mp.Lat = 40.4378698
mp.Lon = -3.8196207
po = MapView1.Map.MapPointToPixelRel(mp)
x_a = po.X
y_o = po.y
r = 10 ' Representa la longitud del radio del círculo
' Describe el círculo:
For an = 0 To 360 ' Representa el ángulo de la circunferencia
po.X = x_a + r * Cos(Rad(an))
po.Y = y_o + r * Sin(Rad(an))
mp = MapView1.Map.PixelToMapPointRel(po)
mmpp.Push(mp)
MapView1.Map.AddShape("espana").AddPolyLine("espana", mmpp)
Next
End
(Se necesita esperar una docena de segundos, para que se muestre el mapa.)
http://www.gambas-it.org/wiki/index..._su_una_MapView
