Ruotare specularmente una immagine ed un carattere
Vai alla navigazione
Vai alla ricerca
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