Image Sizing

[Went]

Как можно загрузить картинку измененного размера в Picture Box... то есть скажем, у меня есть Image Box, у которого свойство Stretch=True, я в него загружаю картинку, размеры которой не соответствуют размерам Image'а. При загрузке размеры естесственно изменяются. Так вот при попытке загрузить ее в Picture размеры возвращаются к исходным... как сделать так, чтобы не возвращались? Короче, мне нужно изменять размеры картинки и сохранять эти изменения.

[Amed]

paintpicture ....
picture1.picture=picture1.image

[Went]

Не-е, от так просто обрезает картинку без изменения ее размера... точнее пропорций.

[Amed]

Если всё сделать _правильно_, то результат будет соответствовать ожиданиям. Код в студию.

[Odrick]

PaintPicture. Почитай внимательно описание. С его помощью как раз и можно (нужно) делать ресайзинг картинок.

[ALX_2002]

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

Dim CANVAS As IPictureDisp
Private Sub Form_load()
ScaleMode = vbPixels
Me.AutoRedraw = True
Set CANVAS = LoadPicture("C:\WINDOWS\На рыбалку.bmp")
End Sub
Private Sub Form_Resize()
CANVAS.Render hDC, 0, ScaleHeight, ScaleWidth, -ScaleHeight, 0, 0, CANVAS.Width, CANVAS.Height, 0
Refresh
End Sub


К сожалению рассчёт пропорций сделать не успел, но вот ресайзинг картинки тебе поможет. Остальное считается через коэффициент соотношения.

[Odrick]

Есть способ проще. Одна строка кода:

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

Picture2.PaintPicture Picture1.Picture, 1, 1, 50, 50, 1, 1, 100, 100, vbSrcCopy


Пример прилагается.

[ALX_2002]

Есть способ проще. Одна строка кода:

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

Picture2.PaintPicture Picture1.Picture, 1, 1, 50, 50, 1, 1, 100, 100, vbSrcCopy


Пример прилагается.

Конечно проще ! , если считать, что картинка уже загружена, и ещё считать, что при растягивании элемента, её растягивать не надо, и ещё считать, что перерисовывать её не надо... и ещё... и т.п

[Odrick]

Конечно проще ! , если считать, что картинка уже загружена,

кто мешает ее загрузить?

и ещё считать, что при растягивании элемента, её растягивать не надо,

по-моему такой задачи в вопросе и не ставилось.

и ещё считать, что перерисовывать её не надо... и ещё... и т.п

Autoredraw никто еще не отменял
ИМХО не нужно изобретать себе лишние проблемы, если можно воспользоваться готовыми решениями.