Визуал Бейсик 6 Редактор для художественного рисования

Сделал графический редактор для художественного рисования.
Среда программирования VB6.
Скачать программу и ознакомиться с ней можно здесь - http://yadi.sk/d/bd3PVYUko3qdEA

0

Сообщение от ДмитрийМаштаков в обычной программе Паинт

В этой обычной программе есть вроде как неплохая кисть Акварель? Получше Вашей получается результат.

По крайней мере рисовать в Паинте как то привычнее и более правдоподобнее что ли.
Но Ваш проект мне тоже решительно нравится нестандартным подходом.
Особенно понравился аналог Spin Controls.

Ещё бы на нижней кнопке нарисовать подсказку, в виде стрелочки вниз, было бы идеально.

1

Знаете, я про акварельную кисть в Паинте не знал. Но я пользуюсь старым Паинтом, там такой кисти нет.
У меня Кисть №4 аналог такой кисти, если вектор затекания установить в ноль.
Однако кисть Паинта не проявляет затекающих свойств и скорость утолщения её не регулируется. Прозрачность тоже не регулируется. Кроме того, я не нашёл в Паинте кнопку Cls. Может, плохо искал?
=======
А не поможете мне в такой проблеме:
Программируя анимацию, я использую такие конструкции -

Public Sub C49(T As Integer, I As Integer) 'прокрутка анимации
If TS(I) > 0 Then
Select Case I
Case 1: Form1.Picture1.Picture = Form1.Picture9.Picture: DoEvents: Sleep (T + TS(I)) * 30
Case 2: Form1.Picture1.Picture = Form1.Picture10.Picture: DoEvents: Sleep (T + TS(I)) * 30
Case 3: Form1.Picture1.Picture = Form1.Picture11.Picture: DoEvents: Sleep (T + TS(I)) * 30
и так далее... а вот завершение этой простыни -
Case 41: Form1.Picture1.Picture = Form1.Picture49.Picture: DoEvents: Sleep (T + TS(I)) * 30
Case 42: Form1.Picture1.Picture = Form1.Picture50.Picture: DoEvents: Sleep (T + TS(I)) * 30
End Select: End If
End Sub

Вопрос - а нельзя ли конкретный номер Form1.Picture49.Picture проиндексировать?
Было бы хорошо писать так - Form1.Picture(I+8).Picture

и как это делается, если делается вообще. У меня таких простыночек в программе 6. Больше, как оказалось, не надо.
Но в принципе. Нельзя ли избавиться от них?
Сейчас у меня в программе 42 кадра для рисунков анимации, умножить на 10 папок, куда можно поместить отснятый материал, чтобы организовать в будущем из них сплошное кино, длительностью пару минут.

Добавлено через 11 минут
Насчёт подсказки на нижней кнопке я думал, но у меня много таких кнопок, совершенно одинаковые подсказки тогда зря мельтешить перед глазами будут. И я подумал - пользователь понажимает кнопочки, и разберётся с ними сам.

Добавлено через 15 минут
"стрелочки вниз" нет в шрифте, или VB6 подобные символы отвергает. можно только буквы. На одной из кнопок я поместил букву v, как указатель направления вниз. Делать кнопки с графическими картинками - возни много. Поэтому я текстом обхожусь. Цвет окрашивания кнопок тоже очень помогает. И как сигнал во время работы, просто, чтобы пользователь не перепутал кнопки. Если "ландшафт" интерфейса абсолютно ровный, то это нехорошо.

0

Сообщение от ДмитрийМаштаков Вопрос - а нельзя ли конкретный номер Form1.Picture49.Picture проиндексировать?

Можно. Только это делается на стадии создания. Готовые Picture уже переделать нельзя.
Вы должны создать первый Picture, пусть он будет Picture7. Потом его надо скопировать(ПКМ через контекст меню) и сразу вставить.
VB6 спросит, а не создать ли нам массив таких Picture? Вы отвечаете утвердительно.
И после этого вставляете свои 49 Picture подряд. Они все будут называться Picture7(Index)
Процедура анимации на 50 кадров будет выглядеть так:

Пример реализации:

Вложения

__vbANI.zip (12.0 Кб, 1 просмотров)

1

О, большое спасибо.
У меня в планах сделать для анимации специальную программу. Но это когда некий опыт в достаточно простой анимации приобрету. Тогда попробую.
Посмотрите клип о рисовании морской волны - http://youtu.be/DM-Bu9brVDE
Только что разместил его.

0

Сообщение от ДмитрийМаштаков клип о рисовании морской волны

Довольно интересно. В Вашей программе много различных "фишек", которые сложно применить интуитивно.
Вам нужен обширный файл помощи, или на каждую опцию видео снимать.

1

Сообщение от ДмитрийМаштаков но у меня много таких кнопок, совершенно одинаковые подсказки тогда зря мельтешить перед глазами будут

ещё как достают когда не нужны

это решается просто, добавь чек в настройках и маленькую функцию, tit() это карта со всеми подсказками, ключ он же имя элемента
чек это глобально, он запоминается, ещё делал кнопку которая не запоминалась, но на лету включала/выключала подсказки, оказалось удобно, в проге было много закладок и бегать в настройки не очень, а тут на каждой закладке кнопка, у неё своя неудаляемая подсказка

1

Сообщение от newJS это решается просто

К сожалению ( а может и к счастью!) VB6<>PureBasic

1

Сообщение от Pro_grammer К сожалению ( а может и к счастью!) VB6<>PureBasic

И чё? визуал настолько плох что не может провернуть такой фокус?

0

Сообщение от newJS визуал настолько плох

Об этом разве разговор?

1

А не поможете ещё в таком деле:
У меня в программе 2 размера окна picturebox - маленькое и большое.
Перехожу от одного к другому, меняя свойства Height и Width.
Загружаю картинку маленького формата. Редактирую её в маленьком окне,
запоминаю - SavePicture Picture1.Image,"имя_файла". Получается она по формату маленького окна. И я в общем-то против этого не возражаю.

Однако, если я в процессе работы сделаю окно большим, а потом опять маленьким, то формат запоминания будет соответствовать размеру большого окна.

Вопрос - как сделать так, чтобы запоминаемый файл получался бы размером поменьше?
Когда файл одиночный, то проблем нет - зашёл в Паинт и обрезал его. Но если делать анимацию, то получается масса файлов огромного размера. И это неудобно.

Добавлено через 19 минут
Можно, конечно исхитриться. Поставить дело на поток. Сделать специальную программу с двумя окнами - малюсеньким, и того размера, который нужен.
Затем читать файлы большого формата в окошечко малюсенького размера, потом переписывать методом PaintPicture часть изображения в окно нужного формата, и наконец, запоминать файлы нужным форматом.
Но неужели другого способа нет?
Я походил по поисковику, проблема такая есть, народ интересуется, но вразумительного ответа я не нашёл.

0

Сообщение от ДмитрийМаштаков Однако, если я в процессе работы сделаю окно большим, а потом опять маленьким, то формат запоминания будет соответствовать размеру большого окна. Вопрос - как сделать так, чтобы запоминаемый файл получался бы размером поменьше?

Считаем, что Picture2 больше, чем Picture1.
Тогда так сохранится только видимая часть Picture1:
Если нужно масштабировать изображение, то код сложнее. Сходите на форум по VB6? там есть решение.

1

Спасибо. У меня проблема сама собой рассосалась. Оказалось, что её решение у меня в программе уже есть. Кадры мультфильма, которые видны на форме краешками малюсенького размера
https://www.cyberforum.ru/atta... 1565191056
я запоминаю именно так - копирую их на окно рисунка и запоминая его. Если окно рисунка побывало в большом формате, то файлы получаются большого размера.
Но это ничего - я закрываю редактор, вновь открываю его, загружаю эти файлы и ещё раз запоминаю их. Точно так же - опять через окно рисунка редактора. Но поскольку редактор в режиме большого окна не побывал, то файлы получаются меньшего размера.

Миниатюры

 

0

Аладин, между тем, уже перемещается в пространстве - http://yadi.sk/i/Faz8IH6I0v5g0w
)) и на этом я, пожалуй, закончу. Буду делать что-нибудь другое. Спасибо за помощь в работе.

0

С масштабированием я разобрался только сейчас - http://proza.ru/2020/04/22/1178
Между делом, находясь на карантине, сделал новую версию редактора с неограниченным по размерам поле рисования. Получилось удачно, и в отношении дизайна тоже - http://proza.ru/2020/04/07/1977

0

Ау! Вы там живы ещё? Я имею в виду, форум по Визуал Бейсику ещё работает?
С первых моих проб по компьютерному рисованию много времени прошло. Теперь редактор несколько другой, но интерфейс похожий. Зато масса других возможностей появилось. Например, векторная графика в стереометрии для подготовки к экзаменам ЕГЭ.
Или анимация. Возможности редактора можно видеть тут https://dzen.ru/video/watch/65... 1406496669
Дмитрий.

1

Сообщение от ДмитрийМаштаков форум по Визуал Бейсику ещё работает?

Работает. В чем несложно убедиться.

0

ДмитрийМаштаков, похвально, что работа над приложением ведётся. Но UI очень жестокий. Прямая противоположность словам "удобно" и "интуитивно понятно".

0