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

Versione delle 05:11, 1 set 2012

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

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