Ruotare una immagine sul proprio asse centrale - Cronologia

Vuott il 20:33, 3 lug 2024

2024-07-03T20:33:54Z

← Versione meno recente		Versione delle 14:33, 3 lug 2024
Riga 4:		Riga 4:
	Innanzitutto si potrà utilizzare una "PictureBox" e il solo Metodo ".Rotate()" della Classe "Image".		Innanzitutto si potrà utilizzare una "PictureBox" e il solo Metodo ".Rotate()" della Classe "Image".
	<BR>Va sottolineato che <SPAN Style="text-decoration:underline">la "PictureBox" deve avere la Proprietà ".Alignment" impostata ad "Align.Center"</span>.		<BR>Va sottolineato che <SPAN Style="text-decoration:underline">la "PictureBox" deve avere la Proprietà ".Alignment" impostata ad "Align.Center"</span>.
	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim r As Short		Dim r As Short
Riga 10:		Riga 10:
	While True		While True
	With PictureBox1		With PictureBox1
	.Image = Image.Load("<FONT Color=~~gray~~>''/percorso/del/file/immagine''</font>")		.Image = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")
	.<FONT Color=#B22222>Alignment = Align.Center</font>		.<FONT Color=#B22222>Alignment = Align.Center</font>
	.W = .Image.W		.W = .Image.W
Riga 21:		Riga 21:
	Wend		Wend

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


Riga 29:		Riga 29:

	Mostriamo un semplice e pratico esempio:		Mostriamo un semplice e pratico esempio:
	~~'''~~Public~~'''~~ Sub Form_Activate()		Public Sub Form_Activate()

	Dim im As Image		Dim im As Image
Riga 36:		Riga 36:
	Dim s As Short		Dim s As Short

	im = Image.Load("<FONT Color=~~gray~~>''/percorso/del/file/immagine''</font>")		im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")

	With hs = New HSplit(Me)		With hs = New HSplit(Me)
Riga 68:		Riga 68:
	'''Loop'''</font>		'''Loop'''</font>

	~~'''~~End~~'''~~		End
	Per effettuare la rotazione al contrario la riga del ciclo "For" sarà impostata come segue:		Per effettuare la rotazione al contrario la riga del ciclo "For" sarà impostata come segue:
	For s = 0 To -360 Step -1		For s = 0 To -360 Step -1
Riga 86:		Riga 86:


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

	im = Image.Load("<FONT Color=~~gray~~>''/percorso/del/file/immagine''</font>")		im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")

	With Me		With Me
Riga 103:		Riga 103:
	End With		End With

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

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

	With Paint		With Paint
	<FONT Color=gray>' ''Imposta il fulcro/punto della rotazione - ad esempio -al centro dell'area di disegno:''</font>		<FONT Color=gray>' ''Imposta il fulcro/punto della rotazione - ad esempio -al centro dell'area di disegno:''</font>
	<FONT Color=~~#B22222~~>.Translate</font>(DrawingArea1.W / 2, DrawingArea1.H / 2)		<FONT Color=red>.Translate</font>(DrawingArea1.W / 2, DrawingArea1.H / 2)
	<FONT color=gray>' ''Ruota l'immagine:''</font>		<FONT color=gray>' ''Ruota l'immagine:''</font>
	<FONT Color=~~#B22222~~>.Rotate(Rad(ang))</font>		<FONT Color=red>.Rotate(Rad(ang))</font>
	<FONT color=gray>' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate dell'immagine mezza dimensione negativa di se stessa.''		<FONT color=gray>' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate dell'immagine mezza dimensione negativa di se stessa.''
	' ''Non si devono modificare i valori né i segni degli ultimi quattro argomenti qui riportati.''</font>		' ''Non si devono modificare i valori né i segni degli ultimi quattro argomenti qui riportati.''</font>
Riga 118:		Riga 119:
	End With		End With

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


	~~'''~~Public~~'''~~ Sub Form_KeyPress()		Public Sub Form_KeyPress()

	Select Case Key.Code		Select Case Key.Code
Riga 133:		Riga 135:
	DrawingArea1.Refresh		DrawingArea1.Refresh

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


	~~'''~~Public~~'''~~ Sub Form_Resize() <FONT color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegno non va perso''</font>		Public Sub Form_Resize() <FONT color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegno non va perso''</font>

	DrawingArea1.Refresh		DrawingArea1.Refresh

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



	~~----~~
	=Note=		=Note=
	[1] Vedere anche queste pagine:		[1] Vedere anche queste pagine:
	* [[Ruotare un'immagine sul proprio asse centrale in una DrawingArea]]		* [[Ruotare un'immagine sul proprio asse centrale in una DrawingArea]]
	* [[Ruotare qualsiasi elemento da disegnare in una DrawingArea]]		* [[Ruotare qualsiasi elemento da disegnare in una DrawingArea]]

Vuott il 22:34, 26 mag 2023

2023-05-26T22:34:58Z

← Versione meno recente		Versione delle 16:34, 26 mag 2023
Riga 74:		Riga 74:

	==Uso di una ''DrawingArea'' e dei Metodi ".Rotate()" e ".Translate()" della Classe "Paint"==		==Uso di una ''DrawingArea'' e dei Metodi ".Rotate()" e ".Translate()" della Classe "Paint"==
	Un'altra modalità prevede l'uso di una ''DrawingArea'' e dei Metodi ".Rotate()" e ".Translate()" della Classe "Paint". <SUP>[[[#Note\|<B>~~Nota~~ 1</b>]]]</sup>		Un'altra modalità prevede l'uso di una ''DrawingArea'' e dei Metodi ".Rotate()" e ".Translate()" della Classe "Paint". <SUP>[[[#Note\|<B>nota 1</b>]]]</sup>

	La rotazione dell'immagine viene esercitata dal metodo		La rotazione dell'immagine viene esercitata dal metodo
Riga 140:		Riga 140:

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



Riga 146:		Riga 145:
	=Note=		=Note=
	[1] Vedere anche queste pagine:		[1] Vedere anche queste pagine:
	* [[~~Ruotare_qualsiasi_elemento_da_disegnare_in_una_DrawingArea\|~~Ruotare ~~qualsiasi elemento da disegnare~~ in una DrawingArea]]		* [[Ruotare un'immagine sul proprio asse centrale in una DrawingArea]]
	* [[~~Ruotare_un_cerchio_disegnato_in_una_DrawingArea\|~~Ruotare ~~un cerchio disegnato~~ in una DrawingArea]]		* [[Ruotare qualsiasi elemento da disegnare in una DrawingArea]]

Vuott il 01:59, 29 gen 2022

2022-01-29T01:59:04Z

← Versione meno recente		Versione delle 19:59, 28 gen 2022
Riga 12:		Riga 12:
	.Image = Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>")		.Image = Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>")
	.<FONT Color=#B22222>Alignment = Align.Center</font>		.<FONT Color=#B22222>Alignment = Align.Center</font>
	.W = ~~PictureBox1~~.Image.W		.W = .Image.W
	.H = ~~PictureBox1~~.Image.H		.H = .Image.H
	.Image = .Image.<FONT Color=#B22222>Rotate(Rad(r))</font>		.Image = .Image.<FONT Color=#B22222>Rotate(Rad(r))</font>
	End With		End With

Vuott il 00:50, 28 nov 2021

2021-11-28T00:50:06Z

← Versione meno recente		Versione delle 18:50, 27 nov 2021
Riga 69:		Riga 69:

	'''End'''		'''End'''
	Per effettuare la rotazione al contrario la riga del ciclo "''For''" sarà impostata come segue:		Per effettuare la rotazione al contrario la riga del ciclo "For" sarà impostata come segue:
	For s = 0 To -360 Step -1		For s = 0 To -360 Step -1

Vuott il 00:47, 28 nov 2021

2021-11-28T00:47:06Z

← Versione meno recente		Versione delle 18:47, 27 nov 2021
Riga 36:		Riga 36:
	Dim s As Short		Dim s As Short

	im = Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>")		im = Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>")

	With hs = New HSplit(Me)		With hs = New HSplit(Me)
	.X = 20		.X = 20
	.Y = 20		.Y = 20
	.W = im.W		.W = im.W
	.H = im.H		.H = im.H
	End With		End With

	With pbx = New PictureBox(hs)		With pbx = New PictureBox(hs)
	.<FONT Color=#B22222>Alignment = Align.Center</font>		.<FONT Color=#B22222>Alignment = Align.Center</font>
	.Expand = True		.Expand = True
	.Image = im		.Image = im
	End With		End With

	Do		Do
	For s = 0 To 360		For s = 0 To 360
	pbx.Image = im.<FONT Color=#B22222>Rotate(Rad(s))</font>		pbx.Image = im.<FONT Color=#B22222>Rotate(Rad(s))</font>
	Wait 0.01		Wait 0.01
	Next		Next
	Loop		Loop

			<FONT Color=gray>' ''Oppure con due cicli annidati:''
			'''Do'''
			'''Repeat'''
			'''pbx.Image = im.Rotate(Rad(s))'''
			'''Wait 0.01'''
			'''Inc s''' ''oppure: Dec s''
			'''Until s == 360''' ''oppure: -360''
			'''s = 0'''
			'''Loop'''</font>

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

Vuott il 00:40, 28 nov 2021

2021-11-28T00:40:04Z

← Versione meno recente		Versione delle 18:40, 27 nov 2021
Riga 16:		Riga 16:
	.Image = .Image.<FONT Color=#B22222>Rotate(Rad(r))</font>		.Image = .Image.<FONT Color=#B22222>Rotate(Rad(r))</font>
	End With		End With
	Wait 0.~~001~~		Wait 0.01
	Inc r		Inc r
			If r == 360 Then r = 0
	Wend		Wend

Riga 53:		Riga 54:
	For s = 0 To 360		For s = 0 To 360
	pbx.Image = im.<FONT Color=#B22222>Rotate(Rad(s))</font>		pbx.Image = im.<FONT Color=#B22222>Rotate(Rad(s))</font>
	Wait 0.~~004~~		Wait 0.01
	Next		Next
	Loop		Loop

Vuott il 15:09, 17 nov 2021

2021-11-17T15:09:22Z

← Versione meno recente		Versione delle 09:09, 17 nov 2021
Riga 124:		Riga 124:
	'''End'''		'''End'''

	'''Public''' Sub Form_Resize() <FONT color=gray>' ''Con questo evento se cambia la dimensione del Form, il ~~disegna~~ non va perso''</font>		'''Public''' Sub Form_Resize() <FONT color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegno non va perso''</font>

	DrawingArea1.Refresh		DrawingArea1.Refresh

Vuott il 15:06, 10 nov 2021

2021-11-10T15:06:37Z

← Versione meno recente		Versione delle 09:06, 10 nov 2021
Riga 97:		Riga 97:

	With Paint		With Paint
	<FONT ~~color~~=gray>' ''Il fulcro ~~(vortice)~~ della rotazione ~~è sempre il~~ centro dell'area di disegno:''</font>		<FONT Color=gray>' ''Imposta il fulcro/punto della rotazione - ad esempio -al centro dell'area di disegno:''</font>
	.Translate(DrawingArea1.W / 2, DrawingArea1.H / 2)		<FONT Color=#B22222>.Translate</font>(DrawingArea1.W / 2, DrawingArea1.H / 2)
	<FONT color=gray>' ''Ruota l'immagine:''</font>		<FONT color=gray>' ''Ruota l'immagine:''</font>
	.<FONT Color=#B22222>Rotate(Rad(ang))</font>		<FONT Color=#B22222>.Rotate(Rad(ang))</font>
	<FONT color=gray>' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate dell'immagine mezza dimensione negativa di se stessa:''</font>		<FONT color=gray>' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate dell'immagine mezza dimensione negativa di se stessa.''
			' ''Non si devono modificare i valori né i segni degli ultimi quattro argomenti qui riportati.''</font>
	.DrawImage(im, -im.W / 2, -im.H / 2, -im.W, -im.H)		.DrawImage(im, -im.W / 2, -im.H / 2, -im.W, -im.H)
	.End		.End

Vuott il 03:09, 10 nov 2021

2021-11-10T03:09:14Z

← Versione meno recente		Versione delle 21:09, 9 nov 2021
Riga 1:		Riga 1:
	Per ruotare un'immagine rigorosamente intorno al proprio asse centrale (''isometria diretta''), mantenendo in modo costante e coerente la sua distanza dal ''Controllo'' che contiene l'~~<I>oggetto</i>~~ "Image", possiamo adottare alcune modalità.		Per ruotare un'immagine rigorosamente intorno al proprio asse centrale (''isometria diretta''), mantenendo in modo costante e coerente la sua distanza dal ''Controllo'' che contiene l'Oggetto "Image", possiamo adottare alcune modalità.

	==Uso del Metodo ".Rotate()" della Classe Image==		==Uso del Metodo ".Rotate()" della Classe Image==

Vuott il 03:08, 10 nov 2021

2021-11-10T03:08:54Z

← Versione meno recente		Versione delle 21:08, 9 nov 2021
Riga 1:		Riga 1:
	Per ruotare un'immagine rigorosamente intorno al proprio asse centrale (''isometria diretta''), mantenendo in modo costante e coerente la sua distanza dal ''Controllo'' che contiene l'<I>oggetto</i> "~~Immagine~~", possiamo adottare alcune modalità.		Per ruotare un'immagine rigorosamente intorno al proprio asse centrale (''isometria diretta''), mantenendo in modo costante e coerente la sua distanza dal ''Controllo'' che contiene l'<I>oggetto</i> "Image", possiamo adottare alcune modalità.

	==Uso del Metodo ".Rotate()" della Classe Image==		==Uso del Metodo ".Rotate()" della Classe Image==