Differenze tra le versioni di "Inserire un Oggetto grafico su una MapView"

Da Gambas-it.org - Wikipedia.
 
(5 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
E' possibile mostrare su una ''MapView'' un Oggetto grafico (un ''Controllo'': "Button", "Label", "PictureBox", etc) da utilizzare eventualmente durante la visione della mappa. <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
+
E' possibile mostrare su una ''MapView'' un Oggetto grafico (un ''Controllo'' grafico: "Button", "Label", "PictureBox", etc) da utilizzare eventualmente durante la visione della mappa. <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
  
 
Il predetto ''Controllo'' grafico deve in realtà essere posto sulla ''DrawingArea'', "Figlia" indiretta della ''MapView''.
 
Il predetto ''Controllo'' grafico deve in realtà essere posto sulla ''DrawingArea'', "Figlia" indiretta della ''MapView''.
Riga 5: Riga 5:
 
<BR>Se il ''Controllo'' grafico, da far mostrare, fosse attribuito, come ulteriore "Figlio", alla ''MapView'' o al ''Panel'', la sua dimensione assumerebbe interamente quella della ''MapView''. Pertanto il "Parent" del Controllo grafico, da far mostrare sulla ''MapView'', dovrà essere la ''DrawingArea'' meglio sopra specificata.
 
<BR>Se il ''Controllo'' grafico, da far mostrare, fosse attribuito, come ulteriore "Figlio", alla ''MapView'' o al ''Panel'', la sua dimensione assumerebbe interamente quella della ''MapView''. Pertanto il "Parent" del Controllo grafico, da far mostrare sulla ''MapView'', dovrà essere la ''DrawingArea'' meglio sopra specificata.
  
 +
Mostriamo qualche esempio pratico.
  
−
Mostriamo qualche esempio pratico.
+
==Inserire una ''PictureBox'' sulla mappa==
−
===Inserire una ''PictureBox'' sulla mappa===
 
 
Mostriamo un possibile codice, commentato, con il quale si imposterà una ''PictureBox'' sulla mappa.
 
Mostriamo un possibile codice, commentato, con il quale si imposterà una ''PictureBox'' sulla mappa.
 
  Private MapView1 As MapView
 
  Private MapView1 As MapView
Riga 44: Riga 44:
 
   
 
   
 
  <Font Color=gray>' '''''Attribuisce il Controllo grafico "PictureBox" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":'''''</font>
 
  <Font Color=gray>' '''''Attribuisce il Controllo grafico "PictureBox" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":'''''</font>
−
   With PictureBox1 = <Font Color=#B22222>New PictureBox(pn.Children[0])</font>
+
   With PictureBox1 = <Font Color=red>New PictureBox(pn.Children[0])</font>
 
  <Font Color=gray>' ''Posiziona la "PictureBox" nei pressi di determinate coordinate geografiche, trasformate adeguatamente in coordinate x,y dell'Oggetto "DrawingArea" (ossia: "pn.Children[0]"), del quale la "PictureBox" è ormai "Figlio":''</font>
 
  <Font Color=gray>' ''Posiziona la "PictureBox" nei pressi di determinate coordinate geografiche, trasformate adeguatamente in coordinate x,y dell'Oggetto "DrawingArea" (ossia: "pn.Children[0]"), del quale la "PictureBox" è ormai "Figlio":''</font>
 
     .X = pt.X
 
     .X = pt.X
Riga 60: Riga 60:
 
   Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))
 
   Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))
 
   
 
   
−
  <Font Color=gray>' ''Mostra le coordinate geografiche correnti del puntatore del Mouse sul bordo superiore della "MapView":''</font>
+
  <Font Color=gray>' ''Mostra sul bordo superiore della "MapView" le coordinate geografiche correnti del puntatore del Mouse:''</font>
 
   Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")
 
   Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")
 
   
 
   
 
  End
 
  End
 
   
 
   
−
  <Font Color=gray>' ''Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento la Mappa con il mouse, la  "PictureBox" si mostri solo e sempre alle sue coordinate geografiche prestabilite.''
+
  <Font Color=gray>' ''Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento della Mappa con il mouse, la  "PictureBox" si mostri solo e sempre alle sue coordinate geografiche prestabilite.''
 
  ' ''Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "PictureBox" non acquisirà le predette coordinate.''</font>
 
  ' ''Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "PictureBox" non acquisirà le predette coordinate.''</font>
 
  Public Sub MapView1_Draw()
 
  Public Sub MapView1_Draw()
Riga 98: Riga 98:
 
  End
 
  End
  
−
===Inserire un ''ComboBox'' sulla mappa===
+
 
 +
==Inserire una ''DrawingArea'' sulla mappa==
 +
Mostriamo un possibile codice, commentato, con il quale si imposterà una ''DrawingArea'' sulla mappa.
 +
Private MapView1 As MapView
 +
Private Const ZOOM As Byte = 14
 +
Private Const COEFFICIENTE As Single = 1.5
 +
Private mp As New MapPoint(41.89018, 12.49230)
 +
Private drawingarea1 As DrawingArea
 +
Private im As Image
 +
 +
 +
Public Sub Form_Open()
 +
 +
  Dim pn As Panel
 +
  Dim pt As Point
 +
 +
  With Me
 +
    .W = Screen.AvailableWidth
 +
    .H = Screen.AvailableHeight
 +
    .Arrangement = Arrange.Fill
 +
  End With
 +
  With MapView1 = New MapView(Me) As "MapView1"
 +
    .Map.AddTile("GoogleMap", "https&#058;//mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
 +
    .Map.Zoom = ZOOM
 +
<FONT Color=gray>' ''Imposta il centro della mappa visibile all'apertura iniziale:''</font>
 +
    .Map.Center = mp
 +
    pt = New Point(.Map.MapPointToPixelRel(mp).X, .Map.MapPointToPixelRel(mp).Y)
 +
  End With
 +
 
 +
<FONT Color=gray>' ''In questo esempio sulla "DrawingArea" faremo apparire un'immagine:''</font>
 +
  im = Image.Load("<Font Color=darkgreen>''/percorso/del/file/immagine''</font>")
 +
 +
<FONT Color=gray>' ''Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":''</font>
 +
  pn = MapView1.Children[0]
 +
 +
<FONT Color=gray>' ''Attribuisce il Controllo grafico "DrawingArea" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":''</font>
 +
  With DrawingArea1 = <Font Color=red>New DrawingArea(pn.Children[0]) As "DrawingArea1"</font>
 +
    .X = pt.X
 +
    .Y = pt.Y
 +
    .W = im.W * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
 +
    .H = im.H * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
 +
  End With
 +
 +
End
 +
 +
 +
Public Sub DrawingArea1_Draw()
 +
 +
  With Paint
 +
<FONT Color=gray>' ''Imposta la formula per proporzionare la dimensione dell'immagine e conseguentemente della "DrawingArea" rispetto al valore dello zoom corrente:''</font>
 +
    .DrawImage(im, 0, 0, im.W * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), im.H * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)))
 +
    .End
 +
  End With
 +
 +
<FONT Color=gray>' ''Adatta la "DrawingArea" alla nuova dimensione dell'immagine:''</font>
 +
  DrawingArea1.Resize(im.W * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), im.H * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)))
 +
 +
End
 +
 +
 +
Public Sub MapView1_MouseDown()
 +
 +
  Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))
 +
 +
<FONT Color=gray>' ''Mostra le coordinate geografiche correnti del puntatore del Mouse sul bordo superiore della "MapView":''</font>
 +
  Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")
 +
 +
End
 +
 +
 +
<FONT Color=gray>' ''Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento della Mappa con il mouse, la  "DrawingArea" si mostri solo e sempre alle sue coordinate geografiche prestabilite.''
 +
' ''Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "DrawingArea" non acquisirà le predette coordinate.''</font>
 +
Public Sub MapView1_Draw()
 +
 +
  With MapView1.Map
 +
    DrawingArea1.Move(.MapPointToPixelRel(mp).X, .MapPointToPixelRel(mp).Y)
 +
  End With
 +
 +
End
 +
 
 +
 
 +
==Inserire un ''ComboBox'' sulla mappa==
 
  Private MapView1 As MapView
 
  Private MapView1 As MapView
 
  Private Const ZOOM As Byte = 14
 
  Private Const ZOOM As Byte = 14
Riga 129: Riga 210:
 
   pn = MapView1.Children[0]
 
   pn = MapView1.Children[0]
 
   
 
   
−
   With ComboBox1 = New ComboBox(pn.Children[0])
+
   With ComboBox1 = <FONT Color=red>New ComboBox(pn.Children[0])</font>
 
     .X = pt.X
 
     .X = pt.X
 
     .Y = pt.Y
 
     .Y = pt.Y
Riga 140: Riga 221:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MapView1_MouseDown()
 
  Public Sub MapView1_MouseDown()
Riga 149: Riga 231:
 
  End
 
  End
 
   
 
   
 +
 +
<FONT Color=gray>' ''Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento della Mappa con il mouse, il  "ComboBox" si mostri solo e sempre alle sue coordinate geografiche prestabilite.''
 +
' ''Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "ComboBox" non acquisirà le predette coordinate.''</font>
 
  Public Sub MapView1_Draw()
 
  Public Sub MapView1_Draw()
 
   
 
   
Riga 156: Riga 241:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MapView1_MouseWheel()
 
  Public Sub MapView1_MouseWheel()
Riga 165: Riga 251:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MapView1_MouseUp()
 
  Public Sub MapView1_MouseUp()
Riga 178: Riga 265:
 
  End
 
  End
  
−
===Inserire un ''ToggleButton'' sulla mappa===
+
 
 +
==Inserire un ''ToggleButton'' sulla mappa==
 
Mostriamo un possibile codice, commentato, con il quale si imposterà un ''ToggleButton'' sulla mappa, premendo il quale verrà riprodotto un file audio o MIDI. Il percorso di tale file sonoro dovrà essere impostato nella Costante "PERCORSO_FILE_AUDIO".
 
Mostriamo un possibile codice, commentato, con il quale si imposterà un ''ToggleButton'' sulla mappa, premendo il quale verrà riprodotto un file audio o MIDI. Il percorso di tale file sonoro dovrà essere impostato nella Costante "PERCORSO_FILE_AUDIO".
 
  Private MapView1 As MapView
 
  Private MapView1 As MapView
Riga 213: Riga 301:
 
   
 
   
 
  <Font Color=gray>' '''''Attribuisce il Controllo grafico "ToggleButton" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":'''''</font>
 
  <Font Color=gray>' '''''Attribuisce il Controllo grafico "ToggleButton" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":'''''</font>
−
   With tb = <Font Color=#B22222>New ToggleButton(pn.Children[0]) As "Audio"</font>
+
   With tb = <Font Color=red>New ToggleButton(pn.Children[0]) As "Audio"</font>
 
  <Font Color=gray>' ''Posiziona il "ToggleButton" nei pressi di determinate coordinate geografiche, trasformate adeguatamente in coordinate x,y dell'Oggetto "DrawingArea" (ossia: "pn.Children[0]"), del quale il "ToggleButton" è ormai "Figlio":''</font>
 
  <Font Color=gray>' ''Posiziona il "ToggleButton" nei pressi di determinate coordinate geografiche, trasformate adeguatamente in coordinate x,y dell'Oggetto "DrawingArea" (ossia: "pn.Children[0]"), del quale il "ToggleButton" è ormai "Figlio":''</font>
 
     .X = pt.X
 
     .X = pt.X
Riga 225: Riga 313:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MapView1_MouseDown()
 
  Public Sub MapView1_MouseDown()
Riga 235: Riga 324:
 
  End
 
  End
 
   
 
   
−
  <Font Color=gray>' ''Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento la Mappa con il mouse, il "Button" si mostri solo e sempre alle sue coordinate geografiche prestabilite.''
+
−
  ' ''Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "Rect" non acquisirà le predette coordinate.''</font>
+
  <Font Color=gray>' ''Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento della Mappa con il mouse, il "ToggleButton" si mostri solo e sempre alle sue coordinate geografiche prestabilite.''
 +
  ' ''Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "ToggleButton" non acquisirà le predette coordinate.''</font>
 
  Public Sub MapView1_Draw()
 
  Public Sub MapView1_Draw()
 
   
 
   
Riga 251: Riga 341:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MapView1_MouseUp()
 
  Public Sub MapView1_MouseUp()
Riga 263: Riga 354:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub Audio_Click()
 
  Public Sub Audio_Click()
Riga 298: Riga 390:
 
   
 
   
  
−
====Inserire un ''ToggleButton'' sulla mappa con il quale avviare l'esecuzione di un file video====
+
===Inserire un ''ToggleButton'' sulla mappa, con il quale avviare l'esecuzione di un file video===
 
Mostriamo il codice, simile al precedente, con il quale questa volta si mostrerà sulla mappa un ''ToggleButton'', cliccando sul quale si eseguirà un file video che sarà mostrato all'interno di una autonoma finestra creata dall'Oggetto ''MediaPlayer'' presso il ''ToggleButton''.
 
Mostriamo il codice, simile al precedente, con il quale questa volta si mostrerà sulla mappa un ''ToggleButton'', cliccando sul quale si eseguirà un file video che sarà mostrato all'interno di una autonoma finestra creata dall'Oggetto ''MediaPlayer'' presso il ''ToggleButton''.
 
  Private MapView1 As MapView
 
  Private MapView1 As MapView
Riga 330: Riga 422:
 
   pn = MapView1.Children[0]
 
   pn = MapView1.Children[0]
 
   
 
   
−
   With tb = <Font Color=#B22222>New ToggleButton(pn.Children[0]) As "Video"</font>
+
   With tb = <Font Color=red>New ToggleButton(pn.Children[0]) As "Video"</font>
 
     .X = pt.X
 
     .X = pt.X
 
     .Y = pt.Y
 
     .Y = pt.Y
Riga 340: Riga 432:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MapView1_MouseDown()
 
  Public Sub MapView1_MouseDown()
Riga 348: Riga 441:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MapView1_Draw()
 
  Public Sub MapView1_Draw()
Riga 361: Riga 455:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MapView1_MouseWheel()
 
  Public Sub MapView1_MouseWheel()
Riga 368: Riga 463:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MapView1_MouseUp()
 
  Public Sub MapView1_MouseUp()
Riga 380: Riga 476:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub Video_Click()
 
  Public Sub Video_Click()
Riga 414: Riga 511:
 
   
 
   
 
  End
 
  End
 +
 
   
 
   
 
  Public Sub MPlayer_End()
 
  Public Sub MPlayer_End()
Riga 457: Riga 555:
 
  End
 
  End
  
−
===Inserire una ''MapView'' all'interno di una ''MapView'' principale===
+
 
 +
==Inserire una ''MapView'' all'interno di una ''MapView'' principale==
 
Possiamo ovviamente inserire all'interno di una ''MapView'' principale una ''MapView'' più piccola, magari per vedere una porzione particolare e con un valore dello zoom superiore dell'area della mappa mostrata dalla ''MapView'' principale.
 
Possiamo ovviamente inserire all'interno di una ''MapView'' principale una ''MapView'' più piccola, magari per vedere una porzione particolare e con un valore dello zoom superiore dell'area della mappa mostrata dalla ''MapView'' principale.
 
<BR>Nel codice, che segue, si porrà in alto a destra di una ''MapView'' una ''MapView'' più piccola che mostrerà una porzione di mappa, nel punto puntato dal mouse, con un valore dello zoom superiore di due unità rispetto a quello della ''MapView'' principale.
 
<BR>Nel codice, che segue, si porrà in alto a destra di una ''MapView'' una ''MapView'' più piccola che mostrerà una porzione di mappa, nel punto puntato dal mouse, con un valore dello zoom superiore di due unità rispetto a quello della ''MapView'' principale.
Riga 485: Riga 584:
 
  pn = MapView1.Children[0]
 
  pn = MapView1.Children[0]
 
   
 
   
−
  With MapView2 = New MapView(pn.Children[0]) As "MapView2"
+
  With MapView2 = <FONT Color=red>New MapView(pn.Children[0]) As "MapView2"</font>
 
   .X = MapView1.W * 0.70
 
   .X = MapView1.W * 0.70
 
   .Y = 0
 
   .Y = 0
Riga 529: Riga 628:
 
   
 
   
 
   Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")
 
   Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")
 +
 +
End
 +
 +
 +
==Inserire una ''DocumentView'' all'interno di una ''MapView'' principale==
 +
Nel seguente esempio inseriremo una ''DocumentView'' all'interno di una ''MapView'' principale, per mostrare un file PDF.
 +
<BR>E' necessario attivare anche il Componente ''gb.poppler''.
 +
Private MapView1 As MapView
 +
Private Const ZOOM As Byte = 14
 +
Private mp As New MapPoint(41.89018, 12.49230)
 +
Private DocumentView1 As DocumentView
 +
Private doc As PdfDocument
 +
 +
 +
Public Sub Form_Open()
 +
 +
  Dim pn As Panel
 +
  Dim pt As Point
 +
 +
  With Me
 +
    .W = Screen.AvailableWidth
 +
    .H = Screen.AvailableHeight
 +
    .Arrangement = Arrange.Fill
 +
  End With
 +
  With MapView1 = New MapView(Me) As "MapView1"
 +
    .Map.AddTile("GoogleMap", "https&#058;//mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
 +
    .Map.Zoom = ZOOM
 +
<FONT Color=gray>' ''Imposta il centro della mappa visibile all'apertura iniziale:''</font>
 +
    .Map.Center = mp
 +
    pt = New Point(.Map.MapPointToPixelRel(mp).X, .Map.MapPointToPixelRel(mp).Y)
 +
  End With
 +
 +
  doc = New PdfDocument("<FONT Color=darkgreen>''/percorso/del/file/PDF''</font>")
 +
 +
<FONT Color=gray>' ''Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":''</font>
 +
  pn = MapView1.Children[0]
 +
 +
<FONT Color=gray>' ''Attribuisce il Controllo grafico "DocumentView" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":''</font>
 +
  With DocumentView1 = <FONT Color=red>New DocumentView(pn.Children[0]) As "DocumentView1"</font>
 +
    .X = pt.X
 +
    .Y = pt.Y
 +
    .W = 400
 +
    .H = 100
 +
    .Column = 1
 +
    .Count = doc.Count
 +
  End With
 +
 +
End
 +
 +
 +
Public Sub DocumentView1_Draw(Page As Integer, Width As Integer, Height As Integer)
 +
 +
  Paint.DrawImage(doc[Page].Render(0, 0, Width * doc.Resolution, Height * doc.Resolution, 0, doc.Resolution), 0, 0, Paint.Width, Paint.Height)
 +
 +
End
 +
 +
 +
<FONT Color=gray>' ''Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento la Mappa con il mouse, la  "DocumentView" si mostri solo e sempre alle sue coordinate geografiche prestabilite.''
 +
' ''Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "DocumentView" non acquisirà le predette coordinate.''</font>
 +
Public Sub MapView1_Draw()
 +
 +
  With MapView1.Map
 +
    DocumentView1.Move(.MapPointToPixelRel(mp).X, .MapPointToPixelRel(mp).Y)
 +
  End With
 +
 +
End
 +
 +
 +
Public Sub MapView1_MouseDown()
 +
 +
  Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))
 +
 +
<FONT Color=gray>' ''Mostra sul bordo superiore della "MapView" le coordinate geografiche correnti del puntatore del Mouse:''</font>
 +
  Me.Title = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")
 +
 +
End
 +
 +
 +
Public Sub DocumentView1_MouseDown() <FONT Color=gray>' ''Cliccando sulla "DocumentView", questa non è più visibile''</font>
 +
 +
  DocumentView1.Hide
 +
 +
End
 +
 +
 +
Public Sub DocumentView1_MouseUp() <FONT Color=gray>' ''Rilasciando il tasto del mouse, la "DocumentView" torna visibile''</font>
 +
 +
  DocumentView1.Show
 
   
 
   
 
  End
 
  End

Versione attuale delle 15:20, 7 nov 2024

E' possibile mostrare su una MapView un Oggetto grafico (un Controllo grafico: "Button", "Label", "PictureBox", etc) da utilizzare eventualmente durante la visione della mappa. [nota 1]

Il predetto Controllo grafico deve in realtà essere posto sulla DrawingArea, "Figlia" indiretta della MapView.
Come si sa, la MapView possiede un proprio "Figlio", che è un Oggetto Panel, il quale a sua volta possiede un Oggetto "Figlio", che è appunto una DrawingArea, utilizzata per mostrare la mappa prescelta.
Se il Controllo grafico, da far mostrare, fosse attribuito, come ulteriore "Figlio", alla MapView o al Panel, la sua dimensione assumerebbe interamente quella della MapView. Pertanto il "Parent" del Controllo grafico, da far mostrare sulla MapView, dovrà essere la DrawingArea meglio sopra specificata.

Mostriamo qualche esempio pratico.

Inserire una PictureBox sulla mappa

Mostriamo un possibile codice, commentato, con il quale si imposterà una PictureBox sulla mappa. 

Private MapView1 As MapView
Private Const ZOOM As Byte = 14
Private Const COEFFICIENTE As Single = 1.5
Private Const PERCORSO_FILE_IMMAGINE As String = "/percorso/del/file/immagine"
Private mp As New MapPoint(41.89018, 12.49230)
Private zm As Byte = ZOOM
Private PictureBox1 As PictureBox
Private im As Image


Public Sub Form_Open()

 Dim pn As Panel
 Dim pt As Point

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With
 With MapView1 = New MapView(Me) As "MapView1"
   .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Map.Zoom = ZOOM
' Imposta il centro della mappa visibile all'apertura iniziale:
   .Map.Center = mp
   pt = New Point(.Map.MapPointToPixelRel(mp).X, .Map.MapPointToPixelRel(mp).Y)
 End With

 ' Carica un file immagine:
 im = Image.Load(PERCORSO_FILE_IMMAGINE)

' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":
 pn = MapView1.Children[0]

' Attribuisce il Controllo grafico "PictureBox" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":
 With PictureBox1 = New PictureBox(pn.Children[0])
' Posiziona la "PictureBox" nei pressi di determinate coordinate geografiche, trasformate adeguatamente in coordinate x,y dell'Oggetto "DrawingArea" (ossia: "pn.Children[0]"), del quale la "PictureBox" è ormai "Figlio":
   .X = pt.X
   .Y = pt.Y
' Imposta la formula per proporzionare la lunghezza della "PictureBox" rispetto al valore dello zoom corrente:
   .W = im.W * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
   .H = im.H * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
   .Image = im
 End With

End

Public Sub MapView1_MouseDown()

 Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))

' Mostra sul bordo superiore della "MapView" le coordinate geografiche correnti del puntatore del Mouse:
 Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")

End

' Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento della Mappa con il mouse, la  "PictureBox" si mostri solo e sempre alle sue coordinate geografiche prestabilite.
' Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "PictureBox" non acquisirà le predette coordinate.
Public Sub MapView1_Draw()

 With MapView1.Map
   PictureBox1.Move(.MapPointToPixelRel(mp).X, .MapPointToPixelRel(mp).Y)
 End With 

End

Public Sub MapView1_MouseWheel()

 With PictureBox1
' Imposta la formula per proporzionare la dimensione dell'immagine e conseguentemente della "PictureBox" rispetto al valore dello zoom corrente:
   .Image = im.Stretch(im.W * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), im.H * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), False)
   .Resize(.Image.W, .Image.H)
 End With

End

Public Sub MapView1_MouseUp()

' Se si modifica lo zoom della mappa modificando la posizione dello "Slider" predefinito, presente in alto a sinistra della mappa,  allora viene impostata la formula per proporzionare la dimensione dell'immagine e conseguentemente della "PictureBox" rispetto al valore dello zoom corrente:
 If MapView1.Map.Zoom <> zm Then
   With PictureBox1
     .Image = im.Stretch(im.W * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), im.H * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), False)
     .Resize(.Image.W, .Image.H)
   End With
  zm = MapView1.Map.Zoom
 Endif

End


Inserire una DrawingArea sulla mappa

Mostriamo un possibile codice, commentato, con il quale si imposterà una DrawingArea sulla mappa. 

Private MapView1 As MapView
Private Const ZOOM As Byte = 14
Private Const COEFFICIENTE As Single = 1.5
Private mp As New MapPoint(41.89018, 12.49230)
Private drawingarea1 As DrawingArea
Private im As Image


Public Sub Form_Open()

 Dim pn As Panel
 Dim pt As Point

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With
 With MapView1 = New MapView(Me) As "MapView1"
   .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Map.Zoom = ZOOM
' Imposta il centro della mappa visibile all'apertura iniziale:
   .Map.Center = mp
   pt = New Point(.Map.MapPointToPixelRel(mp).X, .Map.MapPointToPixelRel(mp).Y)
 End With
 
' In questo esempio sulla "DrawingArea" faremo apparire un'immagine:
 im = Image.Load("/percorso/del/file/immagine")

' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":
 pn = MapView1.Children[0]

' Attribuisce il Controllo grafico "DrawingArea" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":
 With DrawingArea1 = New DrawingArea(pn.Children[0]) As "DrawingArea1"
   .X = pt.X
   .Y = pt.Y
   .W = im.W * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
   .H = im.H * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
 End With

End


Public Sub DrawingArea1_Draw()

 With Paint
' Imposta la formula per proporzionare la dimensione dell'immagine e conseguentemente della "DrawingArea" rispetto al valore dello zoom corrente:
   .DrawImage(im, 0, 0, im.W * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), im.H * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)))
   .End
 End With

' Adatta la "DrawingArea" alla nuova dimensione dell'immagine:
 DrawingArea1.Resize(im.W * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), im.H * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)))

End


Public Sub MapView1_MouseDown()

 Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))

' Mostra le coordinate geografiche correnti del puntatore del Mouse sul bordo superiore della "MapView":
 Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")

End


' Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento della Mappa con il mouse, la  "DrawingArea" si mostri solo e sempre alle sue coordinate geografiche prestabilite.
' Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "DrawingArea" non acquisirà le predette coordinate.
Public Sub MapView1_Draw()

 With MapView1.Map
   DrawingArea1.Move(.MapPointToPixelRel(mp).X, .MapPointToPixelRel(mp).Y)
 End With 

End


Inserire un ComboBox sulla mappa

Private MapView1 As MapView
Private Const ZOOM As Byte = 14
Private ComboBox1 As ComboBox
Private Const WDIMENSIONE As Byte = 70
Private Const HDIMENSIONE As Byte = 20
Private Const COEFFICIENTE As Single = 1.2
Private mp As New MapPoint(41.89018, 12.49230)
Private zm As Byte = ZOOM


Public Sub Form_Open()

 Dim pn As Panel
 Dim pt As Point

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With
 With MapView1 = New MapView(Me) As "MapView1"
   .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Map.Zoom = ZOOM
   .Map.Center = mp
   pt = New Point(.Map.MapPointToPixelRel(mp).X, .Map.MapPointToPixelRel(mp).Y)
 End With

' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":
 pn = MapView1.Children[0]

 With ComboBox1 = New ComboBox(pn.Children[0])
   .X = pt.X
   .Y = pt.Y
' Imposta la formula per proporzionare la lunghezza del "ComboBox" rispetto al valore dello zoom corrente:
   .W = WDIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
   .H = HDIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
   .Text = "ComboBox"
   .List = ["aaaa", "bbbb", "cccc", "dddd"]
 End With

End


Public Sub MapView1_MouseDown()

 Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))

 Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")

End


' Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento della Mappa con il mouse, il  "ComboBox" si mostri solo e sempre alle sue coordinate geografiche prestabilite.
' Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "ComboBox" non acquisirà le predette coordinate.
Public Sub MapView1_Draw()

 With MapView1.Map
   ComboBox1.Move(.MapPointToPixelRel(mp).X, .MapPointToPixelRel(mp).Y)
 End With 

End


Public Sub MapView1_MouseWheel()

 With ComboBox1
' Imposta la formula per proporzionare la dimensione del "ComboBox" rispetto al valore dello zoom corrente:
   .Resize(WDIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), HDIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)))
 End With

End


Public Sub MapView1_MouseUp()

' Se si modifica lo zoom della mappa modificando la posizione dello "Slider" predefinito, presente in alto a sinistra della mappa,  allora viene impostata la formula per proporzionare la dimensione del "ComboBox" rispetto al valore dello zoom corrente:
 If MapView1.Map.Zoom <> zm Then
   With ComboBox1
     .Resize(WDIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), HDIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), False)
   End With
   zm = MapView1.Map.Zoom
 Endif

End


Inserire un ToggleButton sulla mappa

Mostriamo un possibile codice, commentato, con il quale si imposterà un ToggleButton sulla mappa, premendo il quale verrà riprodotto un file audio o MIDI. Il percorso di tale file sonoro dovrà essere impostato nella Costante "PERCORSO_FILE_AUDIO". 

Private MapView1 As MapView
Private Const ZOOM As Byte = 14
Private tb As ToggleButton
Private Const DIMENSIONE As Byte = 50
Private Const COEFFICIENTE As Single = 1.2
Private Const PERCORSO_FILE_AUDIO As String = "/percorso/del/file/audio"
Private mp As New MapPoint(41.89018, 12.49230)
Private zm As Byte = ZOOM
Private ob As Object


Public Sub Form_Open()

 Dim pn As Panel
 Dim pt As Point

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With
 With MapView1 = New MapView(Me) As "MapView1"
   .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Map.Zoom = ZOOM
' Imposta il centro della mappa visibile all'apertura iniziale:
   .Map.Center = mp
   pt = New Point(.Map.MapPointToPixelRel(mp).X, .Map.MapPointToPixelRel(mp).Y)
 End With 

' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":
 pn = MapView1.Children[0]

' Attribuisce il Controllo grafico "ToggleButton" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":
 With tb = New ToggleButton(pn.Children[0]) As "Audio"
' Posiziona il "ToggleButton" nei pressi di determinate coordinate geografiche, trasformate adeguatamente in coordinate x,y dell'Oggetto "DrawingArea" (ossia: "pn.Children[0]"), del quale il "ToggleButton" è ormai "Figlio":
   .X = pt.X
   .Y = pt.Y
' Imposta la formula per proporzionare la lunghezza del "ToggleButton" rispetto al valore dello zoom corrente:
   .W = DIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
   .H = .W * 0.5
   .Text = "Mus"
   .Tooltip = "Ascolta la musica"
 End With

End


Public Sub MapView1_MouseDown()

 Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))

' Mostra le coordinate geografiche correnti del puntatore del Mouse sul bordo superiore della "MapView":
 Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")

End


' Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento della Mappa con il mouse, il "ToggleButton" si mostri solo e sempre alle sue coordinate geografiche prestabilite.
' Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "ToggleButton" non acquisirà le predette coordinate.
Public Sub MapView1_Draw()

 With MapView1.Map
   tb.Move(.MapPointToPixelRel(mp).X, .MapPointToPixelRel(mp).Y)
 End With 

End

Public Sub MapView1_MouseWheel()

' Imposta la formula per proporzionare la dimensione del "ToggleButton" rispetto al valore dello zoom corrente:
 tb.Resize(DIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), DIMENSIONE * 0.5 * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)))

End


Public Sub MapView1_MouseUp()

' Se si modifica lo zoom della mappa modificando la posizione dello "Slider" predefinito, presente in alto a sinistra della mappa,  allora viene impostata la formula per proporzionare la dimensione del "ToggleButton" rispetto al valore dello zoom corrente:
 If MapView1.Map.Zoom <> zm Then
   With tb
     .Resize(DIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), DIMENSIONE * 0.5 * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)))
   End With
   zm = MapView1.Map.Zoom
 Endif

End


Public Sub Audio_Click()

 If Not tb.Value Then 
' Se, dopo aver avviato l'esecuzione audio, si preme nuovamente il "ToggleButton", l'esecuzione viene terminata:
   Object.Call(ob, "Close", Null)
   ob = Null
   Return 
 Endif

 Dim cl As Class

' Si è deciso di non caricare preliminarmente dall'IDE di Gambas il Componente "gb.media", bensì ora da codice:
 Component.Load("gb.media")
 cl = Class.Load("MediaPlayer")

 ob = cl.New()

' Carica il file audio:
 With Object
   .Attach(ob, Me, "MPlayer")
   .SetProperty(ob, "Url", Object.Call(Class.Load("Media"), "URL", [PERCORSO_FILE_AUDIO]))
   .Call(ob, "Play", Null)
 End With

End

Public Sub MPlayer_End()

 Object.Call(ob, "Close", Null)
 tb.Value = False

End

Inserire un ToggleButton sulla mappa, con il quale avviare l'esecuzione di un file video

Mostriamo il codice, simile al precedente, con il quale questa volta si mostrerà sulla mappa un ToggleButton, cliccando sul quale si eseguirà un file video che sarà mostrato all'interno di una autonoma finestra creata dall'Oggetto MediaPlayer presso il ToggleButton. 

Private MapView1 As MapView
Private Const ZOOM As Byte = 14
Private tb As ToggleButton
Private Const DIMENSIONE As Byte = 50
Private Const COEFFICIENTE As Single = 1.2
Private Const PERCORSO_FILE_VIDEO As String = "/percorso/del/file/video"
Private mp As New MapPoint(41.89018, 12.49230)
Private zm As Byte = ZOOM
Private ob As Object


Public Sub Form_Open()

 Dim pn As Panel
 Dim pt As Point

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With
 With MapView1 = New MapView(Me) As "MapView1"
   .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Map.Zoom = ZOOM
   .Map.Center = mp
   pt = New Point(.Map.MapPointToPixelRel(mp).X, .Map.MapPointToPixelRel(mp).Y)
 End With 

 pn = MapView1.Children[0]

 With tb = New ToggleButton(pn.Children[0]) As "Video"
   .X = pt.X
   .Y = pt.Y
   .W = DIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM))
   .H = .W * 0.5
   .Text = "Mus"
   .Tooltip = "Ascolta la musica"
 End With

End


Public Sub MapView1_MouseDown()

 Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))

 Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")

End


Public Sub MapView1_Draw()

 With MapView1.Map
   tb.Move(.MapPointToPixelRel(mp).X, .MapPointToPixelRel(mp).Y)
 End With

' Fa in modo che, qualora la mappa venga spostata, la finestra del video segua sempre il "ToggleButton" che ha dato avvio alla riproduzione video:
 If Object.IsValid(ob) Then 
   ob.SetWindow(MapView1, tb.X + tb.W, tb.Y + tb.H, 150, 100)
 Endif

End


Public Sub MapView1_MouseWheel()

' Imposta la formula per proporzionare la dimensione del "ToggleButton" rispetto al valore dello zoom corrente:
 tb.Resize(DIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), DIMENSIONE * 0.5 * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)))

End


Public Sub MapView1_MouseUp()

' Se si modifica lo zoom della mappa modificando la posizione dello "Slider" predefinito, presente in alto a sinistra della mappa,  allora viene impostata la formula per proporzionare la dimensione del "ToggleButton" rispetto al valore dello zoom corrente:
 If MapView1.Map.Zoom <> zm Then
   With tb
     .Resize(DIMENSIONE * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)), DIMENSIONE * 0.5 * CSingle(COEFFICIENTE ^ (MapView1.Map.Zoom - ZOOM)))
   End With
   zm = MapView1.Map.Zoom
 Endif

End


Public Sub Video_Click()

 If Not tb.Value Then 
   Object.Call(ob, "Close", Null)
   ob = Null
   MapView1.Refresh
   Return 
 Endif

 Dim cl As Class

 Component.Load("gb.media")
 cl = Class.Load("MediaPlayer")

 ob = cl.New()

 With Object
   .Attach(ob, Me, "Mplayer")
' Carica il file video:
   .SetProperty(ob, "Url", Object.Call(Class.Load("Media"), "URL", [PERCORSO_FILE_VIDEO]))
' Imposta i "Controllo" (la "DrawingArea" 'Figlia del "Panel"), ove sarà mostrato il video:
   .Call(ob, "SetWindow", [MapView1, tb.X + tb.W, tb.Y + tb.H, 150, 100])
   .Call(ob, "Play", Null)
 End With

' Con alcune distribuzioni sembra funzionare, solo usando la Classe "Observer" anziché "Object.Attach()".
 ' Pertanto dopo la riga "ob = cl.New()" si inseriranno le seguenti due righe:
 ' Pone sotto "osservazione" gli Eventi dell'Oggetto "MediaPlayer":
 '  Dim obs = New Observer(ob) As "Mplayer"
 '
 ' e in "With Object" si eliminerà la riga ".Attach(ob, Me, "Mplayer")".

End


Public Sub MPlayer_End()

 Object.Call(ob, "Close", Null)
 tb.Value = False
 MapView1.Refresh

End

Se non si vogliono utilizzare le Classi Component e Class, bensì si intende effettuare una dichiarazione diretta della Classe MediaPlayer, si dovranno effettuare alcune modifiche.

La dichiarazione della variabile Globale "Private ob As Object" va così sostituita: 

Private mpl As MediaPlayer

Nella riga condizionale della sub-routine "Public Sub MapView1_Draw()" l'identificatore "ob" va così sostituito: 

 If Object.IsValid(mpl) Then 
  mpl.SetWindow(MapView1, tb.X + tb.W, tb.Y + tb.H, 150, 100)
Endif

Le sub-routine "Public Sub Video_Click()" e "Public Sub MPlayer_End()" vanno così sostituite: 

Public Sub Video_Click()

 If Not tb.Value Then 
   mpl.Close
   mpl = Null
   MapView1.Refresh
   Return 
 Endif

 With mpl = New MediaPlayer As "MPlayer"
   .URL = Media.URL(PERCORSO_FILE_VIDEO)
   .SetWindow(MapView1, tb.X + tb.W, tb.Y + tb.H, 150, 100)
   .Play
 End With

End


Public Sub MPlayer_End()

 mpl.Close
 tb.Value = False
 MapView1.Refresh

End


Inserire una MapView all'interno di una MapView principale

Possiamo ovviamente inserire all'interno di una MapView principale una MapView più piccola, magari per vedere una porzione particolare e con un valore dello zoom superiore dell'area della mappa mostrata dalla MapView principale.
Nel codice, che segue, si porrà in alto a destra di una MapView una MapView più piccola che mostrerà una porzione di mappa, nel punto puntato dal mouse, con un valore dello zoom superiore di due unità rispetto a quello della MapView principale. 

Private MapView1 As MapView
Private mp As New MapPoint(41.89018, 12.49230)
Private MapView2 As MapView
Private mpo As MapPoint


Public Sub Form_Open()

Dim pn As Panel

With Me
  .W = Screen.AvailableWidth
  .H = Screen.AvailableHeight
End With
With MapView1 = New MapView(Me) As "MapView1"
  .X = 0
  .Y = 0
  .Resize(Me.W, Me.H)
  .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
  .Map.Zoom = 14
  .Map.Center = mp
End With 

pn = MapView1.Children[0]

With MapView2 = New MapView(pn.Children[0]) As "MapView2"
  .X = MapView1.W * 0.70
  .Y = 0
  .W = MapView1.W * 0.3
  .H = MapView1.H * 0.3
  .Border = Border.Raised
  .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
  .Map.Center = mp
  .Map.Zoom = 16
End With

End


Public Sub MapView1_MouseDown()

 mpo = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))

 Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")

End


Public Sub MapView1_MouseUp()
 
 MapView2.Map.Center = mpo
 MapView2.Map.Zoom = MapView1.Map.Zoom + 2

End


Public Sub MapView1_MouseWheel()
 
 MapView2.Map.Center = mpo
 MapView2.Map.Zoom = MapView1.Map.Zoom + 2
 
End


Public Sub MapView1_MouseMove()
 
 mpo = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))

 Me.Text = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")

End


Inserire una DocumentView all'interno di una MapView principale

Nel seguente esempio inseriremo una DocumentView all'interno di una MapView principale, per mostrare un file PDF.
E' necessario attivare anche il Componente gb.poppler. 

Private MapView1 As MapView
Private Const ZOOM As Byte = 14
Private mp As New MapPoint(41.89018, 12.49230)
Private DocumentView1 As DocumentView
Private doc As PdfDocument


Public Sub Form_Open()

 Dim pn As Panel
 Dim pt As Point

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With
 With MapView1 = New MapView(Me) As "MapView1"
   .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Map.Zoom = ZOOM
' Imposta il centro della mappa visibile all'apertura iniziale:
   .Map.Center = mp
   pt = New Point(.Map.MapPointToPixelRel(mp).X, .Map.MapPointToPixelRel(mp).Y)
 End With

 doc = New PdfDocument("/percorso/del/file/PDF")

' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":
 pn = MapView1.Children[0]

' Attribuisce il Controllo grafico "DocumentView" all'Oggetto "Figlio" (una "DrawingArea") del predetto "Panel", per impedire che altrimenti si espanda alla dimensione della "MapView":
 With DocumentView1 = New DocumentView(pn.Children[0]) As "DocumentView1"
   .X = pt.X
   .Y = pt.Y
   .W = 400
   .H = 100
   .Column = 1
   .Count = doc.Count
 End With

End


Public Sub DocumentView1_Draw(Page As Integer, Width As Integer, Height As Integer)

 Paint.DrawImage(doc[Page].Render(0, 0, Width * doc.Resolution, Height * doc.Resolution, 0, doc.Resolution), 0, 0, Paint.Width, Paint.Height)

End


' Questo Evento garantisce che, sia all'apertura iniziale della mappa, sia in caso di spostamento la Mappa con il mouse, la  "DocumentView" si mostri solo e sempre alle sue coordinate geografiche prestabilite.
' Infatti, se l'istruzione viene posta invece all'interno di un qualsiasi Evento del "Form", l'Oggetto "DocumentView" non acquisirà le predette coordinate.
Public Sub MapView1_Draw()

 With MapView1.Map
   DocumentView1.Move(.MapPointToPixelRel(mp).X, .MapPointToPixelRel(mp).Y)
 End With 

End


Public Sub MapView1_MouseDown()

 Dim mpo As MapPoint = MapView1.Map.PixelToMapPointRel(Point(Mouse.X, Mouse.Y))

' Mostra sul bordo superiore della "MapView" le coordinate geografiche correnti del puntatore del Mouse:
 Me.Title = Format(mpo.Lat, "#.000000") & "    " & Format(mpo.Lon, "#.000000")

End


Public Sub DocumentView1_MouseDown() ' Cliccando sulla "DocumentView", questa non è più visibile

 DocumentView1.Hide

End


Public Sub DocumentView1_MouseUp() ' Rilasciando il tasto del mouse, la "DocumentView" torna visibile

 DocumentView1.Show

End


Note

[1] Vedere anche la seguente pagina: Mostrare sulla MapView disegni, immagini e Controlli senza l'uso del Metodo Map.AddShape()

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Inserire_un_Oggetto_grafico_su_una_MapView&oldid=39988"