Stampare il contenuto di una DrawingArea - Cronologia

Vuott il 02:01, 11 ago 2025

2025-08-11T02:01:22Z

← Versione meno recente		Versione delle 20:01, 10 ago 2025
Riga 47:		Riga 47:
	.Stroke		.Stroke
	.DrawText("Testo qualsiasi", 10, 10, 20, 20)		.DrawText("Testo qualsiasi", 10, 10, 20, 20)
	~~.End~~
	End With		End With

Riga 67:		Riga 66:

	disegna()		disegna()

	~~Paint.End~~

	End		End
Riga 241:		Riga 238:


	Public Sub ~~DrAw_Draw~~()		Public Sub DrAr_Draw()

	With Paint		With Paint
Riga 247:		Riga 244:
	.MoveTo(200, 200)		.MoveTo(200, 200)
	.RelLineTo(0, 200)		.RelLineTo(0, 200)
	.Stroke		.Stroke
	.DrawText("DrawingArea2", 200, 200, 20, 20)		If .Device.Name = DrawingArea1.Name Then
	~~.End~~		.DrawText(DrawingArea1.Name, 200, 200, 20, 20)
			Else
			.DrawText(DrawingArea2.Name, 200, 200, 20, 20)
			Endif
	End With		End With

	End		End


Riga 288:		Riga 288:
	Dim dS As String		Dim dS As String

			mx = 200
			my = 200
			rY = 200
			dX = 200
			dY = 200
	If d = 1 Then		If d = 1 Then
	~~mx = 100~~
	~~my = 100~~
	~~rY = 100~~
	~~dX = 10~~
	~~dY = 10~~
	dS = DrawingArea1.Name		dS = DrawingArea1.Name
	Else		Else
	~~mx = 200~~		dS = DrawingArea2.Name
	~~my = 200~~		Endif
	~~rY = 200~~
	~~dX = 200~~
	~~dY = 200~~
	dS = ~~DrawingArea1~~.Name
	Endif

	With Paint		With Paint
Riga 311:		Riga 306:
	.Stroke		.Stroke
	.DrawText(dS, dX, dY, 20, 20)		.DrawText(dS, dX, dY, 20, 20)
	.End		.End
	End With		End With

Riga 366:		Riga 361:
	Public Sub Printer1_Draw()		Public Sub Printer1_Draw()

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

	End		End
Riga 379:		Riga 371:
	.DrawImage(Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>"), 0, 0)		.DrawImage(Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>"), 0, 0)
	.DrawText("Testo qualsiasi", 200, 100)		.DrawText("Testo qualsiasi", 200, 100)
	~~.End~~
	End With		End With

Vuott il 21:09, 27 giu 2024

2024-06-27T21:09:49Z

← Versione meno recente		Versione delle 15:09, 27 giu 2024
Riga 345:		Riga 345:
	<FONT Color=gray>' ''Effettua la ripresa dell'immagine:''</font>		<FONT Color=gray>' ''Effettua la ripresa dell'immagine:''</font>
	pl.Play()		pl.Play()

	~~<FONT Color=gray>' ''Attende che sia creato il file immagine di formato PNG:''</font>~~
	~~Repeat~~
	~~Wait 0.01~~
	~~Until Right(File.Load(temporaneo), SizeOf(gb.Integer)) = MkInt(&826042AE)~~

	pl.Stop()		pl.Stop()
	pl.Close()		pl.Close()

Vuott il 21:02, 27 giu 2024

2024-06-27T21:02:12Z

← Versione meno recente		Versione delle 15:02, 27 giu 2024
Riga 319:		Riga 319:
	==Stampare il contenuto di una DrawingArea mediante le risorse del Componente gb.media==		==Stampare il contenuto di una DrawingArea mediante le risorse del Componente gb.media==
	Si potrà stampare il contenuto di una ''DrawingArea'' anche mediante le risorse del Componente gb.media:		Si potrà stampare il contenuto di una ''DrawingArea'' anche mediante le risorse del Componente gb.media:
	Private ~~appoggio~~ As String		Private temporaneo As String


Riga 327:		Riga 327:
	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 337:		Riga 337:
	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 349:		Riga 349:
	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 373:		Riga 373:

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

	With Paint		With Paint
	.DrawImage(Image.Load("<FONT Color=~~gray~~>''/percorso/del/file/immagine''</font>"), 0, 0)		.DrawImage(Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>"), 0, 0)
	.DrawText("Testo qualsiasi", 200, 100)		.DrawText("Testo qualsiasi", 200, 100)
	.End		.End

Vuott il 13:52, 21 lug 2023

2023-07-21T13:52:19Z

Mostra modifiche

Vuott il 17:56, 13 mag 2023

2023-05-13T17:56:19Z

← Versione meno recente		Versione delle 11:56, 13 mag 2023
Riga 386:		Riga 386:
	With Paint		With Paint
	.DrawImage(Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>"), 0, 0)		.DrawImage(Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>"), 0, 0)
			.DrawText("Testo qualsiasi", 200, 100)
	.End		.End
	End With		End With

Vuott il 17:52, 13 mag 2023

2023-05-13T17:52:52Z

← Versione meno recente		Versione delle 11:52, 13 mag 2023
Riga 374:		Riga 374:

	Public Sub Printer1_Draw()		Public Sub Printer1_Draw()

	With Paint		With Paint
	.DrawImage(Image.Load(appoggio), 0, 0)		.DrawImage(Image.Load(appoggio), 0, 0)

Vuott il 17:52, 13 mag 2023

2023-05-13T17:52:22Z

@@ Riga 1: / Riga 1: @@
 Per stampare il contenuto grafico presente in una ''DrawingArea'', si potrà attuare il seguente procedimento:
-* si provvede a disegnare e scrivere all'interno della ''DrawingArea'' mediante l'evento ''_Draw()'';
+* si provvede a disegnare e scrivere all'interno della ''DrawingArea'' mediante l'Evento "_Draw()";
 * si imposta la fase di stampa con la Classe ''Printer'';
-* viene richiamato l'evento ''_Draw()'' della Classe ''Printer'' per ogni pagina da stampare;
+* viene richiamato l'evento "_Draw()" della Classe ''Printer'' per ogni pagina da stampare;
 * sia per disegnare nella ''DrawingArea'' sia per stampare il disegno si richiama una sub-procedura, nella quale sono presenti i necessari valori ed impostazioni.
@@ Riga 319: / Riga 319: @@
   '''End'''

Vuott il 02:40, 25 mar 2021

2021-03-25T02:40:30Z

← Versione meno recente		Versione delle 20:40, 24 mar 2021
Riga 23:		Riga 23:
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
	.GrayScale = False		.GrayScale = False
	<FONT color=gray>' ''Volendo, si può stampare/creare un file .pdf o .ps, anziché stampare''		<FONT color=gray>' ''Volendo, si può stampare/creare un file .pdf o .ps, anziché stampare su foglio con la stampante, inserendo questa riga di comando:''
	~~' ''~~su foglio con la stampante, inserendo questa riga di comando:''
	' '''''.OutputFile = "/percorso/del/mio/file.pdf"'''''</font>		' '''''.OutputFile = "/percorso/del/mio/file.pdf"'''''</font>
	.Print		.Print
Riga 56:		Riga 55:

	==Stampare garantendo la corrispondenza fra testo mostrato sulla ''DrawingArea'' e testo stampato==		==Stampare garantendo la corrispondenza fra testo mostrato sulla ''DrawingArea'' e testo stampato==
	Nel caso sia necessaria una precisa corrispondenza fra quanto mostrato sulla ''DrawingArea'' e quanto stampato, è possibile utilizzare il seguente codice esemplificativo: \|[[#Note\|1]]\|		Nel caso sia necessaria una precisa corrispondenza fra quanto mostrato sulla ''DrawingArea'' e quanto stampato, è possibile utilizzare il seguente codice esemplificativo: <SUP>[[[#Note\|Nota 1]]]</sup>
	'''Public''' Sub Form_Show()		'''Public''' Sub Form_Show()

Riga 96:		Riga 95:
	Paint.drawText("Testo Qualsiasi", X, y + Paint.Font.TextHeight("Testo Qualsiasi"))		Paint.drawText("Testo Qualsiasi", X, y + Paint.Font.TextHeight("Testo Qualsiasi"))

	<FONT color=gray>' ''Disegnamo un rettangolo intorno al testo,''		<FONT color=gray>' ''Disegnamo un rettangolo intorno al testo, per verificare la corrispondenza delle dimensioni del testo mostrato sullo schermo all'interno della "DrawingArea" e le dimensioni del testo stampato:''</font>
	~~' ''~~per verificare la corrispondenza delle dimensioni del testo mostrato sullo schermo''
	~~' ''~~all'interno della "DrawingArea" e le dimensioni del testo stampato:''</font>
	Paint.Rectangle(X, Y, Paint.Font.TextWidth("Testo Qualsiasi"), Paint.Font.TextHeight("Testo Qualsiasi"))		Paint.Rectangle(X, Y, Paint.Font.TextWidth("Testo Qualsiasi"), Paint.Font.TextHeight("Testo Qualsiasi"))
	Paint.Stroke		Paint.Stroke
Riga 322:		Riga 319:

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

Vuott il 17:11, 30 dic 2019

2019-12-30T17:11:45Z

← Versione meno recente		Versione delle 11:11, 30 dic 2019
Riga 281:		Riga 281:
	'''Public''' Sub Printer1_Draw()		'''Public''' Sub Printer1_Draw()

	<FONT Color=gray>' ''Incrementa il numero della pagina da stampare (il numero della prima pagina da stampare non deve essere = 0)":''</font>		<FONT Color=gray>' ''Incrementa il numero della pagina da stampare (il numero della prima pagina da stampare '''non''' deve essere = 0):''</font>
	inc n		inc n

Vuott il 17:11, 30 dic 2019

2019-12-30T17:11:07Z

← Versione meno recente		Versione delle 11:11, 30 dic 2019
Riga 227:		Riga 227:
	End With		End With

			'''End'''


			==Stampare il contenuto di due o più DrawingArea ciascuno su una pagina==
			Riprendendo il codice precedente, si stamperà il contenuto di ciascuna ''DrawingAea'' su una differente pagina.
			<BR>Quindi in questo caso saranno stampate in totale 2 pagine: sulla prima sarà stampato il contenuto della prima ''DrawingAea'', e sulla seconda pagina sarà stampato il contenuto della seconda ''DrawingAea''.
			Private n As Short


			'''Public''' Sub Form_Open()

			DrawingArea1.Name = "DrawingArea 1"
			DrawingArea2.Name = "DrawingArea 2"

			<FONT Color=gray>' ''Assegna le due "DrawingArea" al medesimo Gruppo di Eventi:''</font>
			Object.Attach(DrawingArea1, Me, "DrAr")
			Object.Attach(DrawingArea2, Me, "DrAr")

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


			'''Public''' Sub DrAw_Draw()

			With Paint
			.Brush = Paint.Color(Color.Red)
			.MoveTo(200, 200)
			.RelLineTo(0, 200)
			.Stroke
			.DrawText("DrawingArea2", 200, 200, 20, 20)
			.End
			End With

			'''End'''


			'''Public''' Sub Button1_Click()

			With Printer1
			.Configure
			.Orientation = .Portrait
			.Paper = .A4
			.Resolution = Desktop.Resolution
			<FONT Color=gray>' ''Imposta il numero delle pagine da stampare:''</font>
			.Count = 2
			.GrayScale = False
			<FONT Color=gray>' ''.OutputFile = "/tmp/prova.pdf"''</font>
			.Print
			End With

			'''End'''


			'''Public''' Sub Printer1_Draw()

			<FONT Color=gray>' ''Incrementa il numero della pagina da stampare (il numero della prima pagina da stampare non deve essere = 0)":''</font>
			inc n

			<FONT Color=gray>' ''Richiamiamo ai fini della stampa le impostazioni presenti nella sub-procedura":''</font>
			Stampa(n)

			'''End'''


			'''Private''' Procedure Stampa(d As Byte)

			Dim mx, my, rY, dx, dy As Integer
			Dim dS As String

			If d = 1 Then
			mx = 100
			my = 100
			rY = 100
			dX = 10
			dY = 10
			dS = DrawingArea1.Name
			Else
			mx = 200
			my = 200
			rY = 200
			dX = 200
			dY = 200
			dS = DrawingArea1.Name
			Endif

			With Paint
			.Begin(Printer1)
			.Brush = Paint.Color(Color.Red)
			.MoveTo(mx, my)
			.RelLineTo(0, rY)
			.Stroke
			.DrawText(dS, dX, dY, 20, 20)
			.End
			End With

			'''End'''