Differenze tra le versioni di "Inserire del testo in una Image ed in una Picture"
Da Gambas-it.org - Wikipedia.
| (2 versioni intermedie di uno stesso utente non sono mostrate) | |||
| 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''''' ". | 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''== | ==Inserire dei caratteri testuali in una ''Image''== | ||
| Riga 10: | Riga 12: | ||
With Paint | With Paint | ||
| − | .Begin(im) | + | <FONT Color=#B22222>.Begin</font>(im) |
.Font.size = 10 | .Font.size = 10 | ||
.Brush = .Color(Color.Red) | .Brush = .Color(Color.Red) | ||
| Riga 17: | Riga 19: | ||
End With | End With | ||
| − | <Font Color=gray>' ''Mostra | + | <Font Color=gray>' ''Mostra il risultato in una PictureBox:''</font> |
| − | |||
PictureBox1.Image = im | PictureBox1.Image = im | ||
| Riga 31: | Riga 32: | ||
With Paint | With Paint | ||
| − | .Begin(p) | + | <FONT Color=#B22222>.Begin</font>(p) |
.Font.size = 10 | .Font.size = 10 | ||
.Brush = .Color(Color.Blue) | .Brush = .Color(Color.Blue) | ||
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
