Differenze tra le versioni di "Inserire del testo in una Image ed in una Picture"
Da Gambas-it.org - Wikipedia.
Riga 5: | Riga 5: | ||
==Inserire dei caratteri testuali in una ''Image''== | ==Inserire dei caratteri testuali in una ''Image''== | ||
− | + | Public Sub Button1_Click() | |
Dim im As Image | Dim im As Image | ||
− | im = Image.load("<Font Color= | + | im = Image.load("<Font Color=darkgreen>''/percorso/del/file/immagine''</font>") |
With Paint | With Paint | ||
− | <FONT Color= | + | <FONT Color=red>.Begin</font>(im) |
.Font.size = 10 | .Font.size = 10 | ||
.Brush = .Color(Color.Red) | .Brush = .Color(Color.Red) | ||
Riga 22: | Riga 22: | ||
PictureBox1.Image = im | PictureBox1.Image = im | ||
− | + | End | |
+ | |||
==Inserire caratteri testuali in una ''Picture''== | ==Inserire caratteri testuali in una ''Picture''== | ||
− | + | Public Sub Button1_Click() | |
− | Dim | + | Dim pc As Picture |
− | + | pc = Picture.load("<Font Color=darkgreen>''/percorso/del/file/immagine''</font>") | |
With Paint | With Paint | ||
− | <FONT Color= | + | <FONT Color=red>.Begin</font>(pc) |
.Font.size = 10 | .Font.size = 10 | ||
.Brush = .Color(Color.Blue) | .Brush = .Color(Color.Blue) | ||
Riga 39: | Riga 40: | ||
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 = | + | PictureBox1.Picture = pc |
− | + | End |
Versione attuale delle 15:08, 3 lug 2024
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 pc As Picture pc = Picture.load("/percorso/del/file/immagine") With Paint .Begin(pc) .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 = pc End