Stampare un Controllo grafico posto sul Form - Cronologia

Vuott il 08:30, 15 set 2023

2023-09-15T08:30:23Z

← Versione meno recente		Versione delle 02:30, 15 set 2023
Riga 1:		Riga 1:
	Ogni ''Controllo'' (Oggetto) grafico, posto sul ''Form'', è in definitiva una finestra inglobata nel ''Form'' medesimo.		Ogni ''Controllo'' (Oggetto) grafico, posto sul ''Form'', è in definitiva una finestra inglobata nel ''Form'' medesimo. <SUP>[[[#Note\|nota 1]]]</sup>

	==Stampare un ''Controllo'' grafico mediante le risorse dei Componenti "gb.desktop" e "gb.desktop.x11"==		==Stampare un ''Controllo'' grafico mediante le risorse dei Componenti "gb.desktop" e "gb.desktop.x11"==
Riga 132:		Riga 132:

	End		End



			=Note=
			[1] Vedere anche la seguente pagina: [[Stampare il testo presente in oggetti di testo]]

Vuott il 08:28, 15 set 2023

2023-09-15T08:28:25Z

← Versione meno recente		Versione delle 02:28, 15 set 2023
Riga 5:		Riga 5:

	Mostriamo un esempio pratico commentato, nel quale sul ''Form'' principale è posta una ''GridView'' che sarà dunque stampata.		Mostriamo un esempio pratico commentato, nel quale sul ''Form'' principale è posta una ''GridView'' che sarà dunque stampata.
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim r, c As Byte		Dim r, c As Byte
Riga 20:		Riga 20:
	Next		Next

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

	~~'''~~Public~~'''~~ Sub Button1_Click()
			Public Sub Button1_Click()

	With Printer1		With Printer1
	.Paper = .A4		.Paper = .A4
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
			<FONT Color=gray>' ''Se si desidera creare un file pdf:''</font>
			.OutputFile = "/tmp/stampa.pdf"
	.Print		.Print
	End With		End With

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


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

	Dim dw As DesktopWindow		Dim dw As DesktopWindow
Riga 49:		Riga 53:
	End With		End With

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

Vuott il 08:34, 2 giu 2023

2023-06-02T08:34:30Z

← Versione meno recente		Versione delle 02:34, 2 giu 2023
Riga 1:		Riga 1:
	Ogni Controllo (Oggetto) grafico, posto sul Form, è in definitiva una finestra inglobata nel Form medesimo.		Ogni ''Controllo'' (Oggetto) grafico, posto sul ''Form'', è in definitiva una finestra inglobata nel ''Form'' medesimo.

	==Stampare un Controllo grafico mediante le risorse dei Componenti "gb.desktop" e "gb.desktop.x11"==		==Stampare un ''Controllo'' grafico mediante le risorse dei Componenti "gb.desktop" e "gb.desktop.x11"==
	Per stampare un Controllo grafico, usando le risorse dei Componenti "gb.desktop" e "gb.desktop.x11", è necessario individuare dunque il numero identificativo di tale Controllo, ossia della sua finestra, e passarlo alla Classe "DesktopWindow" del Componente "gb.desktop.x11".		Per stampare un Controllo grafico, usando le risorse dei Componenti "gb.desktop" e "gb.desktop.x11", è necessario individuare dunque il numero identificativo di tale Controllo, ossia della sua finestra, e passarlo alla Classe ''DesktopWindow'' del Componente ''gb.desktop.x11''.

	Mostriamo un esempio pratico commentato, nel quale sul Form principale è posta una "GridView" che sarà dunque stampata.		Mostriamo un esempio pratico commentato, nel quale sul ''Form'' principale è posta una ''GridView'' che sarà dunque stampata.
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Riga 52:		Riga 52:


	==Stampare un Controllo grafico mediante le risorse del Componente "gb.media"==		==Stampare un ''Controllo'' grafico mediante le risorse del Componente ''gb.media''==
	Stampiamo, come sopra, una ''GridView'' e il suo contenuto mediante le risorse del Componente "gb.media":		Stampiamo, come sopra, una ''GridView'' e il suo contenuto mediante le risorse del Componente ''gb.media'':
	Private ~~appoggio~~ As String		Private temporaneo As String


Riga 79:		Riga 79:
	Dim src, vdc, enc, snk As MediaControl		Dim src, vdc, enc, snk As MediaControl

	~~appoggio~~ = Temp		temporaneo = Temp

	pl = New MediaPipeline		pl = New MediaPipeline
Riga 89:		Riga 89:
	enc = New MediaControl(pl, "pngenc")		enc = New MediaControl(pl, "pngenc")
	snk = New MediaControl(pl, "filesink")		snk = New MediaControl(pl, "filesink")
	snk["location"] = ~~appoggio~~		snk["location"] = temporaneo

	src.LinkTo(vdc)		src.LinkTo(vdc)
Riga 100:		Riga 100:
	Repeat		Repeat
	Wait 0.01		Wait 0.01
	Until Right(File.Load(~~appoggio~~), SizeOf(gb.Integer)) = MkInt(&826042AE)		Until Right(File.Load(temporaneo), SizeOf(gb.Integer)) = MkInt(&826042AE)

	pl.Stop()		pl.Stop()
Riga 123:		Riga 123:

	With Paint		With Paint
	.DrawImage(Image.Load(~~appoggio~~), 0, 0)		.DrawImage(Image.Load(temporaneo), 0, 0)
	.End		.End
	End With		End With

	End		End

Vuott il 17:38, 13 mag 2023

2023-05-13T17:38:26Z

← Versione meno recente		Versione delle 11:38, 13 mag 2023
Riga 84:		Riga 84:

	src = New MediaControl(pl, "ximagesrc")		src = New MediaControl(pl, "ximagesrc")
	<FONT Color=gray>' ''Assegna alla proprietà "xid" del plugin "ximagesrc" il numero idetificativo della "GridView", affinché ne catturi quanto da essa visualizzato:''</font>		<FONT Color=gray>' ''Assegna alla proprietà "xid" del plugin "ximagesrc" il numero idetificativo della "GridView", affinché catturi quanto da essa visualizzato:''</font>
	src["xid"] = GridView1.Id		src["xid"] = GridView1.Id
	vdc = New MediaControl(pl, "videoconvert")		vdc = New MediaControl(pl, "videoconvert")

Vuott il 17:37, 13 mag 2023

2023-05-13T17:37:37Z

← Versione meno recente		Versione delle 11:37, 13 mag 2023
Riga 2:		Riga 2:

	==Stampare un Controllo grafico mediante le risorse dei Componenti "gb.desktop" e "gb.desktop.x11"==		==Stampare un Controllo grafico mediante le risorse dei Componenti "gb.desktop" e "gb.desktop.x11"==
	~~<BR>~~Per stampare un Controllo grafico, usando le risorse dei Componenti "gb.desktop" e "gb.desktop.x11", è necessario individuare dunque il numero identificativo di tale Controllo, ossia della sua finestra, e passarlo alla Classe "DesktopWindow" del Componente "gb.desktop.x11".		Per stampare un Controllo grafico, usando le risorse dei Componenti "gb.desktop" e "gb.desktop.x11", è necessario individuare dunque il numero identificativo di tale Controllo, ossia della sua finestra, e passarlo alla Classe "DesktopWindow" del Componente "gb.desktop.x11".

	Mostriamo un esempio pratico commentato, nel quale sul Form principale è posta una "GridView" che sarà dunque stampata.		Mostriamo un esempio pratico commentato, nel quale sul Form principale è posta una "GridView" che sarà dunque stampata.

Vuott il 17:37, 13 mag 2023

2023-05-13T17:37:21Z

@@ Riga 1: / Riga 1: @@
 Ogni Controllo (Oggetto) grafico, posto sul Form, è in definitiva una finestra inglobata nel Form medesimo.
 <BR>Per stampare un Controllo grafico, è necessario individuare dunque il numero identificativo di tale Controllo, ossia della sua finestra, e passarlo alla Classe "DesktopWindow" del Componente "gb.desktop.x11".
 Mostriamo un esempio pratico commentato, nel quale sul Form principale è posta una "GridView" che sarà dunque stampata.
   '''Public''' Sub Form_Open()
@@ Riga 49: / Riga 50: @@
   '''End'''

Vuott il 13:56, 13 mag 2023

2023-05-13T13:56:00Z

← Versione meno recente		Versione delle 07:56, 13 mag 2023
Riga 3:		Riga 3:

	Mostriamo un esempio pratico commentato, nel quale sul Form principale è posta una "GridView" che sarà dunque stampata.		Mostriamo un esempio pratico commentato, nel quale sul Form principale è posta una "GridView" che sarà dunque stampata.
	<BR>E' necessario attivare ~~il Componente~~ "gb.desktop.11".		<BR>E' necessario attivare i Componenti "gb.desktop.11" e "gb.desktop.x11".
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

Vuott il 13:55, 13 mag 2023

2023-05-13T13:55:19Z

← Versione meno recente		Versione delle 07:55, 13 mag 2023
Riga 4:		Riga 4:
	Mostriamo un esempio pratico commentato, nel quale sul Form principale è posta una "GridView" che sarà dunque stampata.		Mostriamo un esempio pratico commentato, nel quale sul Form principale è posta una "GridView" che sarà dunque stampata.
	<BR>E' necessario attivare il Componente "gb.desktop.11".		<BR>E' necessario attivare il Componente "gb.desktop.11".
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	Dim r, c As Byte		Dim r, c As Byte

Vuott il 12:13, 13 mag 2023

2023-05-13T12:13:23Z

← Versione meno recente		Versione delle 06:13, 13 mag 2023
Riga 36:		Riga 36:
	Dim im As Image		Dim im As Image

	<FONT Color=gray>' ''Individua la "finestra della "GridView" mediante il ~~fuo~~ identificatore:''</font>		<FONT Color=gray>' ''Individua la "finestra della "GridView" mediante il suo identificatore:''</font>
	With dw = New DesktopWindow(GridView1.Handle)		With dw = New DesktopWindow(GridView1.Handle)
	<FONT Color=gray>' ''Cattura l'immagine della "GridView":''</font>		<FONT Color=gray>' ''Cattura l'immagine della "GridView":''</font>

Vuott il 20:26, 21 mag 2021

2021-05-21T20:26:27Z

← Versione meno recente		Versione delle 14:26, 21 mag 2021
Riga 22:		Riga 22:

	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

			With Printer1
			.Paper = .A4
			.Resolution = Desktop.Resolution
			.Print
			End With

			'''End'''

			'''Public''' Sub Printer1_Draw()

	Dim dw As DesktopWindow		Dim dw As DesktopWindow
	Dim im As Image		Dim im As Image

	<FONT Color=gray>' ''Individua la "finestra della "GridView" mediante il fuo identificatore:''</font>		<FONT Color=gray>' ''Individua la "finestra della "GridView" mediante il fuo identificatore:''</font>
	With dw = New DesktopWindow(GridView1.Handle)		With dw = New DesktopWindow(GridView1.Handle)
Riga 32:		Riga 42:
	End With		End With

	With ~~Printer1~~		With Paint
	.~~OutputFile = "/tmp/prova_stampa~~.~~pdf"~~		.DrawImage(im, GridView1.X, GridView1.Y, GridView1.W, GridView1.H, 1.0, Null)
	.~~Print~~		.Fill
			.End
	End With		End With

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