Visualizza wikitesto di Ottenere l'immagine di un Controllo grafico

==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
 
 <FONT Color=gray>' ''Si crea la superficie dell'immagine che dovrà contenere la riproduzione grafica della "Label" presente sul "Form":''</font>
  im = New Image(Label1.W, Label1.H, Color.Transparent, Image.Standard)
 
  With Paint
    .Begin(im)
 <FONT Color=gray>' ''Sarà ricreata la forma geometrica di dimensioni uguali a quella della "Label":''</font>
    .FillRect(0, 0, Label1.W, Label1.H, Label1.Background)
 <FONT Color=gray>' ''Ora viene impostato il colore del testo della "Label":''</font>
    .Brush = .Color(Label1.Foreground)
 <FONT Color=gray>' ''Viene impostato il testo con le caratteristiche originarie della "Label":''</font>
    .Text(Label1.Text, 0, 0, Label1.W, Label1.H, Label1.Alignment)
    .Fill
    .End
  End With
 
 im.Save("/tmp/immagine.png", 100)
 
 End