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

Da Gambas-it.org - Wikipedia.
Riga 3: Riga 3:
 
In questo caso si potrà utilizzare la Classe "'''''Paint'''''":
 
In questo caso si potrà utilizzare la Classe "'''''Paint'''''":
  
−
  '''Public''' Sub Button3_Click()
+
  '''Public''' Sub Button1_Click()
 
   
 
   
 
   Dim i As Image
 
   Dim i As Image
Riga 10: Riga 10:
 
   i = Image.load("fileImmagine.gif")  ''<Font Color= #006400>' carichiamo una immagine''</font>
 
   i = Image.load("fileImmagine.gif")  ''<Font Color= #006400>' carichiamo una immagine''</font>
 
   
 
   
−
    Paint.begin(i)
+
  With Paint
−
 
+
    .begin(i)
−
  Paint.Font.size = 10
+
    .Font.size = 10
−
  Paint.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
+
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
−
+
    .End
−
  Paint.End
+
  End With
 
   
 
   
 
   p = i.Picture  ''<Font Color= #006400>' trasformiamo l'immagine da "Image" a "Picture"....</font>
 
   p = i.Picture  ''<Font Color= #006400>' trasformiamo l'immagine da "Image" a "Picture"....</font>
 
   
 
   
−
+
  PictureBox1.Picture = p  ''<Font Color= #006400>' ...per poterla mostrare in una PictureBox''</font>
−
  PictureBox1.Picture = p  ''<Font Color= #006400>' ...per poterla mostrare in una PictureBox''</font>
 
 
   
 
   
 
  '''End'''
 
  '''End'''
Riga 38: Riga 37:
 
   p = picture.load("fileImmagine.gif")  ''<Font Color= #006400>' carichiamo una immagine''</font>
 
   p = picture.load("fileImmagine.gif")  ''<Font Color= #006400>' carichiamo una immagine''</font>
 
   
 
   
−
    Paint.begin(p)
+
  With Paint
−
 
+
    .begin(p)
−
  Paint.Font.size = 10
+
    .Font.size = 10
−
  Paint.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
+
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
−
+
    .End
−
  Paint.End
+
  End With
 
   
 
   
−
  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'''
Riga 52: Riga 51:
  
 
Esempio con la classe '''<Font Color= #B22222>Draw</font>''':
 
Esempio con la classe '''<Font Color= #B22222>Draw</font>''':
−
  '''Public''' Sub Button2_Click()
+
  '''Public''' Sub Button1_Click()
 
   
 
   
 
   Dim p As Picture
 
   Dim p As Picture
Riga 58: Riga 57:
 
   p = picture.load("fileImmagine.gif")  ''<Font Color= #006400>' carichiamo una immagine''</font>
 
   p = picture.load("fileImmagine.gif")  ''<Font Color= #006400>' carichiamo una immagine''</font>
 
   
 
   
−
    Draw.begin(p)
+
  With Draw
−
 
+
    .begin(p)
−
  Draw.Font.size = 10
+
    .Font.size = 10
−
  Draw.DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
+
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
−
+
    .End
−
  Draw.End
+
  End With
 
   
 
   
 
   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 16:43, 16 mag 2013

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("fileImmagine.gif")   ' carichiamo una immagine

  With Paint
    .begin(i)
    .Font.size = 10
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
    .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("fileImmagine.gif")   ' carichiamo una immagine

  With Paint
    .begin(p)
    .Font.size = 10
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
    .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("fileImmagine.gif")   ' carichiamo una immagine

  With Draw
    .begin(p)
    .Font.size = 10
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
    .End
  End With

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

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Inserire_del_testo_in_una_Image_ed_in_una_Picture&oldid=12827"