Inserire del testo in una Image ed in una Picture
Da Gambas-it.org - Wikipedia.
Versione del 29 mag 2023 alle 14:32 di Vuott (Discussione | contributi)
Inserire dei caratteri testuali in una Image
Si potrà utilizzare la Classe "Paint":
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 l'immagine in una PictureBox PictureBox1.Image = im End
Inserire caratteri testuali in una Picture
Anche in quest'altro caso in modo analogo al precedente si potrà utilizzare 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
' Mostra il risultato in una PictureBox: PictureBox1.Picture = p End