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

Versione delle 08:56, 8 gen 2016

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")

  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")

  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")

  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