Inserire del testo in una Image ed in una Picture

Inserire dei caratteri testuali in una Image

In quest'altro caso si potrà utilizzare la Classe "Paint":

Public Sub Button3_Click()

 Dim i As Image
 Dim p As Picture

  i = Image.load("fileImmagine.gif")   ' carichiamo una immagine

   Paint.begin(i)
 
 Paint.Font.size = 10
 Paint.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)

 Paint.End

  p = i.Picture   ' trasformiamo l'immagine da "Image" a "Picture"....


 PictureBox1.Picture = p   ' ...per poterla mostrare in una PictureBox

End

Inserire caratteri testuali in una Picture

In questo caso si potrà utilizzare la Classe "Paint" oppure la Classe "Draw".

Esempio con la classe Paint:

Public Sub Button1_Click()

 Dim p As Picture

  p = picture.load("fileImmagine.gif")   ' carichiamo una immagine

   Paint.begin(p)
 
 Paint.Font.size = 10
 Paint.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)

 Paint.End

 PictureBox1.Picture = p   ' mostriamo il risultato in una PictureBox

End

Esempio con la classe Draw:

Public Sub Button2_Click()

 Dim p As Picture

  p = picture.load("fileImmagine.gif")   ' carichiamo una immagine

   Draw.begin(p)
 
 Draw.Font.size = 10
 Draw.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)

 Draw.End

 PictureBox1.Picture = p   ' mostriamo il risultato in una PictureBox

End