Перевод в черно-белое
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- Sirik
- Perspicaz
-
- Сообщения: 2280
- Зарегистрирован: 19.02.2004 (Чт) 16:09
- Откуда: Бердичев, Украина
Перевод в черно-белое
Sirik » 01.06.2004 (Вт) 9:02
Возможно ли средствами VB перевести цветную картинку (BMP) в черно-белое?
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 01.06.2004 (Вт) 9:07
d=createcompatibledc(picture.hdc)
b=createbitmap(w,h,1,1,byval 0&)
deleteobject selectobject(d,b)
bitblt [с picture.hdc на d]
bitblt [обратно]
deletedc d
deleteobject b
b=createbitmap(w,h,1,1,byval 0&)
deleteobject selectobject(d,b)
bitblt [с picture.hdc на d]
bitblt [обратно]
deletedc d
deleteobject b
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- Sirik
- Perspicaz
-
- Сообщения: 2280
- Зарегистрирован: 19.02.2004 (Чт) 16:09
- Откуда: Бердичев, Украина
Sirik » 01.06.2004 (Вт) 10:08
GSerg писал(а):d=createcompatibledc(picture.hdc)
b=createbitmap(w,h,1,1,byval 0&)
deleteobject selectobject(d,b)
bitblt [с picture.hdc на d]
bitblt [обратно]
deletedc d
deleteobject b
А можно немного по подробней...
Допустим у меня на форме есть Picture1. Надо чтобы в Picture2 был тотже рисунок но черно-белый.
Да, забыл сказать, рисунок в Picture1 заливается оператором PaintPicture, при этом исползуется Scale.
Так можешь помощь?
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, PetalBot и гости: 4