Differenze tra le versioni di "Inserire del testo in una Image ed in una Picture"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| + | 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''''' ". | ||
| + | |||
==Inserire dei caratteri testuali in una ''Image''== | ==Inserire dei caratteri testuali in una ''Image''== | ||
| − | + | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
| Riga 20: | Riga 22: | ||
'''End''' | '''End''' | ||
| − | |||
==Inserire caratteri testuali in una ''Picture''== | ==Inserire caratteri testuali in una ''Picture''== | ||
| − | |||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
| Riga 37: | Riga 37: | ||
.End | .End | ||
End With | End With | ||
| − | + | ||
<Font Color=gray>' ''Mostra il risultato in una PictureBox:''</font> | <Font Color=gray>' ''Mostra il risultato in una PictureBox:''</font> | ||
PictureBox1.Picture = p | PictureBox1.Picture = p | ||
'''End''' | '''End''' | ||
Versione delle 14:34, 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 ".
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 l'immagine 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
