Differenze tra le versioni di "Inserire del testo su una MapView"
Riga 3: | Riga 3: | ||
− | Vediamo un semplice esempio: <SUP>[[[#Note| | + | Vediamo un semplice esempio: <SUP>[[[#Note|nota 1]]]</sup> |
Private mp As New MapPoint | Private mp As New MapPoint | ||
Riga 25: | Riga 25: | ||
'''Public''' Sub MapView1_MouseDown() | '''Public''' Sub MapView1_MouseDown() | ||
− | <FONT Color=gray>' ''Se si clicca con il tasto centrale del mouse, si cancelleranno le immagini con il testo, se presenti, cominciando dalla prima inserita:''</font> | + | <FONT Color=gray>' ''Se si clicca con il tasto centrale del mouse, si cancelleranno le immagini con il testo, se presenti, cominciando dalla prima inserita:''</font> |
If Mouse.Middle Then | If Mouse.Middle Then | ||
With MapView1 | With MapView1 |
Versione delle 10:08, 3 giu 2023
Una modalità per poter inserire del testo su una MapView è quella di scrivere il testo su un Oggetto Image, che dovrà essere successivamente passato all'ultimo argomento del sotto-Metodo ".AddPoint()" del Metodo ".AddShape()" della Classe Map.
Pur spostando con il mouse la mappa, il testo resterà stabile sul punto ove era stato disegnato.
Vediamo un semplice esempio: [nota 1]
Private mp As New MapPoint Public Sub Form_Open() With MapView1 .X = 0 .Y = 0 .W = Me.W .H = Me.H .Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "949"]).SubDomains = ["0", "1", "2"] .Map.Zoom = 16 mp.Lat = 41.8902142 mp.Lon = 12.4900422 .Map.Center = mp End With End Public Sub MapView1_MouseDown() ' Se si clicca con il tasto centrale del mouse, si cancelleranno le immagini con il testo, se presenti, cominciando dalla prima inserita: If Mouse.Middle Then With MapView1 If Not Object.IsValid(.Map.GetShape("immagine")) Then Return .Map.Remove("immagine") .Refresh End With Endif Dim pt As New Point(Mouse.X, Mouse.Y) mp = MapView1.Map.PixelToMapPointRel(pt) End Public Sub MapView1_MouseUp() If Not Mouse.Right Then Return Dim im As Image Dim s As String s = Format(mp.Lat, "#.######") & "\n" & Format(mp.Lon, "#.######") ' Crea l'oggetto "Image" impostando la sua dimensione coerente con l'area occupata dal testo: im = New Image(Me.Font.TextWidth(s), Me.Font.TextHeight(s), Color.Transparent, Image.Standard) ' Scrive le coordinate geografiche nell'oggetto "Image" in forma testuale: With Paint .Begin(im) .Brush = .Color(Color.Orange) .Arc(Me.Font.TextWidth(s) / 2 + 1, Me.Font.TextHeight(s) / 2 + 1, 2, Rad(0), Rad(360), False) .Fill .Font.Size = 10 .Brush = .Color(Color.Red) .DrawText(s, 0, 0, im.W, im.H, Align.Normal) .End End With With MapView1 ' Passa l'oggetto "Image" al 3° argomento del Metodo ".AddPoint( )": .Map.AddShape("immagine").AddPoint("immagine", mp, Color.Default, im) .Refresh() .Map.Refresh() End With End
Disegnare il testo 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". 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 Me .W = Screen.AvailableWidth .H = Screen.AvailableHeight .Arrangement = Arrange.Fill End With With MapView1 = New MapView(Me) As "MapView1" .Map.AddTile("topo", "https://a.tile.opentopomap.org/{z}/{x}/{y}.png") .Map.Zoom = 14 ' Imposta il centro della mappa all'inizio: .Map.Center = MapPoint(41.89018, 12.49230) End With ' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel": pn = MapView1.Children[0] 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 i As Integer Dim s As String = "Testo qualsiasi" With Paint ' Disegna sull'Oggetto "Figlio" del "Panel", che è una "DrawingArea" (ossia lo stesso Oggetto che la Classe "MapView" usa ordinariamente per mostrare la mappa): .Begin(pn.Children[0]) .Brush = .Color(Color.Red) For i = 0 to mmpp.Max .DrawText(s, MapView1.Map.MapPointToPixelRel(mmpp[i]).X, MapView1.Map.MapPointToPixelRel(mmpp[i]).Y, .Font.TextWidth(s), .Font.TextHeight(s), Align.Normal) Next .End End With End
Se si vuole inserire uno sfondo colorato al testo, allora bisognerà usare il Metodo ".DrawRichText()" (oppure: il Metodo ".TextRich()"), e la precedente routine potrà essere così ad esempio impostata:
Public Sub MapView1_Draw() Dim i As Integer Dim s, rt As String s = "Testo qualsiasi" ' Attribuisce uno sfondo colorato al testo: rt = "<SPAN style=background-color:white>" & s & "</span>" With Paint .Begin(pn.Children[0]) .Brush = .Color(Color.Red) For i = 0 To mmpp.Max .DrawRichText(rt, MapView1.Map.MapPointToPixelRel(mmpp[i]).X, MapView1.Map.MapPointToPixelRel(mmpp[i]).Y, .Font.TextWidth(s), .Font.TextHeight(s), Align.Right) Next .End End With End
Note
[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "949"]
Al riguardo vedere: Conoscere la versione più recente di Google Maps satellite