Disegnare un cerchio o un punto su una MapView
Indice
Disegnare un Punto o un Cerchio con il Metodo ".AddShape().AddCircle()" della Classe "Map"
Disegnare un Punto
Per disegnare su una MapView un punto con il Metodo ".AddShape().AddCircle()" della Classe "Map", è necessario assegnare un piccolo valore al terzo argomento del predetto Metodo e assegnare un colore al settimo argomento, affinché l'elemento geometrico appaia come un "punto" (un piccolo cerchio pieno) e non come un cerchio vuoto.
Public Sub Form_Open() Dim mp As New MapPoint(41.89018, 12.49230) With MapView1.Map .AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}") .Zoom = 15 ' Imposta il centro del punto: .Center = mp ' Disegna infine il punto: .AddShape("colosseo").AddCircle("punto", mp, 4, Color.Red, 1, 1, Color.Red) End With End
Il terzo argomento stabilisce la dimensione in pixel del punto. Il quarto argomento assegna il colore alla circonferenza, mentre il settimo riempie il punto con il colore ivi impostato.
Disegnare un Cerchio
Per disegnare su una MapView un cerchio mediante il Metodo , è possibile utilizzare il Metodo .AddCircle( ) del Metodo ".AddShape( )" della Classe "Map".
E' sufficiente assegnare un adeguato valore al terzo argomento e il valore della trasparenza al settimo argomento, se si vuole ottenere un cerchio vuoto, altrimenti un colore opaco se si vuole ottenere un cerchio pieno. Per variare lo spessore della circonferenza bisogna operare sul quinto argomento.
Public Sub Form_Open() Dim mp As New MapPoint(41.89018, 12.49230) With MapView1.Map .AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}") .Zoom = 15 ' Imposta il centro del cerchio: .Center = mp ' Disegna infine il cerchio: .AddShape("colosseo").AddCircle("cerchio", mp, 100, Color.Red, 1, 1, Color.Transparent) End With End
Se si vuole, ad esempio, creare un cerchio riempito di un colore e con la circonferenza disegnata da altro colore:
MapView1.Map.AddShape("cerchio").AddCircle("cerchio", mp, 100, Color.Red, 2, 1, Color.Yellow)
Disegnare più punti
Mostriamo un esempio pratico per disegnare più punti lungo un'ideale circonferenza:
Public Sub Form_Open() Dim x_a, y_o, r, an As Short Dim po As New Point Dim mp As New MapPoint With MapView1 .Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "908"]).SubDomains = ["0", "1", "2"] '[Nota 1] .Map["GoogleMap"].Visible = True .Map.Zoom = 15 End With ' Imposta il centro della circonferenza, lungo la quale saranno posizionati i vari punti da disegnare: mp.Lat = 41.89018 mp.Lon = 12.49230 MapView1.Map.Center = mp po = MapView1.Map.MapPointToPixelRel(mp) x_a = po.X ' Rappresenta la distanza X della circonferenza dal punto 0 (angolo in alto a sinistra) y_o = po.y ' Rappresenta la distanza Y della circonferenza dal punto 0 (angolo in alto a sinistra) r = 50 ' Rappresenta la dimensione del raggio della circonferenza ' Descrive un angolo da 0° sino a 360° (quindi un'intera circonferenza): For an = 0 To 360 Step 30 po.X = x_a + r * Cos(Rad(an)) po.Y = y_o + r * Sin(Rad(an)) mp = MapView1.Map.PixelToMapPointRel(po) MapView1.Map.AddShape("italia").AddCircle("cerchio", mp, 5, Color.Red, 1, 1, Color.Yellow) Next End
Disegnare un semplice punto senza utilizzare il Metodo .AddCircle( )
Si può, volendo, disegnare un semplice punto anche senza utilizzare il Metodo .AddCircle( ), disegnando su un oggetto Image un cerchio o un rettangolo colorato.
Public Sub Form_Open() With MapView1.Map .AddTile("Open Topo", "https://a.tile.opentopomap.org/{z}/{x}/{y}.png") .Zoom = 15 ' Imposta il centro della mappa: .Center = MapPoint(41.89018, 12.49230) End With End Public Sub MapView1_MouseUp() Dim mp As New MapPoint Dim pt As New Point(Mouse.X, Mouse.Y) Dim im As Image mp = MapView1.Map.PixelToMapPointRel(pt) ' Crea l'oggetto "Image": im = New Image(90, 60, Color.Transparent, gb.Standard) ' Scrive le coordinate geografiche nell'oggetto "Image" in forma testuale: With Paint .Begin(im) .Font.Size = 8 .Brush = .Color(Color.Red) .DrawText(Format(mp.Lat, "#.######") & "\n" & Format(mp.Lon, "#.######"), 35, 14, im.W, im.H, Align.Normal) ' Disegna un cerchietto pieno come punto delle coordinate: .Arc(30, 45, 2, 0, 360, False) .Fill .End End With With MapView1 .Map.AddShape("immagine").AddPoint("immagine", mp, Color.Default, im) .Refresh() .Map.Refresh() End With End
Disegnare un cerchio o una ellisse o un punto su una MapView usando l'Oggetto "Figlio" DrawingArea
L'Oggetto "MapView" mostra la mappa su una "DrawingArea", che è un Oggetto "Figlio" di un "Panel", "Figlio" a sua volta dell'Oggetto "MapView":
MapView ⬇ padre di un Panel ⬇ padre di una DrawingArea
Pertanto, sarà possibile utilizzare tale "DrawingArea" per disegnare qualsiasi cosa, facendola apparire al di sopra della mappa.
Mostriamo un semplice codice esemplificativo:
Private MapView1 As MapView Private pn As Panel Private mmpp As New MapPoint[] Public Sub Form_Open() With MapView1 = New MapView(Me) As "MapView1" .X = 0 .Y = 0 .W = Me.W .H = Me.H .Map.AddTile("topo", "https://a.tile.opentopomap.org/{z}/{x}/{y}.png") ' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel": pn = .Children[0] End With End Public Sub MapView1_MouseUp() Dim pt As New Point(Mouse.X, Mouse.Y) ' Si usa l'Oggetto "MapPoint" per garantire la coerenza del puntamento su un punto della mappa anche nel caso di spostamento o variazione dello zoom della mappa medesima: mmpp.Push(MapView1.Map.PixelToMapPointRel(pt)) Me.Caption = CStr(mmpp[mmpp.Max].Lat) & " - " & CStr(mmpp[mmpp.Max].Lon) MapView1.Refresh End Public Sub MapView1_Draw() Dim x, y As Float = 50.0 Dim i As Integer With Paint ' Disegna sull'Oggetto "Figlio" del "Panel", che è una "DrawingArea", la stessa che la Classe "MapView" usa per mostrare la mappa: .Begin(pn.Children[0]) .Brush = .Color(Color.Yellow) .LineWidth = 2.0 For i = 0 to mmpp.Max ' (x / 2) e (y / 2) per centrare il cerchio nel punto dove si clicca con il mouse: .Ellipse(MapView1.Map.MapPointToPixelRel(mmpp[i]).X - (x / 2), MapView1.Map.MapPointToPixelRel(mmpp[i]).Y - (y / 2), x, y, Rad(0), Rad(360), False) ' E' possibile anche usare il Metodo ".Arc()". Next .Stroke .End End With End
Note
[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questa parte del codice: ["version": "904"]
Al riguardo vedere: Conoscere la versione più recente di Google Maps satellite