Inserire del testo in una Image ed in una Picture

Da Gambas-it.org - Wikipedia.

Per inserire dei caratteri testuali in una Picture si potrà utilizzare "Paint" oppure "Draw":

  ' Gambas class file


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

  ' Gambas class file


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

Per inserire dei caratteri testuali in una Image si potrà utilizzare "Paint":

  ' Gambas class file


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