Ottenere l'immagine di un Controllo grafico - Cronologia

Vuott il 22:35, 8 set 2025

2025-09-08T22:35:32Z

← Versione meno recente		Versione delle 16:35, 8 set 2025
Riga 87:		Riga 87:
	src = New MediaControl(pl, "ximagesrc")		src = New MediaControl(pl, "ximagesrc")
	<FONT Color=gray>' ''Assegna l'ID della "GridView":''</font>		<FONT Color=gray>' ''Assegna l'ID della "GridView":''</font>
	src["xid"] = GridView1.Id		src["xid"] = <FONT Color=red>GridView1.Id</font>
	vdc = New MediaControl(pl, "videoconvert")		vdc = New MediaControl(pl, "videoconvert")
	enc = New MediaControl(pl, "pngenc")		enc = New MediaControl(pl, "pngenc")

Vuott il 22:27, 8 set 2025

2025-09-08T22:27:27Z

← Versione meno recente		Versione delle 16:27, 8 set 2025
Riga 65:		Riga 65:
	.Columns.Count = 5		.Columns.Count = 5
	End With		End With
	For r As Byte = 0 To 4		For r As Byte = 0 To GridView1.Rows.Max
	For c As Byte = 0 To 4		For c As Byte = 0 To GridView1.Columns.Max
	GridView1[r, c].Text = "abcde"		GridView1[r, c].Text = "abcde"
	Next		Next

Vuott il 22:25, 8 set 2025

2025-09-08T22:25:56Z

← Versione meno recente		Versione delle 16:25, 8 set 2025
Riga 59:		Riga 59:

	Public Sub Form_Open()		Public Sub Form_Open()

	~~Dim r, c As Byte~~

	With GridView1 = New GridView(Me)		With GridView1 = New GridView(Me)
Riga 67:		Riga 65:
	.Columns.Count = 5		.Columns.Count = 5
	End With		End With
	For r = 0 To 4		For r As Byte = 0 To 4
	For c = 0 To 4		For c As Byte = 0 To 4
	GridView1[r, c].Text = "abcde"		GridView1[r, c].Text = "abcde"
	Next		Next

Vuott il 22:24, 8 set 2025

2025-09-08T22:24:50Z

← Versione meno recente		Versione delle 16:24, 8 set 2025
Riga 21:		Riga 21:
	End With		End With
	With Button1 = New Button(Me) As "Button1"		With Button1 = New Button(Me) As "Button1"
	.~~W =~~ 60		.Move(60, 60, Me.W - (Button1.W * 2), Me.H - (Button1.H * 2))
	~~.H =~~ 60
	~~.X =~~ Me.W - (Button1.W * 2)
	~~.Y =~~ Me.H - (Button1.H * 2)
	End With		End With

Vuott il 22:24, 8 set 2025

2025-09-08T22:24:16Z

← Versione meno recente		Versione delle 16:24, 8 set 2025
Riga 50:		Riga 50:

	im.Save("/tmp/immagine.png", 100)		im.Save("/tmp/immagine.png", 100)

			End


			==Uso delle risorse del Componente ''gb.media''==
			Nel seguente codice si otterrà l'immagine di una ''GridView''.
			<BR>Ovviamente è necessario attivare il Componente ''gb.media'' .
			Private GridView1 As GridView
			Private Button1 As Button


			Public Sub Form_Open()

			Dim r, c As Byte

			With GridView1 = New GridView(Me)
			.Move(0, 0, 300, 100)
			.Rows.Count = 5
			.Columns.Count = 5
			End With
			For r = 0 To 4
			For c = 0 To 4
			GridView1[r, c].Text = "abcde"
			Next
			Next

			With Button1 = New Button(Me) As "Button1"
			.Move(60, 60, Me.W - (Button1.W * 2), Me.H - (Button1.H * 2))
			End With

			End


			Public Sub Button1_Click()

			Dim pl As MediaPipeline
			Dim src, vdc, enc, snk As MediaControl

			pl = New MediaPipeline

			src = New MediaControl(pl, "ximagesrc")
			<FONT Color=gray>' ''Assegna l'ID della "GridView":''</font>
			src["xid"] = GridView1.Id
			vdc = New MediaControl(pl, "videoconvert")
			enc = New MediaControl(pl, "pngenc")
			snk = New MediaControl(pl, "filesink")
			snk["location"] = "/tmp/immagine.png"

			src.LinkTo(vdc)
			vdc.LinkTo(enc)
			enc.LinkTo(snk)

			pl.Play()

			pl.Stop()
			pl.Close()
			Print "Cattura immagine effettuata"

	End		End

Vuott il 22:15, 8 set 2025

2025-09-08T22:15:48Z

← Versione meno recente		Versione delle 16:15, 8 set 2025
Riga 1:		Riga 1:
	==Mediante la Classe ''Paint''==		==Mediante la Classe ''Paint''==
	Nel seguente esempio pratico si intende ottenere l'immagine della ''Label'' posta sul ''Form''.		Nel seguente esempio pratico si intende ottenere l'immagine della ''Label'' posta sul ''Form''.
	<BR>Più precisamente mediante le risorse della Classe ''Paint'' si otterrà una sorta di imitazione della ''Label'' ~~e si salverà~~ in un file immagine.		<BR>Più precisamente mediante le risorse della Classe ''Paint'' si otterrà una sorta di imitazione della ''Label'' che sarà salvata in un file immagine.
	Private Label1 As Label		Private Label1 As Label
	Private Button1 As Button		Private Button1 As Button

Vuott il 22:15, 8 set 2025

2025-09-08T22:15:19Z

← Versione meno recente		Versione delle 16:15, 8 set 2025
Riga 1:		Riga 1:
	==Mediante la Classe ''Paint''==		==Mediante la Classe ''Paint''==
	Nel seguente esempio pratico si intende ottenere l'immagine della ''Label'' posta sul ''Form''.		Nel seguente esempio pratico si intende ottenere l'immagine della ''Label'' posta sul ''Form''.
	~~Mediante~~ le risorse della Classe ''Paint'' si otterrà una sorta di imitazione della ''Label'' e si salverà in un file immagine.		<BR>Più precisamente mediante le risorse della Classe ''Paint'' si otterrà una sorta di imitazione della ''Label'' e si salverà in un file immagine.
	Private Label1 As Label		Private Label1 As Label
	Private Button1 As Button		Private Button1 As Button

Vuott: Creata pagina con "==Mediante la Classe ''Paint''== Nel seguente esempio pratico si intende ottenere l'immagine della ''Label'' posta sul ''Form''. Mediante le risorse della Classe ''Paint'' si..."

2025-09-08T22:14:38Z

Creata pagina con "==Mediante la Classe ''Paint''== Nel seguente esempio pratico si intende ottenere l'immagine della ''Label'' posta sul ''Form''. Mediante le risorse della Classe ''Paint'' si..."

Nuova pagina

==Mediante la Classe ''Paint''==
Nel seguente esempio pratico si intende ottenere l'immagine della ''Label'' posta sul ''Form''.
Mediante le risorse della Classe ''Paint'' si otterrà una sorta di imitazione della ''Label'' e si salverà in un file immagine.
Private Label1 As Label
Private Button1 As Button

Public Sub _new()

With Me
.Center
.W = 700
.H = 600
End With
With Label1 = New Label(Me)
.Move(200, 200, 100, 50)
.Background = Color.Yellow
.Foreground = Color.Red
.Alignment = Align.Right
.Text = "Label gialla"
End With
With Button1 = New Button(Me) As "Button1"
.W = 60
.H = 60
.X = Me.W - (Button1.W * 2)
.Y = Me.H - (Button1.H * 2)
End With

End

Public Sub Button1_Click()

Dim im As Image

' ''Si crea la superficie dell'immagine che dovrà contenere la riproduzione grafica della "Label" presente sul "Form":''
im = New Image(Label1.W, Label1.H, Color.Transparent, Image.Standard)

With Paint
.Begin(im)
' ''Sarà ricreata la forma geometrica di dimensioni uguali a quella della "Label":''
.FillRect(0, 0, Label1.W, Label1.H, Label1.Background)
' ''Ora viene impostato il colore del testo della "Label":''
.Brush = .Color(Label1.Foreground)
' ''Viene impostato il testo con le caratteristiche originarie della "Label":''
.Text(Label1.Text, 0, 0, Label1.W, Label1.H, Label1.Alignment)
.Fill
.End
End With

im.Save("/tmp/immagine.png", 100)

End