Проблема с графикой!

[Uma]

Как можно сжать размер растрового рисунка и потом помеcтить его в элемент управления Image (при этом этот файл загружен в Image)
Например: Имеется рисунок с размером 400х200, я его хочу сжать размер до 100х50, при этом сохраняя пропорции рисунка, далле записать его в файл.
Помогите если кто сможет и конечно же если не трудно!
[/quote][/b]

[SergeySV]

Как можно сжать размер растрового рисунка и потом помеcтить его в элемент управления Image (при этом этот файл загружен в Image)
Например: Имеется рисунок с размером 400х200, я его хочу сжать размер до 100х50, при этом сохраняя пропорции рисунка, далле записать его в файл.
Помогите если кто сможет и конечно же если не трудно!

[/b][/quote]

Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

подробнее смотри в API-Guide...

[Mikle]

API, конечно, хорошо, но VB может это делать сам. У Image есть свойство Stretch (что-то вроде) - позволяет автоматически масштабировать его под нужный размер. А можно вместо Image использовать Picture и масштабировать с помощью PaintPicture.
Пример немного на другую тему я уже приводил:
http://www.tuapse-mikle.narod.ru/pic.zip