Размер изображения

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Конь
Постоялец
Постоялец
 
Сообщения: 650
Зарегистрирован: 02.06.2006 (Пт) 6:49
Откуда: г. Красноярск

Размер изображения

Сообщение Конь » 14.01.2007 (Вс) 1:44

Значит проблема такая. Нужно уменьшить (увеличить) размер изображения (ширина, высота). И такое измененное изображение записать в файл. Как можно это реализовать?
Подпись находится в стадии разработки...

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 14.01.2007 (Вс) 1:48

Через GDI+ :-D
Изображение

Конь
Постоялец
Постоялец
 
Сообщения: 650
Зарегистрирован: 02.06.2006 (Пт) 6:49
Откуда: г. Красноярск

Сообщение Конь » 14.01.2007 (Вс) 1:50

Так и предполагал :)
А не подскажешь, какие функции использовать?
Подпись находится в стадии разработки...

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 14.01.2007 (Вс) 2:10

Изображение

Alexanbar
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1727
Зарегистрирован: 13.04.2004 (Вт) 23:04
Откуда: Волгоградская обл.

Сообщение Alexanbar » 14.01.2007 (Вс) 2:17

Можно и через gdi без плюса.
см. StretchBlt

В GDI+ можно использовать GdipGetImageThumbnail для получения миниатюр изображения.

См. также информацию по GDI+ http://www.com.it-berater.org/GdiPlus/GdiPlus.htm

-=TsA=-
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 142
Зарегистрирован: 21.09.2004 (Вт) 14:32
Откуда: Татарстан, Заинск

Сообщение -=TsA=- » 14.01.2007 (Вс) 20:47

На вскидку:
На форму бросаем PictureBox,
Код: Выделить всё
With Picture1
.ScaleMode = vbPixels
'Выставляем требуемый размер
.Height=120
.Width=160
'Загружаем рисунок:
.PaintPicture LoadPicture(FileNamePicture), 0, 0, .ScaleWidth, .ScaleHeight
'Сохроняем измененый рисунок
SavePicture(.Image, NewFileNamePicture)
End With

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 14.01.2007 (Вс) 23:15

Ох уж этот GDI+ :|

Вначале делаем как здесь, потом сохраняем (например, просто через SavePicture) в файл.
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;


Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 105

    TopList