Comment faire pivoter une image à l'intérieur de PictureBox de 20 degrés VB 2015?

Question

Dites, j'ai un PictureBox1 dans mon formulaire. Ce PictureBox a une image, et je veux le faire pivoter. En fait, j'ai appris comment faire pivoter l'image de 90.180.270 .... degré. Mais comment puis-je le faire pivoter de 20 degrés ou 45 degrés?

C'est ce que j'ai apprendre

PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) 

Answer 1

Ma solution:

Public Function RotateImage(ByRef image As Image, ByVal offset As PointF, ByVal angle As Decimal) As Bitmap 
    If image Is Nothing Then 
     Throw New ArgumentNullException("image") 
    End If 
    ''create a new empty bitmap to hold rotated image 
    Dim rotatedBmp As Bitmap = New Bitmap(image.Width, image.Height) 
    'Dim rotatedBmp As Bitmap = New Bitmap(image) 
    rotatedBmp.SetResolution(image.HorizontalResolution, image.VerticalResolution) 
    ''make a graphics object from the empty bitmap 
    Dim g As Graphics = Graphics.FromImage(rotatedBmp) 
    ''Put the rotation point in the center of the image 
    g.TranslateTransform(offset.X, offset.Y) 
    ''rotate the image 
    g.RotateTransform(angle) 
    ''move the image back 
    g.TranslateTransform(-offset.X, -offset.Y) 
    ''draw passed in image onto graphics object 
    'g.DrawImage(image, New PointF(0, 0)) 
    g.DrawImage(image, offset) 
    Return rotatedBmp 
End Function