Comunidad Gambas-es
Dibujar en la "MapView" círculos concéntricos donde se ha hecho clic con el ratón - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forumdisplay.php?fid=3)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forumdisplay.php?fid=8)
+--- Tema: Dibujar en la "MapView" círculos concéntricos donde se ha hecho clic con el ratón (/showthread.php?tid=808)



Dibujar en la "MapView" círculos concéntricos donde se ha hecho clic con el ratón - vuott - 12-01-2022

Hola,
en este mi siguiente programa, haciendo clic con el botón derecho del ratón, se dibujan secuencias temporales de círculos concéntricos en el punto donde se ha hecho clic.
Al final, quedará un punto rojo.
En cambio, al hacer clic con el botón central del ratón, los puntos previamente dibujados se borrarán.
Hay que activar el componente gb.map .

GAMBAS
  1. Private MapView1 As MapView
  2. Private mmpp As MapPoint[]
  3.  
  4. Public Sub Form_Open()
  5.  
  6.   With Me
  7.     .W = Screen.AvailableWidth
  8.     .H = Screen.AvailableHeight
  9.     .Arrangement = Arrange.Fill
  10.   With MapView1 = New MapView(Me) As "MapView1"
  11.     .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
  12.     .Map.Zoom = 14
  13. ' Establece el centro del mapa al principio:
  14.     .Map.Center = New MapPoint(36.5139777, -6.2727421) ' ...Gades !  Consuli romano Shell antiquissima patria est !
  15.   End With 
  16.  
  17. ' Identifica el Objeto "Hijo" de la "Mapview", que es un "Panel":
  18.    pn = MapView1.Children[0]
  19.    
  20.    mmpp = New MapPoint[]
  21.  
  22.  
  23. Public Sub MapView1_MouseUp()
  24.   
  25. ' Al hacer clic con el botón central del ratón, se dibujan en la superficie de la "Mapview" unos círculos concéntricos en el punto donde se ha hecho clic, y también se confirman los puntos previamente establecidos:
  26.     Dim pt As Point
  27.     Dim c As Short
  28.     pt = New Point(Mouse.X, Mouse.Y)
  29.     mmpp.Push(MapView1.Map.PixelToMapPointRel(pt))
  30. ' Provee los datos para hacer dibujar unos círculos concéntricos secuencialmente sobre el mapa mostrada por el Objeto "Mapview":
  31.     For c = 28 DownTo 1 Step 3
  32.       ct = c
  33.       MapView1.Refresh
  34.       Wait 0.1
  35.     Next 
  36.     Me.Text = Format(MapView1.Map.PixelToMapPointRel(pt).Lat, "0.000000") & "   " &
  37.               Format(MapView1.Map.PixelToMapPointRel(pt).Lon, "0.000000")
  38.   Endif 
  39.   
  40. ' Al hacer clic con el botón central del ratón, los puntos previamente dibujados son cacelados por la superficie de la "Mapview":
  41.   If Mouse.Middle Then 
  42.     mmpp.clear
  43.     MapView1.Refresh
  44.   Endif 
  45.  
  46.  
  47. Public Sub MapView1_Draw()
  48.   
  49.   If mmpp.Count == 0 Then Return 
  50.   
  51.   With Paint
  52.     .Begin(pn.Children[0])
  53.     .Brush = .Color(Color.Red)
  54.     For n = 0 To mmpp.Max - 1
  55.       .Arc(MapView1.Map.MapPointToPixelRel(mmpp[n]).X, MapView1.Map.MapPointToPixelRel(mmpp[n]).Y, 2, Rad(0), Rad(360), False)
  56.       .Fill
  57.     Next 
  58.     .Arc(MapView1.Map.MapPointToPixelRel(mmpp[mmpp.Max]).X, MapView1.Map.MapPointToPixelRel(mmpp[mmpp.Max]).Y, 2 * ct, Rad(0), Rad(360), False)
  59.     If ct > 1 Then 
  60.       .Stroke
  61.     Else 
  62.       .Fill
  63.     Endif 
  64.     .End
  65.   





RE: Dibujar en la "MapView" círculos concéntricos donde se ha hecho clic con el ratón - gambafeliz - 12-01-2022

Según tu explicación me encanta, es algo que me parece que tiene muchas utilidades practicas. Gracias

Y por cierto, Feliz Año Nuevo, amigo Vuott, espero que todo te vaya bien en lo personal. Saludos