Differenze tra le versioni di "Inserire del testo in una Image ed in una Picture"
Da Gambas-it.org - Wikipedia.
Riga 11: | Riga 11: | ||
With Paint | With Paint | ||
− | . | + | .Begin(i) |
.Font.size = 10 | .Font.size = 10 | ||
.Brush = .Color(Color.Red) | .Brush = .Color(Color.Red) | ||
Riga 39: | Riga 39: | ||
With Paint | With Paint | ||
− | . | + | .Begin(p) |
.Font.size = 10 | .Font.size = 10 | ||
.Brush = .Color(Color.Blue) | .Brush = .Color(Color.Blue) | ||
Riga 60: | Riga 60: | ||
With Draw | With Draw | ||
− | . | + | .Begin(p) |
.Font.size = 10 | .Font.size = 10 | ||
.Foreground = Color.Green | .Foreground = Color.Green |
Versione delle 09:04, 8 gen 2016
Inserire dei caratteri testuali in una Image
In questo caso si potrà utilizzare la Classe "Paint":
Public Sub Button1_Click() Dim i As Image Dim p As Picture i = Image.load("/percorso/del/file/immagine") With Paint .Begin(i) .Font.size = 10 .Brush = .Color(Color.Red) .DrawText("Testo qualsiasi", 10, 10, 100, 100, Align.Center) .End End With p = i.Picture ' trasformiamo l'immagine da "Image" a "Picture".... PictureBox1.Picture = p ' ...per poterla mostrare in una PictureBox End
Inserire caratteri testuali in una Picture
In quest'altro caso si potrà utilizzare la Classe "Paint" oppure la Classe "Draw".
Esempio con 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 PictureBox1.Picture = p ' mostriamo il risultato in una PictureBox End
Esempio con la classe Draw:
Public Sub Button1_Click() Dim p As Picture p = Picture.load("/percorso/del/file/immagine") With Draw .Begin(p) .Font.size = 10 .Foreground = Color.Green .Text("Testo qualsiasi", 10, 10, 100, 100, Align.Center) .End End With PictureBox1.Picture = p ' mostriamo il risultato in una PictureBox End