Ruotare la mappa - Cronologia

Vuott il 06:59, 27 lug 2025

2025-07-27T06:59:59Z

← Versione meno recente		Versione delle 00:59, 27 lug 2025
Riga 98:		Riga 98:

	With mappa = New Map		With mappa = New Map
	.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "~~996~~"]).SubDomains = ["0", "1", "2"]		.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "999"]).SubDomains = ["0", "1", "2"]
	.Center = mp		.Center = mp
	.Zoom = 15		.Zoom = 15
Riga 214:		Riga 214:
	[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]		[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]

	[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~996~~"].		[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "999"].

Vuott il 22:57, 29 mar 2025

2025-03-29T22:57:14Z

← Versione meno recente		Versione delle 16:57, 29 mar 2025
Riga 98:		Riga 98:

	With mappa = New Map		With mappa = New Map
	.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "~~991~~"]).SubDomains = ["0", "1", "2"]		.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "996"]).SubDomains = ["0", "1", "2"]
	.Center = mp		.Center = mp
	.Zoom = 15		.Zoom = 15
Riga 214:		Riga 214:
	[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]		[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]

	[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~991~~"].		[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "996"].

Vuott il 17:47, 19 nov 2024

2024-11-19T17:47:53Z

← Versione meno recente		Versione delle 11:47, 19 nov 2024
Riga 98:		Riga 98:

	With mappa = New Map		With mappa = New Map
	.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "~~988~~"]).SubDomains = ["0", "1", "2"]		.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "991"]).SubDomains = ["0", "1", "2"]
	.Center = mp		.Center = mp
	.Zoom = 15		.Zoom = 15
Riga 214:		Riga 214:
	[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]		[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]

	[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~988~~"].		[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "991"].

Vuott il 22:15, 2 ott 2024

2024-10-02T22:15:06Z

← Versione meno recente		Versione delle 16:15, 2 ott 2024
Riga 98:		Riga 98:

	With mappa = New Map		With mappa = New Map
	.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "~~979~~"]).SubDomains = ["0", "1", "2"]		.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "988"]).SubDomains = ["0", "1", "2"]
	.Center = mp		.Center = mp
	.Zoom = 15		.Zoom = 15
Riga 214:		Riga 214:
	[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]		[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]

	[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~979~~"].		[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "988"].

Vuott il 12:00, 6 ago 2024

2024-08-06T12:00:29Z

← Versione meno recente		Versione delle 06:00, 6 ago 2024
Riga 164:		Riga 164:


	Public Sub DrawingArea1_MouseDown()		<FONT Color=gray><S>Public Sub DrawingArea1_MouseDown()

	pt = Point(Mouse.X, Mouse.Y)		pt = Point(Mouse.X, Mouse.Y)
Riga 176:		Riga 176:
	cpx = Geo.MapPointToPixel(mappa.Center, mappa.Zoom)		cpx = Geo.MapPointToPixel(mappa.Center, mappa.Zoom)

	End		End</s></font>

Vuott il 13:35, 2 ago 2024

2024-08-02T13:35:09Z

← Versione meno recente		Versione delle 07:35, 2 ago 2024
Riga 83:		Riga 83:

	=Ruotare la mappa usando una DrawingArea=		=Ruotare la mappa usando una DrawingArea=
	In questo caso useremo soltanto una ''DrawingArea'' <SUP>[[[#Note\|nota 1]]]</sup>, per mostrare la mappa, ~~e agiremo all'interno~~ del suo Evento "_Draw()" per ruotarla.		In questo caso useremo soltanto una ''DrawingArea'' <SUP>[[[#Note\|nota 1]]]</sup>, per mostrare la mappa, servendoci del suo Evento "_Draw()" per ruotarla.
	<BR>Ovviamente è necessario attivare anche il Componente ''gb.map''. <SUP>[[[#Note\|nota 2]]]</sup>		<BR>Ovviamente è necessario attivare anche il Componente ''gb.map''. <SUP>[[[#Note\|nota 2]]]</sup>
			<BR>Per far apparire la mappa e farla ruotare si dovrà cliccare sulla superficie del programma.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private mappa As Map		Private mappa As Map

Vuott il 13:31, 2 ago 2024

2024-08-02T13:31:14Z

← Versione meno recente		Versione delle 07:31, 2 ago 2024
Riga 10:		Riga 10:

	===Esempio pratico di rotazione della mappa usando la MapView===		===Esempio pratico di rotazione della mappa usando la MapView===
	Mostriamo un esempio pratico, nel quale cliccando con il tasto sinistro o con quello centrale del mouse si avvierà la rotazione continua della mappa sino a quando non si cliccherà con il tasto destro del mouse.		Mostriamo un esempio pratico, nel quale, cliccando con il tasto sinistro o con quello centrale del mouse, si avvierà la rotazione continua della mappa sino a quando non si cliccherà con il tasto destro del mouse.
	<BR>Ovviamente è necessario attivare anche il Componente ''gb.map''.		<BR>Ovviamente è necessario attivare anche il Componente ''gb.map''.
	Private MapView1 As MapView		Private MapView1 As MapView
Riga 83:		Riga 83:

	=Ruotare la mappa usando una DrawingArea=		=Ruotare la mappa usando una DrawingArea=
	In questo caso useremo soltanto una ''DrawingArea'' <SUP>[[[#Note\|nota 1]]]</sup> per mostrare la mappa e agiremo all'interno del suo Evento "_Draw()" per ~~ruotare la mappa~~.		In questo caso useremo soltanto una ''DrawingArea'' <SUP>[[[#Note\|nota 1]]]</sup>, per mostrare la mappa, e agiremo all'interno del suo Evento "_Draw()" per ruotarla.
	<BR>Ovviamente è necessario attivare anche il Componente ''gb.map''. <SUP>[[[#Note\|nota 2]]]</sup>		<BR>Ovviamente è necessario attivare anche il Componente ''gb.map''. <SUP>[[[#Note\|nota 2]]]</sup>
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea

Vuott il 00:34, 3 mag 2024

2024-05-03T00:34:57Z

← Versione meno recente		Versione delle 18:34, 2 mag 2024
Riga 97:		Riga 97:

	With mappa = New Map		With mappa = New Map
	.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "~~967~~"]).SubDomains = ["0", "1", "2"]		.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "979"]).SubDomains = ["0", "1", "2"]
	.Center = mp		.Center = mp
	.Zoom = 15		.Zoom = 15
Riga 213:		Riga 213:
	[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]		[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]

	[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~967~~"].		[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "979"].

Vuott il 14:19, 18 gen 2024

2024-01-18T14:19:30Z

← Versione meno recente		Versione delle 08:19, 18 gen 2024
Riga 97:		Riga 97:

	With mappa = New Map		With mappa = New Map
	.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "~~958~~"]).SubDomains = ["0", "1", "2"]		.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "967"]).SubDomains = ["0", "1", "2"]
	.Center = mp		.Center = mp
	.Zoom = 15		.Zoom = 15
Riga 213:		Riga 213:
	[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]		[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]

	[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~958~~"].		[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "967"].

Vuott il 15:29, 24 set 2023

2023-09-24T15:29:27Z

← Versione meno recente		Versione delle 09:29, 24 set 2023
Riga 16:		Riga 16:
	Private c As Short		Private c As Short

	~~'''~~Public~~'''~~ Sub _new()		Public Sub _new()

	Dim mp As New MapPoint(41.89018, 12.49230)		Dim mp As New MapPoint(41.89018, 12.49230)
Riga 34:		Riga 34:
	End With		End With

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub Form_Open()
			Public Sub Form_Open()

	Dim pn As Panel		Dim pn As Panel
Riga 43:		Riga 44:
	DrawingArea1 = pn.Children[0]		DrawingArea1 = pn.Children[0]

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub MapView1_Draw()
			Public Sub MapView1_Draw()

	With Paint		With Paint
Riga 64:		Riga 66:
	End With		End With

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub MapView1_Mouseup()		Public Sub MapView1_Mouseup()

	While Not Mouse.Right And Object.IsValid(MapView1)		While Not Mouse.Right And Object.IsValid(MapView1)
Riga 76:		Riga 79:
	Wend		Wend

	~~'''~~End~~'''~~		End


Riga 91:		Riga 94:
	Private cpx As New Point		Private cpx As New Point

	~~'''~~Public~~'''~~ Sub _new()		Public Sub _new()

	With mappa = New Map		With mappa = New Map
	.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "~~949~~"]).SubDomains = ["0", "1", "2"]		.AddTile("GoogleMaps", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "958"]).SubDomains = ["0", "1", "2"]
	.Center = mp		.Center = mp
	.Zoom = 15		.Zoom = 15
Riga 110:		Riga 113:
	End With		End With

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Form_Arrange()		Public Sub Form_Arrange()

	Dim b As Byte		Dim b As Byte
Riga 123:		Riga 127:
	Until b == 40		Until b == 40

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub DrawingArea1_Mouseup()
			Public Sub DrawingArea1_Mouseup()

	While (Not Mouse.Right) And Object.IsValid(DrawingArea1)		While (Not Mouse.Right) And Object.IsValid(DrawingArea1)
Riga 135:		Riga 140:
	Wend		Wend

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub DrawingArea1_Draw()
			Public Sub DrawingArea1_Draw()

	With Paint		With Paint
Riga 154:		Riga 160:
	End With		End With

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub DrawingArea1_MouseDown()
			Public Sub DrawingArea1_MouseDown()

	pt = Point(Mouse.X, Mouse.Y)		pt = Point(Mouse.X, Mouse.Y)
Riga 168:		Riga 175:
	cpx = Geo.MapPointToPixel(mappa.Center, mappa.Zoom)		cpx = Geo.MapPointToPixel(mappa.Center, mappa.Zoom)

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub DrawingArea1_MouseMove()
			Public Sub DrawingArea1_MouseMove()

	Dim pix As New Point(cpx.X, cpx.Y)		Dim pix As New Point(cpx.X, cpx.Y)
Riga 180:		Riga 188:
	mappa.Center.Lat = Geo.PixelToMapPoint(pix, mappa.Zoom).Lat		mappa.Center.Lat = Geo.PixelToMapPoint(pix, mappa.Zoom).Lat
	mappa.Center.Lon = Geo.PixelToMapPoint(pix, mappa.Zoom).Lon		mappa.Center.Lon = Geo.PixelToMapPoint(pix, mappa.Zoom).Lon

	~~'''End'''~~

	~~'''~~Public~~'''~~ Sub DrawingArea1_MouseWheel()		End


			Public Sub DrawingArea1_MouseWheel()

	<FONT Color=gray>' ''Impedisce che si vada oltre il massimo livello di zoom della mappa:''</font>		<FONT Color=gray>' ''Impedisce che si vada oltre il massimo livello di zoom della mappa:''</font>
Riga 197:		Riga 206:
	Me.Text = "Zoom: " & CStr(mappa.Zoom)		Me.Text = "Zoom: " & CStr(mappa.Zoom)

	~~'''~~End~~'''~~		End


Riga 204:		Riga 213:
	[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]		[1] Vedere al riguardo la seguente pagina: [[Utilizzare una DrawingArea o una ImageView con gb.map anziché una MapView]]

	[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~949~~"].		[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "958"].