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

Da Gambas-it.org - Wikipedia.
 
(11 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
 +
Sia nel caso in cui si debba inserire una stringa di caratteri in un'Oggetto di tipo ''Image'' che in un'Oggetto di tipo ''Picture'', si utilizzerà la Classe "'''''Paint''''' ".
 +
 +
Si dovrà avere cura di impostare l'Oggetto, sul quale disegnare, assegnando l'Oggetto ''Image'' o l'Oggetto ''Picture'' come argomento nel Metodo ".Begin()" della Classe ''Paint''.
 +
 
==Inserire dei caratteri testuali in una ''Image''==
 
==Inserire dei caratteri testuali in una ''Image''==
−
 
−
In questo caso si potrà utilizzare la Classe "'''''Paint'''''":
 
  
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
−
   Dim i As Image
+
   Dim im As Image
−
  Dim p As Picture
 
−
 
−
  i = Image.load("fileImmagine.gif")  ''<Font Color= #006400>' carichiamo una immagine''</font>
 
 
   
 
   
−
  With Paint
+
  im = Image.load("<Font Color=gray>''/percorso/del/file/immagine''</font>")
−
    .begin(i)
 
−
    .Font.size = 10
 
−
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
 
−
    .End
 
−
  End With
 
 
   
 
   
−
  p = i.Picture   ''<Font Color= #006400>' trasformiamo l'immagine da "Image" a "Picture"....</font>
+
   With Paint
 +
    <FONT Color=#B22222>.Begin</font>(im)
 +
    .Font.size = 10
 +
    .Brush = .Color(Color.Red)
 +
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, Align.Center)
 +
    .End
 +
  End With
 
   
 
   
−
  PictureBox1.Picture = p  ''<Font Color= #006400>' ...per poterla mostrare in una PictureBox''</font>
+
<Font Color=gray>' ''Mostra il risultato in una PictureBox:''</font>
 +
  PictureBox1.Image = im
 
   
 
   
 
  '''End'''
 
  '''End'''
−
 
−
 
  
 
==Inserire caratteri testuali in una ''Picture''==
 
==Inserire caratteri testuali in una ''Picture''==
−
 
−
In quest'altro caso si potrà utilizzare la Classe "'''''Paint'''''"  oppure la Classe "'''''Draw'''''".
 
−
 
−
 
−
Esempio con la classe '''<Font Color= #B22222>Paint</font>''':
 
−
'''Public''' Sub Button1_Click()
 
−
 
−
  Dim p As Picture
 
−
 
−
  p = picture.load("fileImmagine.gif")  ''<Font Color= #006400>' carichiamo una immagine''</font>
 
−
 
−
  With Paint
 
−
    .begin(p)
 
−
    .Font.size = 10
 
−
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, 3)
 
−
    .End
 
−
  End With
 
−
 
−
  PictureBox1.Picture = p  ''<Font Color= #006400>' mostriamo il risultato in una PictureBox''</font>
 
−
 
−
'''End'''
 
−
 
−
 
−
 
−
Esempio con la classe '''<Font Color= #B22222>Draw</font>''':
 
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
 
   Dim p As Picture
 
   Dim p As Picture
 
   
 
   
−
  p = picture.load("fileImmagine.gif")  ''<Font Color= #006400>' carichiamo una immagine''</font>
+
  p = Picture.load("<Font Color=gray>''/percorso/del/file/immagine''</font>")
 
   
 
   
−
  With Draw
+
  With Paint
−
    .begin(p)
+
    <FONT Color=#B22222>.Begin</font>(p)
−
    .Font.size = 10
+
    .Font.size = 10
−
    .Text("Testo qualsiasi", 10, 10, 100, 100, 3)
+
    .Brush = .Color(Color.Blue)
−
    .End
+
    .DrawText("Testo qualsiasi", 10, 10, 100, 100, Align.Center)
−
  End With
+
    .End
 +
  End With
 
   
 
   
−
  PictureBox1.Picture = p  ''<Font Color= #006400>' mostriamo il risultato in una PictureBox''</font>
+
<Font Color=gray>' ''Mostra il risultato in una PictureBox:''</font>
 +
  PictureBox1.Picture = p
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione attuale delle 14:44, 29 mag 2023

Sia nel caso in cui si debba inserire una stringa di caratteri in un'Oggetto di tipo Image che in un'Oggetto di tipo Picture, si utilizzerà la Classe "Paint ".

Si dovrà avere cura di impostare l'Oggetto, sul quale disegnare, assegnando l'Oggetto Image o l'Oggetto Picture come argomento nel Metodo ".Begin()" della Classe Paint.

Inserire dei caratteri testuali in una Image

Public Sub Button1_Click()

 Dim im As Image

 im = Image.load("/percorso/del/file/immagine")

 With Paint
   .Begin(im)
   .Font.size = 10
   .Brush = .Color(Color.Red)
   .DrawText("Testo qualsiasi", 10, 10, 100, 100, Align.Center)
   .End
 End With

' Mostra il risultato in una PictureBox:
 PictureBox1.Image = im

End

Inserire caratteri testuali in una Picture

Public Sub Button1_Click()

 Dim p As Picture

 p = Picture.load("/percorso/del/file/immagine")

 With Paint
   .Begin(p)
   .Font.size = 10
   .Brush = .Color(Color.Blue)
   .DrawText("Testo qualsiasi", 10, 10, 100, 100, Align.Center)
   .End
 End With

' Mostra il risultato in una PictureBox:
 PictureBox1.Picture = p

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