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...)
 
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale caratere in una immagine, e così procedendo alla rotazione di quest'ultima.
+
Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale carattere in una immagine, e così procedendo alla rotazione di quest'ultima.
 +
<BR>L'immagine potrà essere creata al momento ''ad hoc'' per contenere semplicemente il carattere.
  
−
 
+
Esempio di rotazione del carattere "d" in modo da farlo apparire "b" in un immagine:
−
Esempio:
+
  Public Sub Button1_Click()
−
  '''Public''' Sub Button1_Click()
 
−
 
−
  Dim a As New Image
 
−
  Dim b As New Picture
 
 
   
 
   
−
<FONT color=#006400>' ''viene caricata un'immagine:''</font>
+
  Dim im As Image
−
  a = a.Load("immagine.xxx")
+
  Dim pc As New Picture
 
   
 
   
−
  With Paint
+
<FONT color=gray>' ''Viene creata un'immagine, ad esempio, con fondo trasparente:''</font>
−
    .Begin(a)
+
  im = New Image(15, 20, &FFFFFFFF)
−
    .Font.Size = 26
 
 
   
 
   
−
  <FONT color=#006400>' ''viene inserito il carattere nell'immagine caricata:''</font>
+
  With Paint
−
    .DrawText(String.Chr(&1D160))
+
    .Begin(im)
−
    .End
+
    .Font.Size = 12
−
  End With
+
  <FONT color=gray>' ''Viene inserito il carattere "d" nell'immagine creata:''</font>
 +
    .DrawText("d", 2, 1, im.W, im.H)
 +
    .End
 +
  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 sull'asse verticale dell'immagine. Se viene posto a True il secondo parametro, si avrà una rotazione speculare verticale sull'asse orizzontale dell'immagine.''
−
' ''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:''</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 mostrata in una "PictureBox":''</font>
−
    b = a.Picture
+
  PictureBox1.Image = im
−
 
−
<FONT color=#006400>' ''...affinché venga mostrata all'interno di una "PictureBox":''</font>
 
−
    PictureBox1.Picture = b
 
 
   
 
   
−
  '''End'''
+
  End

Versione attuale delle 14:49, 3 lug 2024

Ruotare specularmente un carattere attualmente è possibile soltanto inserendo tale carattere in una immagine, e così procedendo alla rotazione di quest'ultima.
L'immagine potrà essere creata al momento ad hoc per contenere semplicemente il carattere.

Esempio di rotazione del carattere "d" in modo da farlo apparire "b" in un immagine: 

Public Sub Button1_Click()

 Dim im As Image
 Dim pc As New Picture

' Viene creata un'immagine, ad esempio, con fondo trasparente:
 im = New Image(15, 20, &FFFFFFFF)

 With Paint
   .Begin(im)
   .Font.Size = 12
' Viene inserito il carattere "d" nell'immagine creata:
   .DrawText("d", 2, 1, im.W, im.H)
   .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 mostrata in una "PictureBox":
  PictureBox1.Image = im

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