Picturebox

[Algol]

Как изменять свойства рисунка (растянуть там, ну и т. д. ), находящегося в Picture.

[Kostyan]

Используй либо свойство PaintPicture, либо функцию StretchBlt, которая наверное быстрее работает.

[Algol]

Расскажи пожалуйста поподробней об этих функциях. Что они конкретно могут делать. Please

[Amed]

PaintPicture позволяет скопировать изображение из одного обёекта со свойством Picture в другой:

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

PictureBox1.PaintPicture PictureBox2.Picture, 0, 0, 2500, 2500

В этом примере в PictureBox1 скопируется картинка из PictureBox2 с растяжением до размеров 2500х2500 твипов.

Вариант со StretchBlt отличается более высокой сложностью, т.к. необходимо знать контекст устройства (hDC), но он в то же время более гибкий и более быстрый.

Пример со StretchBlt:

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

Private 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

StretchBlt PictureBox1.hdc, 0, 0, 50, 50, PictureBox2.hdc, 0, 0, 250, 250, vbSrcCopy

Здесь:
PictureBox1.hdc - то, куда будет копироваться изображение
0 - расстояние от левого края PictureBox1 до изображения в пикселях
0 - расстояние от верхнего края PictureBox1 до изображения в пикселях
50 - ширина изображения в пикселях
50 - высота изображения в пикселях
PictureBox2.hdc - то, откуда будет копироваться изображение
0 - расстояние от левого края PictureBox2 до изображения в пикселях
0 - расстояние от верхнего края PictureBox2 до изображения в пикселях
50 - ширина копируемого куска изображения в пикселях
50 - высота копируемого куска изображения в пикселях
vbSrcCopy - параметр, отвечающий за режим прорисовки. Если интересно, загляни в Object Browser (F2 в Visual Basic) и поищи RasterOpConstants, поэкспериментируй с различными способами отображения. Если не интересно, оставь как есть.

В общем-то, ничего сложного, просто надо привыкнуть...

[Kostyan]

Хочу только добавить, в случае Algol'а вместо PictureBox2 нужно будет поставить тот же PictureBox1, чтобы картинка копировалась тудаже откуда взята (просто меняем её размер или положение).

[NicSoft]

А кто-нибудь знает как работают различные программы навигации по картам. Т.е. когда огромная картинка видимо загружена в память, а на экране только часть. Тоже при помощи StretchBlt и т.п., или там другие технологии

[Algol]

PictureBox1.PaintPicture PictureBox2.Picture, 0, 0, 2500, 2500

По - моему здесь какая-то ошибка?

[Algol]

Пример со StretchBlt:
Private 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

StretchBlt PictureBox1.hdc, 0, 0, 50, 50, PictureBox2.hdc, 0, 0, 250, 250, vbSrcCopy

А это где писать подскажите пожалуйста?

[Amed]

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

Private 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

Вот это писать надо в модуле (только первый оператор не Private, а Public) или в разделе General Declarations формы (в самом верху, там, где глобальные переменные объявляются, но со словом Private)

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

StretchBlt PictureBox1.hdc, 0, 0, 50, 50, PictureBox2.hdc, 0, 0, 250, 250, vbSrcCopy

А это - туда, где должно выполняться копирование
В процедуру или функцию...

Надеюсь, доходчиво объяснил?

[Algol]

Все идет. Спасибо что объяснил.

[Algol]

А как мне можно узнать первоначальные размеры картинки в Picture (ну там Width, Height). Очень надо. Please