Ruotare specularmente una immagine ed un carattere

Da Gambas-it.org - Wikipedia.
Versione del 13 feb 2013 alle 12:31 di Vuott (Discussione | contributi) (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...)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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 a As New Image
 Dim b As New Picture

' viene caricata un'immagine:
  a = a.Load("immagine.xxx")

  With Paint
    .Begin(a)
    .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:
   a.Mirror(False, True)

' l'immagine viene trasformata in una Picture...
   b = a.Picture

' ...affinché venga mostrata all'interno di una "PictureBox":
   PictureBox1.Picture = b

End