Mám dojem, že jste se ptal, jak vykreslit text pod nějakým úhlem. Odpověděl jsem, že se musí nastavit transformace. S obrázkem je to naprosto stejné - nastavíte transformaci a vykreslíte obrázek:
Dim img As Image = Image.FromFile("c:\img.jpg")
With PictureBox1.CreateGraphics
.TranslateTransform(img.Width / 2, img.Height / 2)
.RotateTransform(30)
.DrawImage(img, 50, 50)
.ResetTransform()
End With
Posunutí musíte nastavit na střed obrázku (tzn. polovina šířky a poloviny výšky), rotaci nastavíte o požadovaný počet stupňů a nakonec obrázek vykreslíte.
|