Differenze tra le versioni di "Ruotare specularmente una immagine ed un carattere"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Ruotare ''specularmente'' un carattere attualmente è possibile soltanto inserendo tale | + | 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: | + | Esempio di rotazione del carattere "d" in modo da farlo apparire "b" in un immagine: |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
| Riga 8: | Riga 9: | ||
Dim pc As New Picture | Dim pc As New Picture | ||
| − | <FONT color=gray>' '' | + | <FONT color=gray>' ''Viene creata un'immagine, ad esempio, con fondo trasparente:''</font> |
| − | im = Image | + | im = New Image(15, 20, &FFFFFFFF) |
With Paint | With Paint | ||
.Begin(im) | .Begin(im) | ||
| − | .Font.Size = | + | .Font.Size = 12 |
| − | + | <FONT color=gray>' ''Viene inserito il carattere "d" nell'immagine creata:''</font> | |
| − | <FONT color=gray>' '' | + | .DrawText("d", 2, 1, im.W, im.H) |
| − | .DrawText( | ||
.End | .End | ||
End With | End With | ||
Versione delle 06:02, 9 dic 2014
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 trasformata in una Picture, affinché venga mostrata in una "PictureBox":
PictureBox1.Picture = im.Picture
End
