Curvare il testo in una DrawingArea - Cronologia

Vuott il 14:02, 8 ago 2025

2025-08-08T14:02:13Z

← Versione meno recente		Versione delle 08:02, 8 ago 2025
Riga 44:		Riga 44:
	.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)		.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)
	Next		Next
			End With
	~~.End~~
	End With

	End		End
Riga 71:		Riga 69:
	.Rotate(Rad(346.8))		.Rotate(Rad(346.8))
	.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)		.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)
	Next		Next

	~~.End~~
	End With		End With

Riga 99:		Riga 95:
	.Rotate(Rad(348.8))		.Rotate(Rad(348.8))
	.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)		.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)
	Next		Next

	~~.End~~
	End With		End With

Riga 145:		Riga 139:
	.DrawText(s, 0, 0, .Font.TextWidth(s), .Font.TextHeight(s), Align.Center)		.DrawText(s, 0, 0, .Font.TextWidth(s), .Font.TextHeight(s), Align.Center)
	Next		Next

	~~.End~~
	End With		End With

Vuott il 14:45, 4 ago 2025

2025-08-04T14:45:02Z

← Versione meno recente		Versione delle 08:45, 4 ago 2025
Riga 111:		Riga 111:

	With Me		With Me
	.~~Center~~		.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)
	~~.W =~~ Screen.AvailableWidth
	~~.H =~~ Screen.AvailableHeight
	.Arrangement = Arrange.Fill		.Arrangement = Arrange.Fill
	~~End With~~

	~~With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"~~
	~~.X = 0~~
	~~.Y = 0~~
	End With		End With

Vuott il 16:12, 2 ago 2025

2025-08-02T16:12:49Z

@@ Riga 155: / Riga 155: @@
      .End
    End With
   End

Vuott il 17:36, 27 giu 2024

2024-06-27T17:36:17Z

← Versione meno recente		Versione delle 11:36, 27 giu 2024
Riga 3:		Riga 3:

	Nell'esempio, che segue, si scriveranno alcuni caratteri lungo il semicerchio superiore della circonferenza:		Nell'esempio, che segue, si scriveranno alcuni caratteri lungo il semicerchio superiore della circonferenza:
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim DrawingArea1 As DrawingArea		Dim DrawingArea1 As DrawingArea
Riga 19:		Riga 19:
	End With		End With

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

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

	Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>		Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>
Riga 47:		Riga 48:
	End With		End With

	~~'''~~End~~'''~~		End
	oppure ravvicinando i caratteri:		oppure ravvicinando i caratteri:
	~~'''~~Public~~'''~~ Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

	Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>		Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>
Riga 75:		Riga 76:
	End With		End With

	~~'''~~End~~'''~~		End
	e ancora di più:		e ancora di più:
	~~'''~~Public~~'''~~ Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

	Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>		Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>
Riga 103:		Riga 104:
	End With		End With

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

	In quest'altro esempio, nel quale si consentirà di disegnare anche i caratteri speciali (come le lettere accentate):		In quest'altro esempio, nel quale si consentirà di disegnare anche i caratteri speciali (come le lettere accentate):
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim DrawingArea1 As DrawingArea		Dim DrawingArea1 As DrawingArea
Riga 121:		Riga 121:
	.Y = 0		.Y = 0
	End With		End With

	~~'''End'''~~

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


			Public Sub DrawingArea1_Draw()

	Dim b As Byte		Dim b As Byte
Riga 130:		Riga 131:
	<FONT Color=gray>' ''L'uso di questo carattere (linea verticale) può essere utile per calibrare l'asse degli altri tipi di carattere:''</font>		<FONT Color=gray>' ''L'uso di questo carattere (linea verticale) può essere utile per calibrare l'asse degli altri tipi di carattere:''</font>
	Dim testo As String = String(36, String.Chr(&239F))		Dim testo As String = String(36, String.Chr(&239F))

	With Paint		With Paint
	<FONT Color=gray>' ''Imposta la posizione del primo carattere del testo da disegnare ruotato:''</font>		<FONT Color=gray>' ''Imposta la posizione del primo carattere del testo da disegnare ruotato:''</font>
Riga 154:		Riga 155:
	.End		.End
	End With		End With

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



	=Note=		=Note=
	[1] Vedere anche questa pagina: [[~~Curvare_la_linea_di_testo_in_un_oggetto_Image\|~~Curvare la linea di testo in un oggetto Image]]		[1] Vedere anche questa pagina: [[Curvare la linea di testo in un oggetto Image]]

Vuott il 23:25, 9 dic 2021

2021-12-09T23:25:01Z

← Versione meno recente		Versione delle 17:25, 9 dic 2021
Riga 95:		Riga 95:

	For b = 1 To car.Max		For b = 1 To car.Max
	.Translate(11.5, 0.5)		.Translate(11.5, 0.6)
	.Rotate(Rad(348.8))		.Rotate(Rad(348.8))
	.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)		.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)

Vuott il 23:07, 9 dic 2021

2021-12-09T23:07:34Z

← Versione meno recente		Versione delle 17:07, 9 dic 2021
Riga 103:		Riga 103:
	End With		End With

	'''End''		'''End'''

	In quest'altro esempio, nel quale si consentirà di disegnare anche i caratteri speciali (come le lettere accentate):		In quest'altro esempio, nel quale si consentirà di disegnare anche i caratteri speciali (come le lettere accentate):

Vuott il 22:31, 9 dic 2021

2021-12-09T22:31:16Z

← Versione meno recente		Versione delle 16:31, 9 dic 2021
Riga 49:		Riga 49:
	'''End'''		'''End'''
	oppure ravvicinando i caratteri:		oppure ravvicinando i caratteri:
	'''Public''' Sub DrawingArea1_Draw()		'''Public''' Sub DrawingArea1_Draw()

	Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>		Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>
Riga 67:		Riga 67:

	For b = 1 To car.Max		For b = 1 To car.Max
	.Translate(14, 1)		.Translate(14, 1)
	.Rotate(Rad(346.8))		.Rotate(Rad(346.8))
	.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)		.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)
	Next		Next

	.End		.End
	End With		End With

	'''End'''		'''End'''
			e ancora di più:
			'''Public''' Sub DrawingArea1_Draw()

			Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>
			Dim b As Byte

			With Paint
			.Arc(300, 300, 50, Rad(0), 360, False)
			.Stroke
			.DrawRect(250, 250, 50, 50, Color.Red, 1.0)
			.DrawRect(300, 250, 50, 50, Color.Red, 1.0)
			.DrawRect(250, 300, 50, 50, Color.Red, 1.0)
			.DrawRect(300, 300, 50, 50, Color.Red, 1.0)

			.Translate(240, 304)
			.Rotate(Rad(90))
			.DrawText(Chr(car[0]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)

			For b = 1 To car.Max
			.Translate(11.5, 0.5)
			.Rotate(Rad(348.8))
			.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)
			Next

			.End
			End With

			'''End''

	In quest'altro esempio, nel quale si consentirà di disegnare anche i caratteri speciali (come le lettere accentate):		In quest'altro esempio, nel quale si consentirà di disegnare anche i caratteri speciali (come le lettere accentate):

Vuott il 22:04, 9 dic 2021

2021-12-09T22:04:37Z

@@ Riga 41: / Riga 41: @@
       .Translate(44, 14)
       .Rotate(Rad(315))
       .DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)
      Next
@@ Riga 49: / Riga 77: @@
   '''End'''
-Altro esempio, nel quale si consentirà di disegnare anche i caratteri speciali come le lettere accentate:
+In quest'altro esempio, nel quale si consentirà di disegnare anche i caratteri speciali (come le lettere accentate):
   '''Public''' Sub Form_Open()

Vuott il 21:36, 9 dic 2021

2021-12-09T21:36:30Z

← Versione meno recente		Versione delle 15:36, 9 dic 2021
Riga 22:		Riga 22:

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

			Dim car As Byte[] = [65, 66, 67, 68, 69, 70, 71, 72] <FONT Color=gray>' ''Imposta i caratteri da disegnare:''</font>
			Dim b As Byte

	With Paint		With Paint
Riga 33:		Riga 36:
	.Translate(240, 304)		.Translate(240, 304)
	.Rotate(Rad(90))		.Rotate(Rad(90))
	~~.Font.Bold = True~~		.DrawText(Chr(car[0]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)
	.DrawText(~~"A"~~, 0, 0, ~~5, 5, Align.Left)~~
			For b = 1 To car.Max
	.~~Font.Bold = False~~		.Translate(44, 14)
	~~.Translate~~(~~44, 14)~~		.Rotate(Rad(315))
	~~.Rotate~~(~~Rad(315~~))		.DrawText(Chr(car[b]), 0, 0, .TextExtents(Chr(car[b])).W, .TextExtents(Chr(car[b])).H, Align.Normal)
	.~~DrawText("B"~~, ~~0, 0, 5, 5, Align.Left)~~		Next

	.~~Translate~~(~~44, 14)~~
	~~.Rotate~~(~~Rad(315~~))
	.~~DrawText("C", 0, 0, 5, 5~~, Align.~~Left~~)

	~~.Translate(44, 14)~~
	.~~Rotate(Rad(315))~~
	~~.DrawText("D", 0, 0, 5, 5, Align.Left)~~

	.Translate(44, 14)
	.Rotate(Rad(315))
	.DrawText(~~"E", 0, 0, 5, 5, Align.Left)~~

	~~.Translate(44, 14)~~
	~~.Rotate(Rad~~(~~315)~~)
	~~.DrawText("F"~~, 0, 0, ~~5, 5, Align.Left)~~

	~~.Translate(44, 14)~~
	.~~Rotate~~(~~Rad~~(~~315)~~)
	~~.DrawText("G", 0, 0, 5, 5, Align.Left~~)

	.~~Translate(44~~, ~~14)~~
	.~~Rotate~~(~~Rad~~(~~315~~))
	.~~DrawText("~~H~~", 0, 0, 5, 5~~, Align.~~Left~~)

	.End		.End

Vuott il 16:54, 9 dic 2021

2021-12-09T16:54:22Z

← Versione meno recente		Versione delle 10:54, 9 dic 2021
Riga 101:		Riga 101:
	.Rotate(Rad(160))		.Rotate(Rad(160))
	.Font.Size = 18		.Font.Size = 18
	~~.Font.Bold = True~~
	.Brush = .Color(Color.Red)		.Brush = .Color(Color.Red)
	s = String.Mid(testo, 1, 1)		s = String.Mid(testo, 1, 1)
Riga 108:		Riga 107:
	<FONT Color=gray>' ''Imposta la posizione dei restanti caratteri del testo da disegnare ruotato:''</font>		<FONT Color=gray>' ''Imposta la posizione dei restanti caratteri del testo da disegnare ruotato:''</font>
	For b = 1 To <FONT Color=#B22222>24</font>		For b = 1 To <FONT Color=#B22222>24</font>
	~~.Font.Bold = False~~
	<FONT Color=gray>' ''Aumentando un argomento, bisognerà ridurre l'altro empiricamente, e viceversa, per orientare l'asse verticale dei caratteri verso il centro del cerchio formato dal testo ruotato:''</font>		<FONT Color=gray>' ''Aumentando un argomento, bisognerà ridurre l'altro empiricamente, e viceversa, per orientare l'asse verticale dei caratteri verso il centro del cerchio formato dal testo ruotato:''</font>
	.Translate(20.0, 1.5)		.Translate(20.0, 1.5)
Riga 114:		Riga 112:
	.Rotate(Rad(350))		.Rotate(Rad(350))
	.Font.Size = 18		.Font.Size = 18
	~~.Font.Bold = True~~
	.Brush = .Color(Color.Red)		.Brush = .Color(Color.Red)
	s = String.Mid(testo, b, 1)		s = String.Mid(testo, b, 1)