Ruotare specularmente una immagine ed un carattere - Cronologia

Vuott il 21:49, 3 lug 2024

2024-07-03T21:49:52Z

← Versione meno recente		Versione delle 15:49, 3 lug 2024
Riga 3:		Riga 3:

	Esempio di rotazione del carattere "d" in modo da farlo apparire "b" in un immagine:		Esempio di rotazione del carattere "d" in modo da farlo apparire "b" in un immagine:
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim im As Image		Dim im As Image
Riga 21:		Riga 21:
	<FONT color=gray>' ''viene effettuata la rotazione speculare dell'immagine.''		<FONT color=gray>' ''viene effettuata la rotazione speculare dell'immagine.''
	' ''La funzione mirror contiene due parametri booleani:''		' ''La funzione mirror contiene due parametri booleani:''
	' ''se viene posto a True il primo parametro, si avrà una rotazione speculare orizzontale''		' ''se viene posto a True il primo parametro, si avrà una rotazione speculare orizzontale sull'asse verticale dell'immagine. Se viene posto a True il secondo parametro, si avrà una rotazione speculare verticale sull'asse orizzontale dell'immagine.''
	~~' ''~~sull'asse verticale dell'immagine. Se viene posto a True il secondo parametro, si avrà''
	~~' ''~~una rotazione speculare verticale sull'asse orizzontale dell'immagine.''
	' ''E' possibile anche, ovviamente, porre a True entrambi i parametri:''</font>		' ''E' possibile anche, ovviamente, porre a True entrambi i parametri:''</font>
	im.Mirror(False, True)		im.Mirror(False, True)

	<FONT color=gray>' ''L'immagine viene ~~trasformata in una Picture, affinché venga~~ mostrata in una "PictureBox":''</font>		<FONT color=gray>' ''L'immagine viene mostrata in una "PictureBox":''</font>
	PictureBox1.~~Picture~~ = im~~.Picture~~		PictureBox1.Image = im

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

Vuott il 01:26, 8 ott 2022

2022-10-08T01:26:47Z

← Versione meno recente		Versione delle 19:26, 7 ott 2022
Riga 1:		Riga 1:
	Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale carattere in una immagine, e così procedendo alla rotazione di quest'ultima.		Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale carattere in una immagine, e così procedendo alla rotazione di quest'ultima.
	<BR>L'immagine potrà essere creata al momento ''ad hoc'' per contenere semplicemente il carattere.		<BR>L'immagine potrà essere creata al momento ''ad hoc'' per contenere semplicemente il carattere.


	Esempio di rotazione del carattere "d" in modo da farlo apparire "b" in un immagine:		Esempio di rotazione del carattere "d" in modo da farlo apparire "b" in un immagine:
Riga 10:		Riga 9:

	<FONT color=gray>' ''Viene creata un'immagine, ad esempio, con fondo trasparente:''</font>		<FONT color=gray>' ''Viene creata un'immagine, ad esempio, con fondo trasparente:''</font>
	im = New Image(15, 20, &FFFFFFFF)		im = New Image(15, 20, &FFFFFFFF)

	With Paint		With Paint
	.Begin(im)		.Begin(im)
	.Font.Size = 12		.Font.Size = 12
	<FONT color=gray>' ''Viene inserito il carattere "d" nell'immagine creata:''</font>		<FONT color=gray>' ''Viene inserito il carattere "d" nell'immagine creata:''</font>
	.DrawText("d", 2, 1, im.W, im.H)		.DrawText("d", 2, 1, im.W, im.H)
	.End		.End
	End With		End With

	<FONT color=gray>' ''viene effettuata la rotazione speculare dell'immagine.''		<FONT color=gray>' ''viene effettuata la rotazione speculare dell'immagine.''
Riga 26:		Riga 25:
	' ''una rotazione speculare verticale sull'asse orizzontale dell'immagine.''		' ''una rotazione speculare verticale sull'asse orizzontale dell'immagine.''
	' ''E' possibile anche, ovviamente, porre a True entrambi i parametri:''</font>		' ''E' possibile anche, ovviamente, porre a True entrambi i parametri:''</font>
	im.Mirror(False, True)		im.Mirror(False, True)

	<FONT color=gray>' ''L'immagine viene trasformata in una Picture, affinché venga mostrata in una "PictureBox":''</font>		<FONT color=gray>' ''L'immagine viene trasformata in una Picture, affinché venga mostrata in una "PictureBox":''</font>
	PictureBox1.Picture = im.Picture		PictureBox1.Picture = im.Picture

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

Vuott il 12:02, 9 dic 2014

2014-12-09T12:02:36Z

← Versione meno recente		Versione delle 06:02, 9 dic 2014
Riga 1:		Riga 1:
	Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale ~~caratere~~ in una immagine, e così procedendo alla rotazione di quest'ultima.		Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale carattere in una immagine, e così procedendo alla rotazione di quest'ultima.
			<BR>L'immagine potrà essere creata al momento ''ad hoc'' per contenere semplicemente il carattere.


	Esempio:		Esempio di rotazione del carattere "d" in modo da farlo apparire "b" in un immagine:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

Riga 8:		Riga 9:
	Dim pc As New Picture		Dim pc As New Picture

	<FONT color=gray>' ''~~viene caricata~~ un'immagine:''</font>		<FONT color=gray>' ''Viene creata un'immagine, ad esempio, con fondo trasparente:''</font>
	im = Image~~.Load~~(~~"''/percorso/dell'immagine''"~~)		im = New Image(15, 20, &FFFFFFFF)

	With Paint		With Paint
	.Begin(im)		.Begin(im)
	.Font.Size = 26		.Font.Size = 12
			<FONT color=gray>' ''Viene inserito il carattere "d" nell'immagine creata:''</font>
	<FONT color=gray>' ''~~viene~~ inserito il carattere nell'immagine ~~caricata~~:''</font>		.DrawText("d", 2, 1, im.W, im.H)
	.DrawText(~~String~~.~~Chr(&1D160)~~)
	.End		.End
	End With		End With

Vuott il 16:54, 20 nov 2014

2014-11-20T16:54:50Z

← Versione meno recente		Versione delle 10:54, 20 nov 2014
Riga 5:		Riga 5:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	Dim a As ~~New~~ Image		Dim im As Image
	Dim b As New Picture		Dim pc As New Picture

	<FONT color=~~#006400~~>' ''viene caricata un'immagine:''</font>		<FONT color=gray>' ''viene caricata un'immagine:''</font>
	a = a.Load("immagine~~.xxx~~")		im = Image.Load("''/percorso/dell'immagine''")

	With Paint		With Paint
	.Begin(a)		.Begin(im)
	.Font.Size = 26		.Font.Size = 26

	<FONT color=~~#006400~~>' ''viene inserito il carattere nell'immagine caricata:''</font>		<FONT color=gray>' ''viene inserito il carattere nell'immagine caricata:''</font>
	.DrawText(String.Chr(&1D160))		.DrawText(String.Chr(&1D160))
	.End		.End
	End With		End With

	<FONT color=~~#006400~~>' ''viene effettuata la rotazione speculare dell'immagine.''		<FONT color=gray>' ''viene effettuata la rotazione speculare dell'immagine.''
	' ''La funzione mirror contiene due parametri booleani:''		' ''La funzione mirror contiene due parametri booleani:''
	' ''se viene posto a True il primo parametro, si avrà una rotazione speculare orizzontale''		' ''se viene posto a True il primo parametro, si avrà una rotazione speculare orizzontale''
Riga 26:		Riga 26:
	' ''una rotazione speculare verticale sull'asse orizzontale dell'immagine.''		' ''una rotazione speculare verticale sull'asse orizzontale dell'immagine.''
	' ''E' possibile anche, ovviamente, porre a True entrambi i parametri:''</font>		' ''E' possibile anche, ovviamente, porre a True entrambi i parametri:''</font>
	a.Mirror(False, True)		im.Mirror(False, True)

	<FONT color=~~#006400~~>' ''l'immagine viene trasformata in una Picture~~...''</font>~~		<FONT color=gray>' ''L'immagine viene trasformata in una Picture, affinché venga mostrata in una "PictureBox":''</font>
	~~b = a.Picture~~		PictureBox1.Picture = im.Picture

	~~<FONT color=#006400>' ''...~~affinché venga mostrata ~~all'interno di~~ una "PictureBox":''</font>
	PictureBox1.Picture = b

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

Vuott: Nuova pagina: Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale caratere in una immagine, e così procedendo alla rotazione di quest'ultima. Esempio: '''Publ...

2013-02-13T19:31:48Z

Nuova pagina: Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale caratere in una immagine, e così procedendo alla rotazione di quest'ultima. Esempio: '''Publ...

Nuova pagina

Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale caratere in una immagine, e così procedendo alla rotazione di quest'ultima.

Esempio:
'''Public''' Sub Button1_Click()

Dim a As New Image
Dim b As New Picture

' ''viene caricata un'immagine:''
a = a.Load("immagine.xxx")

With Paint
.Begin(a)
.Font.Size = 26

' ''viene inserito il carattere nell'immagine caricata:''
.DrawText(String.Chr(&1D160))
.End
End With

' ''viene effettuata la rotazione speculare dell'immagine.''
' ''La funzione mirror contiene due parametri booleani:''
' ''se viene posto a True il primo parametro, si avrà una rotazione speculare orizzontale''
' ''sull'asse verticale dell'immagine. Se viene posto a True il secondo parametro, si avrà''
' ''una rotazione speculare verticale sull'asse orizzontale dell'immagine.''
' ''E' possibile anche, ovviamente, porre a True entrambi i parametri:''
a.Mirror(False, True)

' ''l'immagine viene trasformata in una Picture...''
b = a.Picture

' ''...affinché venga mostrata all'interno di una "PictureBox":''
PictureBox1.Picture = b

'''End'''