Конференция VBStreets

**Алекс** » 18.06.2003 (Ср) 15:41

Как разрезать картинку прямо в проге и раскидать куски по Image'ам

**Александр Андреев** » 18.06.2003 (Ср) 16:38

А картинка в виде файла или она уже на форме висит?

**Алекс** » 19.06.2003 (Чт) 8:42

В виде файла

А какая разница??

**zzoom** » 19.06.2003 (Чт) 9:23

Используй BitBlt

Код: Выделить всё: Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC 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 dwRop As Long) As Long

Только Imag'ы не подойдут у них DC нету, можешь по PictureBox'ам раскидать или прямо по форме

**kashey** » 19.06.2003 (Чт) 11:33

ЧТО ТО Я НЕ СОВСЕМ ПОНЯЛ :shock:

если можно примерчик (только не на мыло)

**Mikle** » 19.06.2003 (Чт) 15:53

PaintPicture позволяет напечатать на одну картинку любой фрагмент другой. API не требуется.

**zzoom** » 19.06.2003 (Чт) 18:22

http://www.vbstreets.ru/default.asp?page=library&type=old&id=bitblt_rus - советую почитать, очень неплохая статья о блитинге (тут же и пример)

**Алекс** » 21.06.2003 (Сб) 7:46

А нельзя более конкретным примером.
Например разрезать картинку 2 линиями по вертикали на три равные части и потом раскидать по PictureBox'ам.

**Rainbow** » 21.06.2003 (Сб) 12:51

тебе же Mikle ответил, как сделать
держи примерчик

Код: Выделить всё: Dim x As IPictureDisp, i As Long Set x = LoadPicture("с:\MyPic.jpg") Dim nWidthInTwips As Long, nHeightInTwips As Long For i = 0 To 2 nWidthInTwips = Picture1(i).ScaleX(x.width, vbHimetric, vbTwips) nHeightInTwips = Picture1(i).ScaleY(x.Height, vbHimetric, vbTwips) Picture1(i).width = nWidthInTwips \ 3 Picture1(i).Height = nHeightInTwips Picture1(i).PaintPicture x, 0, 0, nWidthInTwips \ 3, nHeightInTwips, i * (nWidthInTwips \ 3), 0, nWidthInTwips \ 3, nHeightInTwips Next

Picture1 - массив PictureBox'ов

**Mikle** » 21.06.2003 (Сб) 14:23

Во! Пока я писал примерчик, Rainbow уже ответил. Вот рабочий вариант. Загружает Picture, вырезает из него любой фрагмент, при необходимости масштабирует и сохраняет.

http://www.tuapse-mikle.narod.ru/pic.zip

**Алекс** » 23.06.2003 (Пн) 12:05

Спасибо Mikle классный пример!!!
RAinbow ты уж не обижайся, но не пашет твой код...

**gaidar** » 07.08.2003 (Чт) 19:39

Алекс писал(а):RAinbow ты уж не обижайся, но не пашет твой код...

Однако, елси подумать, то его очень легко заставить работать.

**FaKk2** » 07.08.2003 (Чт) 20:30

Mikle писал(а):Во! Пока я писал примерчик, Rainbow уже ответил.

Не я один ошибаюсь

**GoGosha** » 07.08.2003 (Чт) 20:45

сели тебе нади именно в ИМЕДЖИ используй мою длл - Dllpset - рулезная весчь (или alpha24) http://bbs.vbstreets.ru/download.php?id=148

Конференция VBStreets

Вырезать кусок картинки в проге

Вырезать кусок картинки в проге

Кто сейчас на конференции