Сплюснуть изображение

[aave]

Всем добрый день! Нужно "сплюснуть" изображение. Причём если для GraphicsPath есть такое решение:

Код: Выделить всё

Dim myMatrix As New Matrix(1, 0, 0, 1, 0, 0)
myMatrix.Scale(1.0F, 0,5F)
myPath.Transform(myMatrix)

то для изображений, в частности класса Image, я не нашёл решения. Кто-то может подсказать, как можно средствами языка изменить соотношение сторон изображения, сплюснуть или растянуть картинку (bitmap)?

[Qwertiy]

Вот, например. Да и вообще, изучай метод DrawImage.
А ещё, есть вероятность, что можно применить New Bitmap с нужными параметрами.

[Admiralisimys]

aave для подобных целей свойство Transform можно найти у объекта типа Graphics которым требуется отрисовать экземпляр класса Image.

Код: Выделить всё

Protected Overrides Sub OnPaint(ByVal pea As PaintEventArgs)
   Dim myMatrix As New Matrix(1, 0, 0, 1, 0, 0)
   myMatrix.Scale(1.0F, 0.5F)
   pea.Graphics.Transform = myMatrix
   pea.Graphics.DrawImage(img, Point.Empty)
End Sub