Differenze tra le versioni di "Inserire del testo in una Image ed in una Picture"
Da Gambas-it.org - Wikipedia.
| Riga 23: | Riga 23: | ||
| − | '''Public''' Sub Button2_Click() | + | |
| + | |||
| + | ''<Font Color= #006400>' Gambas class file''</font> | ||
| + | |||
| + | |||
| + | '''Public''' Sub Button2_Click() | ||
Dim p as Picture | Dim p as Picture | ||
Versione delle 10:39, 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
