"Линза" на VB6

Обсуждение проектов наших жителей.
Вы можете выставить проект на тест или найти помощников для его реализации.

Модератор: BV

The trick
Постоялец
Постоялец
 
Сообщения: 774
Зарегистрирован: 26.06.2010 (Сб) 23:08

"Линза" на VB6

Сообщение The trick » 11.03.2014 (Вт) 11:20

С помощью этой программы можно просматривать под увеличением определенный участок экрана, увеличение можно изменять колесиком, выход - ESC.
Изображение
У вас нет доступа для просмотра вложений в этом сообщении.
UA6527P

Don Leno
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 421
Зарегистрирован: 13.10.2013 (Вс) 14:05

Re: "Линза" на VB6

Сообщение Don Leno » 24.03.2015 (Вт) 5:10

А как терь выдернуть эту функцию и сделать ее отдельной. Что то вроде такого:
Sub Lupa (pic as std stdPicture, Strength as single). Чтоб эффект можно было применять к любой картинке.
Пытался выдернуть код, но провода еще какие-то оставались)))
Единственное что пока смог это отучить форму от скроллинга. Как я понял Prepare - копирует участок с изображением, а MaxLens - создает эффект искажения. Вопрос: как мне все это соединить для работы с рисунком, убрав все что связано с формой.

Don Leno
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 421
Зарегистрирован: 13.10.2013 (Вс) 14:05

Re: "Линза" на VB6

Сообщение Don Leno » 29.03.2015 (Вс) 12:12

Trick, спасибо тебе за этот эффект, у меня получилось вырезать функцию и использовать под свои нужды. К сожалению, не получилось создать эффекта вращающейся планеты, но сама функция мне будет очень полезна!!)))))

Только вырезаная функция превосходно работает с Пиктуребоксом, а с DC созданным через Апи не получилось реализовать((( А хочется чтоб работала без Пиктуребоксов...

Вот вырезаная функция:
У вас нет доступа для просмотра вложений в этом сообщении.


Вернуться в Наши проекты

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7

    TopList