Inserire del testo in una Image ed in una Picture

Inserire dei caratteri testuali in una Image

In questo caso si potrà utilizzare la Classe "Paint":

Public Sub Button1_Click()

 Dim i As Image
 Dim p As Picture

  i = Image.load("/percorso/del/file/immagine")   ' carichiamo una immagine

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

  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 quest'altro 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("/percorso/del/file/immagine")   ' carichiamo una immagine

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

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

End

Esempio con la classe Draw:

Public Sub Button1_Click()

 Dim p As Picture

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

  With Draw
    .begin(p)
    .Font.size = 10
    .Foreground = Color.Green
    .Text("Testo qualsiasi", 10, 10, 100, 100, Align.Center)
    .End
  End With

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

End