Differenze tra le versioni di "Inserire del testo in una Image ed in una Picture"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
==Inserire dei caratteri testuali in una ''Image''== | ==Inserire dei caratteri testuali in una ''Image''== | ||
− | In | + | In questo caso si potrà utilizzare la Classe "'''''Paint'''''": |
'''Public''' Sub Button3_Click() | '''Public''' Sub Button3_Click() | ||
Riga 28: | Riga 28: | ||
==Inserire caratteri testuali in una ''Picture''== | ==Inserire caratteri testuali in una ''Picture''== | ||
− | In | + | In quest'altro caso si potrà utilizzare la Classe "'''''Paint'''''" oppure la Classe "'''''Draw'''''". |
Versione delle 05:13, 1 set 2012
Inserire dei caratteri testuali in una Image
In questo caso si potrà utilizzare la Classe "Paint":
Public Sub Button3_Click() Dim i As Image Dim p As Picture i = Image.load("fileImmagine.gif") ' carichiamo una immagine Paint.begin(i) Paint.Font.size = 10 Paint.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3) Paint.End 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("fileImmagine.gif") ' carichiamo una immagine Paint.begin(p) Paint.Font.size = 10 Paint.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3) Paint.End PictureBox1.Picture = p ' mostriamo il risultato in una PictureBox End
Esempio con la classe Draw:
Public Sub Button2_Click() Dim p As Picture p = picture.load("fileImmagine.gif") ' carichiamo una immagine Draw.begin(p) Draw.Font.size = 10 Draw.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3) Draw.End PictureBox1.Picture = p ' mostriamo il risultato in una PictureBox End