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 | + | Dim im As Image |
| − | Dim | + | Dim pc As New Picture |
| − | <FONT color= | + | <FONT color=gray>' ''viene caricata un'immagine:''</font> |
| − | + | im = Image.Load("''/percorso/dell'immagine''") | |
With Paint | With Paint | ||
| − | .Begin( | + | .Begin(im) |
.Font.Size = 26 | .Font.Size = 26 | ||
| − | <FONT color= | + | <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= | + | <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> | ||
| − | + | im.Mirror(False, True) | |
| − | + | ||
| − | <FONT color= | + | <FONT color=gray>' ''L'immagine viene trasformata in una Picture, affinché venga mostrata in una "PictureBox":''</font> |
| − | + | PictureBox1.Picture = im.Picture | |
| − | |||
| − | |||
| − | PictureBox1.Picture = | ||
'''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
