Inserire del testo in una Image ed in una Picture

Sia nel caso in cui si debba inserire una stringa di caratteri in un'Oggetto di tipo Image che in un'Oggetto di tipo Picture, si utilizzerà la Classe "Paint ".

Inserire dei caratteri testuali in una Image

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

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