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...)
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