Differenze tra le versioni di "Inserire del testo in una Image ed in una Picture"
Da Gambas-it.org - Wikipedia.
Riga 6: | Riga 6: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
− | Dim p | + | Dim p As Picture |
p = picture.load("fileImmagine.gif") ''<Font Color= #006400>' carichiamo una immagine''</font> | p = picture.load("fileImmagine.gif") ''<Font Color= #006400>' carichiamo una immagine''</font> | ||
Riga 26: | Riga 26: | ||
'''Public''' Sub Button2_Click() | '''Public''' Sub Button2_Click() | ||
− | Dim p | + | Dim p As Picture |
p = picture.load("fileImmagine.gif") ''<Font Color= #006400>' carichiamo una immagine''</font> | p = picture.load("fileImmagine.gif") ''<Font Color= #006400>' carichiamo una immagine''</font> | ||
Riga 52: | Riga 52: | ||
Dim i As Image | Dim i As Image | ||
+ | Dim p As Picture | ||
i = Image.load("fileImmagine.gif") ''<Font Color= #006400>' carichiamo una immagine''</font> | i = Image.load("fileImmagine.gif") ''<Font Color= #006400>' carichiamo una immagine''</font> |
Versione delle 10:47, 18 gen 2012
Per inserire dei caratteri testuali in una Picture si potrà utilizzare "Paint" oppure "Draw":
' Gambas class file 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
' Gambas class file 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
Per inserire dei caratteri testuali in una Image si potrà utilizzare "Paint":
' Gambas class file 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