Da Gambas-it.org - Wikipedia.
|
|
| (35 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Mostreremo di seguito un semplice codice esemplificativo, nel quale si farà uso di una ''DrawingArea'' anziché ddell'oggetto ''MapView'' per mostrare la mappa di "''openstreetmap''".
| + | #REDIRECT [[Utilizzare_una_DrawingArea_o_una_ImageView_con_gb.map_anziché_una_MapView]] |
| − | | |
| − | Bisognerà porre sul ''Form'' una ''DrawingArea'', uno ''Slider'' ed un ''ValueBox'' per lo zoom. Si dovrà, inoltre, attivare il componente ''gb.map''.
| |
| − | Private hMap As New Map
| |
| − | Private x As Short
| |
| − | Private y As Short
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub _New()
| |
| − |
| |
| − | With hMap.AddTile("OpenStreet", "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png")
| |
| − | .Copyright = "OpenStreetMap contributors"
| |
| − | End With
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub Form_Open()
| |
| − |
| |
| − | With Me
| |
| − | .W = 700
| |
| − | .H = 650
| |
| − | .Center
| |
| − | End With
| |
| − |
| |
| − | With ValueBox1
| |
| − | .X = Me.W - 64
| |
| − | .Y = 30
| |
| − | End With
| |
| − |
| |
| − | With Slider1
| |
| − | .X = Me.W - 60
| |
| − | .Y = ValueBox1.Y + ValueBox1.H + 10
| |
| − | .Value = 3
| |
| − | .MaxValue = 18
| |
| − | .MinValue = 1
| |
| − | End With
| |
| − |
| |
| − | hMap.Zoom = Slider1.Value
| |
| − |
| |
| − | With DrawingArea1
| |
| − | .W = 600
| |
| − | .H = 600
| |
| − | End With
| |
| − |
| |
| − | With hMap
| |
| − | .Center.Lat = 41
| |
| − | .Center.Lon = 13
| |
| − | End With
| |
| − |
| |
| − | DrawingArea1.Refresh()
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub DrawingArea1_Draw()
| |
| − |
| |
| − | With hMap
| |
| − | .Width = Draw.Width
| |
| − | .Height = Draw.Height
| |
| − | .Draw()
| |
| − | End With
| |
| − |
| |
| − | DrawingArea1.Refresh()
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub Slider1_Change()
| |
| − |
| |
| − | hMap.Zoom = Slider1.Value
| |
| − | ValueBox1.Value = Slider1.Value
| |
| − | hMap.Refresh
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub DrawingArea1_MouseMove()
| |
| − |
| |
| − | With hMap
| |
| − | .Center.Lat = .Center.Lat - ((y - Mouse.Y) / (10 ^ Round(Slider1.Value / 3)))
| |
| − | .Center.Lon = .Center.Lon + ((x - Mouse.X) / (10 ^ Round(Slider1.Value / 3)))
| |
| − | End With
| |
| − |
| |
| − | x = Mouse.X
| |
| − | y = Mouse.Y
| |
| − |
| |
| − | DrawingArea1.Refresh()
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub DrawingArea1_MouseDown()
| |
| − |
| |
| − | x = Mouse.X
| |
| − | y = Mouse.Y
| |
| − |
| |
| − | '''End'''
| |
Versione attuale delle 22:33, 25 apr 2021
