Stampare il contenuto grafico di una PictureBox - Cronologia

Vuott il 21:26, 13 giu 2023

2023-06-13T21:26:29Z

← Versione meno recente		Versione delle 15:26, 13 giu 2023
Riga 44:		Riga 44:
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
	<FONT Color=gray>' ''Se vogliamo creare un file PDF, impostiamo la Proprietà ".OutputFile":''		<FONT Color=gray>' ''Se vogliamo creare un file PDF, impostiamo la Proprietà ".OutputFile":''
	.OutputFile = "/tmp/stampa.pdf"</font>		'''.OutputFile''' = "/tmp/stampa.pdf"</font>
	.Print		.Print
	End With		End With

Vuott il 21:26, 13 giu 2023

2023-06-13T21:26:00Z

← Versione meno recente		Versione delle 15:26, 13 giu 2023
Riga 6:		Riga 6:


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

	Dim bt As Button		Dim bt As Button
Riga 34:		Riga 34:
	End With		End With

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

	~~'''~~Public~~'''~~ Sub Tasto_Click()		Public Sub Tasto_Click()

	With stampa		With stampa
Riga 48:		Riga 48:
	End With		End With

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

	~~'''~~Public~~'''~~ Sub Printer1_Draw()		Public Sub Printer1_Draw()

	With Paint		With Paint
Riga 58:		Riga 58:
	End With		End With

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


Riga 68:		Riga 68:


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

	Dim pb1, pb2 As PictureBox		Dim pb1, pb2 As PictureBox
Riga 105:		Riga 105:
	End With		End With

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

	~~'''~~Public~~'''~~ Sub Tasto_Click()		Public Sub Tasto_Click()

	With stampa		With stampa
Riga 115:		Riga 115:
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
	<FONT Color=gray>' ''Se vogliamo creare un file PDF, impostiamo la Proprietà ".OutputFile":''		<FONT Color=gray>' ''Se vogliamo creare un file PDF, impostiamo la Proprietà ".OutputFile":''
	.OutputFile = "/tmp/stampa.pdf"</font>		'''.OutputFile''' = "/tmp/stampa.pdf"</font>
	.Print		.Print
	End With		End With

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

	~~'''~~Public~~'''~~ Sub Printer1_Draw()		Public Sub Printer1_Draw()

	Dim ob As Object		Dim ob As Object
Riga 134:		Riga 134:
	End With		End With

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

Vuott il 11:57, 11 mag 2023

2023-05-11T11:57:57Z

← Versione meno recente		Versione delle 05:57, 11 mag 2023
Riga 43:		Riga 43:
	.GrayScale = False		.GrayScale = False
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
	<FONT Color=gray>' ''Se vogliamo creare un file PDF:''~~</font>~~		<FONT Color=gray>' ''Se vogliamo creare un file PDF, impostiamo la Proprietà ".OutputFile":''
	.OutputFile = "/tmp/stampa.pdf"		.OutputFile = "/tmp/stampa.pdf"</font>
	.Print		.Print
	End With		End With
Riga 114:		Riga 114:
	.GrayScale = False		.GrayScale = False
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
	<FONT Color=gray>' ''Se vogliamo creare un file PDF:''~~</font>~~		<FONT Color=gray>' ''Se vogliamo creare un file PDF, impostiamo la Proprietà ".OutputFile":''
	.OutputFile = "/tmp/stampa.pdf"		.OutputFile = "/tmp/stampa.pdf"</font>
	.Print		.Print
	End With		End With

Vuott il 08:47, 11 mag 2023

2023-05-11T08:47:45Z

← Versione meno recente		Versione delle 02:47, 11 mag 2023
Riga 1:		Riga 1:
	Per stampare il contenuto grafico, ossia l'immagine, contenuto in una ''PictureBox'', bisognerà far stampare dalla Classe ''Paint'' nell'~~evento ''~~_Draw( )'' dell'~~oggetto~~ ''Printer'' l'immagine contenuta dalla medesima ''PictureBox'' posta sul ''Form''. A tal fine si rende utile il Metodo ''.DrawImage( )'' della predetta Classe ''Paint''. Poiché tale Metodo nel suo primo parametro richiede però un'<I>Image</i>, si avrà cura di disporre la conversione della ''Picture'' che rappresenta l'immagine contenuta dalla ''PictureBox'' in un'<I>Image</i>. Si provvederà altresì ad impostare i successivi 4 argomenti del Metodo in questione facendoli corrispondere esattamente agli analoghi valori della ''PictureBox''.		Per stampare il contenuto grafico, ossia l'immagine, contenuto in una ''PictureBox'', bisognerà far stampare dalla Classe ''Paint'' nell'Evento "_Draw()" dell'Oggetto ''Printer'' l'immagine contenuta dalla medesima ''PictureBox'' posta sul ''Form''. A tal fine si rende utile il Metodo ".DrawImage()" della predetta Classe ''Paint''. Poiché tale Metodo nel suo primo parametro richiede però un'<I>Image</i>, si avrà cura di disporre la conversione della ''Picture'' che rappresenta l'immagine contenuta dalla ''PictureBox'' in un'<I>Image</i>. Si provvederà altresì ad impostare i successivi 4 argomenti del Metodo in questione facendoli corrispondere esattamente agli analoghi valori della ''PictureBox''.

	Mostriamo un esempio pratico, nel quale verranno posti sul ''Form'' via codice una ''PictureBox'' ed un ''Button''.		Mostriamo un esempio pratico, nel quale verranno posti sul ''Form'' via codice una ''PictureBox'' ed un ''Button''.
Riga 10:		Riga 10:
	Dim bt As Button		Dim bt As Button

	With Me		With Me
	.Center		.Center
	.W = 400		.W = 400
	.H = 400		.H = 400
	End With		End With

	With bt = New Button(Me) As "Tasto"		With bt = New Button(Me) As "Tasto"
	.X = 300		.X = 300
	.Y = 300		.Y = 300
	.W = 60		.W = 60
	.H = 30		.H = 30
	.Text = "Stampa"		.Text = "Stampa"
	End With		End With

	stampa = New Printer As "Printer1"		stampa = New Printer As "Printer1"

	With pb = New PictureBox(Me)		With pb = New PictureBox(Me)
	.X = 50		.X = 50
	.Y = 50		.Y = 50
	.W = 96		.W = 96
	.H = 96		.H = 96
	.Picture = Picture["icon:/96/wizard"]		.Picture = Picture["icon:/96/wizard"]
	End With		End With

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


	'''Public''' Sub Tasto_Click()		'''Public''' Sub Tasto_Click()
Riga 49:		Riga 48:
	End With		End With

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


	'''Public''' Sub Printer1_Draw()		'''Public''' Sub Printer1_Draw()

	With Paint		With Paint
	<FONT Color=gray>' ''Usiamo il Metodo "DrawImage() e convertiamo la "Picture" restituita dalla "PictureBox" in una "Image":''</font>		<FONT Color=gray>' ''Usiamo il Metodo "DrawImage() e convertiamo la "Picture" restituita dalla "PictureBox" in una "Image":''</font>
	.DrawImage(pb.Picture.Image, pb.X, pb.Y, pb.W, pb.H, 1.0, Null)		.DrawImage(pb.Picture.Image, pb.X, pb.Y, pb.W, pb.H, 1.0, Null)
	.End		.End
	End With		End With

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

Vuott il 04:32, 25 dic 2021

2021-12-25T04:32:06Z

← Versione meno recente		Versione delle 22:32, 24 dic 2021
Riga 55:		Riga 55:

	With Paint		With Paint
	<FONT Color=gray>' ''Usiamo il Metodo "DrawImage() ~~per disegnare~~ una "~~image~~":''</font>		<FONT Color=gray>' ''Usiamo il Metodo "DrawImage() e convertiamo la "Picture" restituita dalla "PictureBox" in una "Image":''</font>
	.DrawImage(pb.Image, pb.X, pb.Y, pb.W, pb.H, 1.0, Null)		.DrawImage(pb.Picture.Image, pb.X, pb.Y, pb.W, pb.H, 1.0, Null)
	.End		.End
	End With		End With

Vuott il 04:29, 25 dic 2021

2021-12-25T04:29:14Z

← Versione meno recente		Versione delle 22:29, 24 dic 2021
Riga 1:		Riga 1:
	Per stampare il contenuto grafico, ossia l'immagine, contenuto in una ''PictureBox'', bisognerà far stampare dalla Classe ''Paint'' nell'evento ''_Draw( )'' dell'oggetto ''Printer'' l'immagine contenuta dalla medesima ''PictureBox'' posta sul ''Form''. A tal fine si rende utile il Metodo ''.DrawImage( )'' della predetta Classe ''Paint''. Poiché tale Metodo nel suo primo parametro richiede però un'<I>Image</i>, si avrà cura di disporre la conversione della ''Picture'' che rappresenta l'immagine contenuta dalla ''PictureBox'' in un'<I>Image</i>. Si provvederà altresì ad impostare i successivi 4 argomenti del Metodo in questione facendoli corrispondere esattamente agli analoghi valori della ''PictureBox''.		Per stampare il contenuto grafico, ossia l'immagine, contenuto in una ''PictureBox'', bisognerà far stampare dalla Classe ''Paint'' nell'evento ''_Draw( )'' dell'oggetto ''Printer'' l'immagine contenuta dalla medesima ''PictureBox'' posta sul ''Form''. A tal fine si rende utile il Metodo ''.DrawImage( )'' della predetta Classe ''Paint''. Poiché tale Metodo nel suo primo parametro richiede però un'<I>Image</i>, si avrà cura di disporre la conversione della ''Picture'' che rappresenta l'immagine contenuta dalla ''PictureBox'' in un'<I>Image</i>. Si provvederà altresì ad impostare i successivi 4 argomenti del Metodo in questione facendoli corrispondere esattamente agli analoghi valori della ''PictureBox''.


	Mostriamo un esempio pratico, nel quale verranno posti sul ''Form'' via codice una ''PictureBox'' ed un ''Button''.		Mostriamo un esempio pratico, nel quale verranno posti sul ''Form'' via codice una ''PictureBox'' ed un ''Button''.
Riga 41:		Riga 40:

	With stampa		With stampa
	.Orientation = 0		.Orientation = Printer.Portrait
	.Paper = 2		.Paper = Printer.A4
	.GrayScale = False		.GrayScale = False
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
Riga 56:		Riga 55:

	With Paint		With Paint
	<FONT Color=gray>' ''Usiamo il Metodo "DrawImage() ~~e convertiamo la "Picture" restituita dalla "PictureBox" in~~ una "image":''</font>		<FONT Color=gray>' ''Usiamo il Metodo "DrawImage() per disegnare una "image":''</font>
	.DrawImage(pb~~.Picture~~.Image, pb.X, pb.Y, pb.W, pb.H, 1.0, Null)		.DrawImage(pb.Image, pb.X, pb.Y, pb.W, pb.H, 1.0, Null)
	.End		.End
	End With		End With

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

Riga 66:		Riga 65:
	===Stampa delle immagini contenute rispettivamente da due o più ''PictureBox''===		===Stampa delle immagini contenute rispettivamente da due o più ''PictureBox''===
	Qualora si debbano stampare le immagini contenute rispettivamente da due o più ''PictureBox'' poste sul ''Form'', sarà necessario ovviamente servirsi di un ciclo posto all'interno della sintassi ''With Paint/End With'', che richiami come variabili di tipo ''Oggetto'' tutte le ''PictureBox'' presenti sul ''Form''.		Qualora si debbano stampare le immagini contenute rispettivamente da due o più ''PictureBox'' poste sul ''Form'', sarà necessario ovviamente servirsi di un ciclo posto all'interno della sintassi ''With Paint/End With'', che richiami come variabili di tipo ''Oggetto'' tutte le ''PictureBox'' presenti sul ''Form''.


	Vediamo di seguito un semplice esempio, molto simile a quello del paragrafo precedente e che prevede la stampa del contenuto grafico di due ''PictureBox''.		Vediamo di seguito un semplice esempio, molto simile a quello del paragrafo precedente e che prevede la stampa del contenuto grafico di due ''PictureBox''.
Riga 76:		Riga 74:
	Dim pb1, pb2 As PictureBox		Dim pb1, pb2 As PictureBox
	Dim bt As Button		Dim bt As Button

			With Me
			.Center
			.W = 400
			.H = 400
			End With

			With bt = New Button(Me) As "Tasto"
			.X = 300
			.Y = 300
			.W = 60
			.H = 30
			.Text = "Stampa"
			End With

			stampa = New Printer As "Printer1"

			With pb1 = New PictureBox(Me)
			.X = 50
			.Y = 50
			.W = 96
			.H = 96
			.Picture = Picture["icon:/96/wizard"]
			End With

			With pb2 = New PictureBox(Me)
			.X = 200
			.Y = 50
			.W = 96
			.H = 96
			.Picture = Picture["icon:/96/insert-image"]
			End With

	~~With Me~~
	~~.Center~~
	~~.W = 400~~
	~~.H = 400~~
	~~End With~~

	~~With bt = New Button(Me) As "Tasto"~~
	~~.X = 300~~
	~~.Y = 300~~
	~~.W = 60~~
	~~.H = 30~~
	~~.Text = "Stampa"~~
	~~End With~~

	~~stampa = New Printer As "Printer1"~~

	~~With pb1 = New PictureBox(Me)~~
	~~.X = 50~~
	~~.Y = 50~~
	~~.W = 96~~
	~~.H = 96~~
	~~.Picture = Picture["icon:/96/wizard"]~~
	~~End With~~

	~~With pb2 = New PictureBox(Me)~~
	~~.X = 200~~
	~~.Y = 50~~
	~~.W = 96~~
	~~.H = 96~~
	~~.Picture = Picture["icon:/96/insert-image"]~~
	~~End With~~

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


	'''Public''' Sub Tasto_Click()		'''Public''' Sub Tasto_Click()

	With stampa		With stampa
	.Orientation = 0		.Orientation = Printer.Portrait
	.Paper = 2		.Paper = Printer.A4
	.GrayScale = False		.GrayScale = False
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
Riga 125:		Riga 122:

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


	'''Public''' Sub Printer1_Draw()		'''Public''' Sub Printer1_Draw()

	Dim ob As Object		Dim ob As Object

	With Paint		With Paint
	For Each ob In FMain.Children		For Each ob In FMain.Children
	If Object.Type(ob) = "PictureBox" Then		If Object.Type(ob) = "PictureBox" Then
	.DrawImage(ob.Picture.Image, ob.X, ob.Y, ob.W, ob.H, 1.0, Null)		.DrawImage(ob.Picture.Image, ob.X, ob.Y, ob.W, ob.H, 1.0, Null)
	Endif		Endif
	Next		Next
	.End		.End
	End With		End With

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

Vuott il 04:04, 22 dic 2016

2016-12-22T04:04:25Z

@@ Riga 65: / Riga 65: @@
 ===Stampa delle immagini contenute rispettivamente da due o più ''PictureBox''===
-Qualora si debbano stampare le immagini contenute rispettivamente da due o più ''PictureBox'' poste sul ''Form'',
+Qualora si debbano stampare le immagini contenute rispettivamente da due o più ''PictureBox'' poste sul ''Form'', sarà necessario ovviamente servirsi di un ciclo posto all'interno della sintassi ''With Paint/End With'', che richiami come variabili di tipo ''Oggetto'' tutte le ''PictureBox'' presenti sul ''Form''.
-<FONT Color=red size=4><B>Pagina in costruzione !</b></font>
+Vediamo di seguito un semplice esempio, molto simile a quello del paragrafo precedente e che prevede la stampa del contenuto grafico di due ''PictureBox''.

Vuott: Creata pagina con "Per stampare il contenuto grafico, ossia l'immagine, contenuto in una ''PictureBox'', bisognerà far stampare dalla Classe ''Paint'' nell'evento ''_Draw( )'' dell'oggetto ''Pr..."

2016-12-22T03:32:01Z

Creata pagina con "Per stampare il contenuto grafico, ossia l'immagine, contenuto in una ''PictureBox'', bisognerà far stampare dalla Classe ''Paint'' nell'evento ''_Draw( )'' dell'oggetto ''Pr..."

Nuova pagina

Per stampare il contenuto grafico, ossia l'immagine, contenuto in una ''PictureBox'', bisognerà far stampare dalla Classe ''Paint'' nell'evento ''_Draw( )'' dell'oggetto ''Printer'' l'immagine contenuta dalla medesima ''PictureBox'' posta sul ''Form''. A tal fine si rende utile il Metodo ''.DrawImage( )'' della predetta Classe ''Paint''. Poiché tale Metodo nel suo primo parametro richiede però un'Image, si avrà cura di disporre la conversione della ''Picture'' che rappresenta l'immagine contenuta dalla ''PictureBox'' in un'Image. Si provvederà altresì ad impostare i successivi 4 argomenti del Metodo in questione facendoli corrispondere esattamente agli analoghi valori della ''PictureBox''.

Mostriamo un esempio pratico, nel quale verranno posti sul ''Form'' via codice una ''PictureBox'' ed un ''Button''.
Private stampa As Printer
Private pb As PictureBox

'''Public''' Sub Form_Open()

Dim bt As Button

With Me
.Center
.W = 400
.H = 400
End With

With bt = New Button(Me) As "Tasto"
.X = 300
.Y = 300
.W = 60
.H = 30
.Text = "Stampa"
End With

stampa = New Printer As "Printer1"

With pb = New PictureBox(Me)
.X = 50
.Y = 50
.W = 96
.H = 96
.Picture = Picture["icon:/96/wizard"]
End With

'''End'''

'''Public''' Sub Tasto_Click()

With stampa
.Orientation = 0
.Paper = 2
.GrayScale = False
.Resolution = Desktop.Resolution
' ''Se vogliamo creare un file PDF:''
.OutputFile = "/tmp/stampa.pdf"
.Print
End With

'''End'''

'''Public''' Sub Printer1_Draw()

With Paint
' ''Usiamo il Metodo "DrawImage() e convertiamo la "Picture" restituita dalla "PictureBox" in una "image":''
.DrawImage(pb.Picture.Image, pb.X, pb.Y, pb.W, pb.H, 1.0, Null)
.End
End With

'''End'''

===Stampa delle immagini contenute rispettivamente da due o più ''PictureBox''===
Qualora si debbano stampare le immagini contenute rispettivamente da due o più ''PictureBox'' poste sul ''Form'',

Pagina in costruzione !