Differenze tra le versioni di "Inserire del testo in una Image ed in una Picture"

Da Gambas-it.org - Wikipedia.
Riga 14: Riga 14:
 
    
 
    
 
   paint.Font.size = 10
 
   paint.Font.size = 10
   paint.DrawText("Testo qualsiasi, 10, 10, 100, 100, 3)
+
   paint.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
 
   
 
   
 
   PictureBox1.Picture = p  ''<Font Color= #006400>' mostriamo il risultato in una PictureBox''</font>
 
   PictureBox1.Picture = p  ''<Font Color= #006400>' mostriamo il risultato in una PictureBox''</font>
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 10:34, 18 gen 2012

Per inserire dei caratteri testuali in una Picture si potrà utilizzare "Paint":


  ' 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)

 PictureBox1.Picture = p   ' mostriamo il risultato in una PictureBox

End