Differenze tra le versioni di "Ruotare specularmente una immagine ed un carattere"

Da Gambas-it.org - Wikipedia.
(Nuova pagina: Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale caratere in una immagine, e così procedendo alla rotazione di quest'ultima. Esempio: '''Publ...)
 
Riga 5: Riga 5:
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
   Dim a As New Image
+
   Dim im As Image
   Dim b As New Picture
+
   Dim pc As New Picture
 
   
 
   
  <FONT color=#006400>' ''viene caricata un'immagine:''</font>
+
  <FONT color=gray>' ''viene caricata un'immagine:''</font>
   a = a.Load("immagine.xxx")
+
   im = Image.Load("''/percorso/dell'immagine''")
 
   
 
   
 
   With Paint
 
   With Paint
     .Begin(a)
+
     .Begin(im)
 
     .Font.Size = 26
 
     .Font.Size = 26
 
   
 
   
  <FONT color=#006400>' ''viene inserito il carattere nell'immagine caricata:''</font>
+
  <FONT color=gray>' ''viene inserito il carattere nell'immagine caricata:''</font>
 
     .DrawText(String.Chr(&1D160))
 
     .DrawText(String.Chr(&1D160))
 
     .End
 
     .End
 
   End With
 
   End With
 
   
 
   
  <FONT color=#006400>' ''viene effettuata la rotazione speculare dell'immagine.''
+
  <FONT color=gray>' ''viene effettuata la rotazione speculare dell'immagine.''
 
  ' ''La funzione mirror contiene due parametri booleani:''
 
  ' ''La funzione mirror contiene due parametri booleani:''
 
  ' ''se viene posto a True il primo parametro, si avrà una rotazione speculare orizzontale''
 
  ' ''se viene posto a True il primo parametro, si avrà una rotazione speculare orizzontale''
Riga 26: Riga 26:
 
  ' ''una rotazione speculare verticale sull'asse orizzontale dell'immagine.''
 
  ' ''una rotazione speculare verticale sull'asse orizzontale dell'immagine.''
 
  ' ''E' possibile anche, ovviamente, porre a True entrambi i parametri:''</font>
 
  ' ''E' possibile anche, ovviamente, porre a True entrambi i parametri:''</font>
     a.Mirror(False, True)
+
     im.Mirror(False, True)
+
 
  <FONT color=#006400>' ''l'immagine viene trasformata in una Picture...''</font>
+
  <FONT color=gray>' ''L'immagine viene trasformata in una Picture, affinché venga mostrata in una "PictureBox":''</font>
    b = a.Picture
+
     PictureBox1.Picture = im.Picture
 
<FONT color=#006400>' ''...affinché venga mostrata all'interno di una "PictureBox":''</font>
 
     PictureBox1.Picture = b
 
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 10:54, 20 nov 2014

Ruotare specularmente un carattere attualmente è possibile soltanto inserendo tale caratere in una immagine, e così procedendo alla rotazione di quest'ultima.


Esempio:

Public Sub Button1_Click()

 Dim im As Image
 Dim pc As New Picture

' viene caricata un'immagine:
  im = Image.Load("/percorso/dell'immagine")

  With Paint
    .Begin(im)
    .Font.Size = 26

' viene inserito il carattere nell'immagine caricata:
    .DrawText(String.Chr(&1D160))
    .End
  End With

' viene effettuata la rotazione speculare dell'immagine.
' La funzione mirror contiene due parametri booleani:
' se viene posto a True il primo parametro, si avrà una rotazione speculare orizzontale
' sull'asse verticale dell'immagine. Se viene posto a True il secondo parametro, si avrà
' una rotazione speculare verticale sull'asse orizzontale dell'immagine.
' E' possibile anche, ovviamente, porre a True entrambi i parametri:
   im.Mirror(False, True)
 
' L'immagine viene trasformata in una Picture, affinché venga mostrata in una "PictureBox":
   PictureBox1.Picture = im.Picture

End