Differenze tra le versioni di "Inserire del testo in una Image ed in una Picture"

Versione delle 14:32, 29 mag 2023

Inserire dei caratteri testuali in una Image

Si potrà utilizzare la Classe "Paint":

Public Sub Button1_Click()

 Dim im As Image

 im = Image.load("/percorso/del/file/immagine")

 With Paint
   .Begin(im)
   .Font.size = 10
   .Brush = .Color(Color.Red)
   .DrawText("Testo qualsiasi", 10, 10, 100, 100, Align.Center)
   .End
 End With

' Mostra l'immagine in una PictureBox

 PictureBox1.Image = im

End

Inserire caratteri testuali in una Picture

Anche in quest'altro caso in modo analogo al precedente si potrà utilizzare la Classe "Paint":

Public Sub Button1_Click()

 Dim p As Picture

 p = Picture.load("/percorso/del/file/immagine")

 With Paint
   .Begin(p)
   .Font.size = 10
   .Brush = .Color(Color.Blue)
   .DrawText("Testo qualsiasi", 10, 10, 100, 100, Align.Center)
   .End
 End With

' Mostra il risultato in una PictureBox:
 PictureBox1.Picture = p

End