Ruotare una immagine sul proprio asse centrale
Per ruotare un'immagine rigorosamente intorno al proprio asse centrale (isometria diretta), mantenendo in modo costante e coerente la sua distanza dal Controllo che contiene l'Oggetto "Image", possiamo adottare alcune modalità.
Uso del Metodo ".Rotate()" della Classe Image
Innanzitutto si potrà utilizzare una "PictureBox" e il solo Metodo ".Rotate()" della Classe "Image".
Va sottolineato che la "PictureBox" deve avere la Proprietà ".Alignment" impostata ad "Align.Center".
Public Sub Button1_Click()
Dim r As Short
While True
With PictureBox1
.Image = Image.Load("/percorso/del/file/immagine")
.Alignment = Align.Center
.W = PictureBox1.Image.W
.H = PictureBox1.Image.H
.Image = .Image.Rotate(Rad(r))
End With
Wait 0.01
Inc r
If r == 360 Then r = 0
Wend
End
Uso di una PictureBox e di un Contenitore HSplit
Un'altra modalità prevede ancora l'uso di una PictureBox e del Contenitore HSplit.
Anche in questo caso la PictureBox deve avere la Proprietà ".Alignment" impostata ad "Align.Center".
Mostriamo un semplice e pratico esempio:
Public Sub Form_Activate()
Dim im As Image
Dim hs As HSplit
Dim pbx As PictureBox
Dim s As Short
im = Image.Load("/percorso/del/file/immagine")
With hs = New HSplit(Me)
.X = 20
.Y = 20
.W = im.W
.H = im.H
End With
With pbx = New PictureBox(hs)
.Alignment = Align.Center
.Expand = True
.Image = im
End With
Do
For s = 0 To 360
pbx.Image = im.Rotate(Rad(s))
Wait 0.01
Next
Loop
End
Per effettuare la rotazione al contrario la riga del ciclo "For" sarà impostata come segue:
For s = 0 To -360 Step -1
Uso di una DrawingArea e dei Metodi ".Rotate()" e ".Translate()" della Classe "Paint"
Un'altra modalità prevede l'uso di una DrawingArea e dei Metodi ".Rotate()" e ".Translate()" della Classe "Paint". [Nota 1]
La rotazione dell'immagine viene esercitata dal metodo
Paint.Rotate(Rad(valore_in_gradi))
Se si intende ruotare l'immagine in senso orario, bisognerà porre valori negativi dei gradi: Paint.Rotate(Rad(-valore_in_gradi)).
Nel seguente esempio pratico, una immagine di uguali dimensioni sarà ruotata verso destra o verso sinistra premendo i tasti della tastiera "freccia in su" e "freccia in giù":
Private DrawingArea1 As DrawingArea
Private im As Image
Private ang As Float
Public Sub Form_Open()
im = Image.Load("/percorso/del/file/immagine")
With Me
.W = im.W * 3
.H = im.H * 2
.Center
.Arrangement = Arrange.Fill
End With
With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
.x = 0
.Y = 0
.Background = Color.White
End With
End
Public Sub DrawingArea1_Draw()
With Paint
' Imposta il fulcro/punto della rotazione - ad esempio -al centro dell'area di disegno:
.Translate(DrawingArea1.W / 2, DrawingArea1.H / 2)
' Ruota l'immagine:
.Rotate(Rad(ang))
' Siccome l'angolo ruota su se stesso, si dà alle coordinate dell'immagine mezza dimensione negativa di se stessa.
' Non si devono modificare i valori né i segni degli ultimi quattro argomenti qui riportati.
.DrawImage(im, -im.W / 2, -im.H / 2, -im.W, -im.H)
.End
End With
End
Public Sub Form_KeyPress()
Select Case Key.Code
Case Key.Up
ang += 1
If ang = 361 Then ang = 1
Case Key.Down
ang -= 1
If ang = -361 Then ang = -1
End Select
DrawingArea1.Refresh
End
Public Sub Form_Resize() ' Con questo evento se cambia la dimensione del Form, il disegno non va perso
DrawingArea1.Refresh
End
Note
[1] Vedere anche queste pagine: