Inserire del testo su una MapView - Cronologia

Vuott il 06:55, 27 lug 2025

2025-07-27T06:55:27Z

← Versione meno recente		Versione delle 00:55, 27 lug 2025
Riga 14:		Riga 14:
	.W = Me.W		.W = Me.W
	.H = Me.H		.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": "~~996~~"]).SubDomains = ["0", "1", "2"]		.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "999"]).SubDomains = ["0", "1", "2"]
	.Map.Zoom = 16		.Map.Zoom = 16
	mp.Lat = 41.8902142		mp.Lat = 41.8902142
Riga 68:		Riga 68:
	With MapView1		With MapView1
	<FONT Color=gray>' ''Passa l'oggetto "Image" al 3° argomento del Metodo ".AddPoint( )" e mostra sulla mappa l'immagine contenente il testo:''</font>		<FONT Color=gray>' ''Passa l'oggetto "Image" al 3° argomento del Metodo ".AddPoint( )" e mostra sulla mappa l'immagine contenente il testo:''</font>
	.Map.AddShape("immagine").<FONT Color=~~#B222222~~>AddPoint</font>("immagine", mp, Color.Default, <FONT Color=~~#B222222~~><B>im</b></font>)		.Map.AddShape("immagine").<FONT Color=red>AddPoint</font>("immagine", mp, Color.Default, <FONT Color=red><B>im</b></font>)
	.Refresh()		.Refresh()
	End With		End With
Riga 149:		Riga 149:
	.Brush = .Color(Color.Red)		.Brush = .Color(Color.Red)
	For i = 0 To mmpp.Max		For i = 0 To mmpp.Max
	<FONT Color=~~#B22222~~><B>.DrawRichText</b></font>(rt, MapView1.Map.MapPointToPixelRel(mmpp[i]).X, MapView1.Map.MapPointToPixelRel(mmpp[i]).Y, .Font.TextWidth(s), .Font.TextHeight(s), Align.Right)		<FONT Color=red><B>.DrawRichText</b></font>(rt, MapView1.Map.MapPointToPixelRel(mmpp[i]).X, MapView1.Map.MapPointToPixelRel(mmpp[i]).Y, .Font.TextWidth(s), .Font.TextHeight(s), Align.Right)
	Next		Next
	.End		.End
Riga 159:		Riga 159:

	=Note=		=Note=
	[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~996~~"]		[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "999"]
	<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]		<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]

Vuott il 22:53, 29 mar 2025

2025-03-29T22:53:07Z

← Versione meno recente		Versione delle 16:53, 29 mar 2025
Riga 14:		Riga 14:
	.W = Me.W		.W = Me.W
	.H = Me.H		.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": "~~991~~"]).SubDomains = ["0", "1", "2"]		.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "996"]).SubDomains = ["0", "1", "2"]
	.Map.Zoom = 16		.Map.Zoom = 16
	mp.Lat = 41.8902142		mp.Lat = 41.8902142
Riga 159:		Riga 159:

	=Note=		=Note=
	[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~991~~"]		[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "996"]
	<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]		<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]

Vuott il 17:43, 19 nov 2024

2024-11-19T17:43:23Z

← Versione meno recente		Versione delle 11:43, 19 nov 2024
Riga 14:		Riga 14:
	.W = Me.W		.W = Me.W
	.H = Me.H		.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": "~~988~~"]).SubDomains = ["0", "1", "2"]		.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "991"]).SubDomains = ["0", "1", "2"]
	.Map.Zoom = 16		.Map.Zoom = 16
	mp.Lat = 41.8902142		mp.Lat = 41.8902142
Riga 159:		Riga 159:

	=Note=		=Note=
	[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~988~~"]		[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "991"]
	<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]		<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]

Vuott il 22:10, 2 ott 2024

2024-10-02T22:10:53Z

← Versione meno recente		Versione delle 16:10, 2 ott 2024
Riga 14:		Riga 14:
	.W = Me.W		.W = Me.W
	.H = Me.H		.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": "~~979~~"]).SubDomains = ["0", "1", "2"]		.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "988"]).SubDomains = ["0", "1", "2"]
	.Map.Zoom = 16		.Map.Zoom = 16
	mp.Lat = 41.8902142		mp.Lat = 41.8902142
Riga 159:		Riga 159:

	=Note=		=Note=
	[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~979~~"]		[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "988"]
	<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]		<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]

Vuott il 10:44, 5 giu 2024

2024-06-05T10:44:00Z

← Versione meno recente		Versione delle 04:44, 5 giu 2024
Riga 118:		Riga 118:
	End		End


	Public Sub MapView1_Draw()		Public Sub MapView1_Draw()

Vuott il 00:30, 3 mag 2024

2024-05-03T00:30:39Z

← Versione meno recente		Versione delle 18:30, 2 mag 2024
Riga 14:		Riga 14:
	.W = Me.W		.W = Me.W
	.H = Me.H		.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": "~~967~~"]).SubDomains = ["0", "1", "2"]		.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "979"]).SubDomains = ["0", "1", "2"]
	.Map.Zoom = 16		.Map.Zoom = 16
	mp.Lat = 41.8902142		mp.Lat = 41.8902142
Riga 159:		Riga 159:

	=Note=		=Note=
	[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~967~~"]		[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "979"]
	<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]		<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]

Vuott il 11:13, 18 gen 2024

2024-01-18T11:13:45Z

← Versione meno recente		Versione delle 05:13, 18 gen 2024
Riga 14:		Riga 14:
	.W = Me.W		.W = Me.W
	.H = Me.H		.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": "~~958~~"]).SubDomains = ["0", "1", "2"]		.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "967"]).SubDomains = ["0", "1", "2"]
	.Map.Zoom = 16		.Map.Zoom = 16
	mp.Lat = 41.8902142		mp.Lat = 41.8902142
Riga 159:		Riga 159:

	=Note=		=Note=
	[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "~~949~~"]		[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "967"]
	<BR>Al riguardo vedere: [[~~Conoscere_la_versione_più_recente_di_Google_Maps_satellite\|~~Conoscere la versione più recente di Google Maps satellite]]		<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]

Vuott il 15:20, 24 set 2023

2023-09-24T15:20:57Z

← Versione meno recente		Versione delle 09:20, 24 set 2023
Riga 7:		Riga 7:


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

	With MapView1		With MapView1
Riga 14:		Riga 14:
	.W = Me.W		.W = Me.W
	.H = Me.H		.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.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "958"]).SubDomains = ["0", "1", "2"]
	.Map.Zoom = 16		.Map.Zoom = 16
	mp.Lat = 41.8902142		mp.Lat = 41.8902142
Riga 21:		Riga 21:
	End With		End With

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

	~~'''~~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>
Riga 38:		Riga 39:
	mp = MapView1.Map.PixelToMapPointRel(pt)		mp = MapView1.Map.PixelToMapPointRel(pt)

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


	~~'''~~Public~~'''~~ Sub MapView1_MouseUp()		Public Sub MapView1_MouseUp()

	If Not Mouse.Right Then Return		If Not Mouse.Right Then Return
Riga 70:		Riga 72:
	End With		End With

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


Riga 83:		Riga 85:


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

	With Me		With Me
Riga 100:		Riga 102:
	pn = MapView1.Children[0]		pn = MapView1.Children[0]

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


	~~'''~~Public~~'''~~ Sub MapView1_MouseUp()		Public Sub MapView1_MouseUp()

	Dim pt As New Point(Mouse.X, Mouse.Y)		Dim pt As New Point(Mouse.X, Mouse.Y)
Riga 113:		Riga 116:
	MapView1.Refresh		MapView1.Refresh

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

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

	Dim i As Integer		Dim i As Integer
Riga 130:		Riga 134:
	End With		End With

	~~'''~~End~~'''~~		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:		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()		Public Sub MapView1_Draw()

Vuott il 16:12, 3 giu 2023

2023-06-03T16:12:11Z

← Versione meno recente		Versione delle 10:12, 3 giu 2023
Riga 65:		Riga 65:

	With MapView1		With MapView1
	<FONT Color=gray>' ''Passa l'oggetto "Image" al 3° argomento del Metodo ".AddPoint( )":''</font>		<FONT Color=gray>' ''Passa l'oggetto "Image" al 3° argomento del Metodo ".AddPoint( )" e mostra sulla mappa l'immagine contenente il testo:''</font>
	.Map.AddShape("immagine").<FONT Color=#B222222>AddPoint</font>("immagine", mp, Color.Default, <FONT Color=#B222222><B>im</b></font>)		.Map.AddShape("immagine").<FONT Color=#B222222>AddPoint</font>("immagine", mp, Color.Default, <FONT Color=#B222222><B>im</b></font>)
	.Refresh()		.Refresh()
	~~.Map.Refresh()~~
	End With		End With

Vuott il 16:08, 3 giu 2023

2023-06-03T16:08:56Z

← Versione meno recente		Versione delle 10:08, 3 giu 2023
Riga 3:		Riga 3:


	Vediamo un semplice esempio: <SUP>[[[#Note\|~~Nota~~ 1]]]</sup>		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