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

Da Gambas-it.org - Wikipedia.
 
Riga 19: Riga 19:
 
   End With
 
   End With
 
   
 
   
  <Font Color=gray>' ''Mostra l'immagine in una PictureBox''</font>
+
  <Font Color=gray>' ''Mostra il risultato in una PictureBox:''</font>
 
 
   PictureBox1.Image = im
 
   PictureBox1.Image = im
 
   
 
   

Versione attuale delle 14:44, 29 mag 2023

Sia nel caso in cui si debba inserire una stringa di caratteri in un'Oggetto di tipo Image che in un'Oggetto di tipo Picture, si utilizzerà la Classe "Paint ".

Si dovrà avere cura di impostare l'Oggetto, sul quale disegnare, assegnando l'Oggetto Image o l'Oggetto Picture come argomento nel Metodo ".Begin()" della Classe Paint.

Inserire dei caratteri testuali in una Image

Public Sub Button1_Click()

 Dim im As Image

 im = Image.load("/percorso/del/file/immagine")

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

' Mostra il risultato in una PictureBox:
 PictureBox1.Image = im

End

Inserire caratteri testuali in una Picture

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

' Mostra il risultato in una PictureBox:
 PictureBox1.Picture = p

End