Готовые решения и полезные коды на Visual Basic 6.0 - VB - Страница 4

@Pro_grammer · 10.12.2013, 09:14

Программа, наглядно демонстрирующая процессы сортировки массива некоторыми популярными методами. Может использоваться для обучения и объяснения сути сортировки. Для лучшего восприятия сортировка сопровождается звуковыми эффектами.

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

Подчеркну, что код не предназначен для обучения программированию! Писался сумбурно, методом добавления и копипаста различных способов сортировки, плохо комментирован.

@The trick · 21.12.2013, 23:16

Многострочность стандартного тултипа (VB6)
Стандартный тултип (свойство ToolTipText контролов) не поддерживает многострочный текст и весь текст выводит в одну строку. Предлагаю модуль, в котором реализована поддержка "многострочности" стандартным тултипом, на основе сабклассинга окна тултипа. Можно в принципе и цвет и дизайн тултипа поменять если есть желание, я оставил стандартным; также можно добавить выравнивание по ширине (дабы не городить много кода я оставил выравнивание по центру), прокомментирована практически каждая строчка. Останавливать проект кнопкой после запуска "хука" нельзя, иначе рухнет среда (у меня Win7(64), не рушится; на XP всегда вылетало), нужно закрывать окно и вызывать Unhook.
Многострочность стандартного тултипа (VB6)

@The trick · 23.12.2013, 04:42

Многопоточность на примере фрактала Julia (VB6) Мне очень нравятся фракталы и фрактальные множества. Написал несколько тестовых программ, где можно генерировать и менять параметры у разных фракталов. В этом примере можно генерировать множество Жюлиа а также менять все параметры генерации (в том числе загружать палитру из картинок). Чтобы программа не подвисала, я генерацию и отрисовку засунул в другой поток. Пример не работает в IDE, работает в скомпилированном виде.
Многопоточность на примере фрактала Julia (VB6)

@The trick · 23.12.2013, 11:29

Пример многопоточности VB6
В примере показана возможность работы с потоками в VB6. Можно создать несколько потоков и менять их приоритет (больше TIME_CRITICAL ставить на свой страх и риск, я поставил пришлось кнопкой выключать комп). Работает только в скомпилированном варианте.
Пример многопоточности VB6

@The trick · 30.12.2013, 03:18

Елка.
Еще раз всех с наступающим! Вот смастерил елку на рабочий стол.

Готовые решения и полезные коды на Visual Basic 6.0

Елка.rar

@The trick · 14.01.2014, 01:45

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

@Антихакер32 · 16.01.2014, 13:13

Цветной ComboBox

Представляю вашему вниманию исходники контрола,
результат нашего совместного труда с пользователем The Trick.
Контрол который по поведению похож на обычный ComboBox
но с возможностью добавлять/изменять цвета в свой список

внизу скриншоты и архив с некомпилированным исходником:

@Антихакер32 · 16.01.2014, 22:20

Комплекс диалогов

Стандартные диалоги такие как
Обзор // Сохранение // Цвет
Реализованны в одном OCX
и вызываемые с попощью API

Исходники

но внутри архива есть и скомпилированный OCX..
Для регистрации компонента в вашей системы
воспользуйтесь инструкцией в папке Setup

Скриншот 2

@The trick · 23.01.2014, 11:07

Перехват событий мыши и клавиатуры
Модуль для перехвата сообщений мыши и клавиатуры. Перехватывать можно не только в своем, но и в чужих приложениях. Реализовано с помощью LL хуков.

@The trick · 26.01.2014, 17:06

Внедрение в чужой процесс на VB6 (без DLL)
Пример внедрения приложения, написанного на VB6 в чужое АП и запуска там своего кода.
Внедрение в чужой процесс на VB6 (без DLL)

@The trick · 29.01.2014, 00:51

"Многооконная" многопоточность VB6
В примере можно создать отдельное окно в отдельном потоке, усыпить поток, но он не будет влиять на другие, также можно рисовать на окнах.
https://www.cyberforum.ru/blog... g1965.html

@The trick · 04.02.2014, 01:04

FM-синтезатор на VB6

Как-то давно занимался изучением синтеза звука, в частности FM (частотная модуляция) методом. Была написана тестовая программка-синтезатор. Сегодня я ее подправил немного, сделал GUI и т.п.
Характеристики:

6 осцилляторов
6 форм волн
ADSR огибающая для каждого осциллятора
Модуляционная матрица 6x6 + 6 для вывода звука.
Гейт на 16 частей с регулировкой жесткости

В общем, полноценный FM синтезатор.

@The trick · 09.02.2014, 19:30

Наглядный пример FM (PM) синтеза на VB6
Форму волны можно визуально наблюдать, это базовый принцип работы многих FM синтезаторов. Каждым элементом можно регулировать воздействие модулятора.
https://www.cyberforum.ru/blog... g2015.html

@The trick · 12.02.2014, 01:22

Запись данных в ресурсы своего EXE из "себя"
Бывают ситуации, когда хочется где-то сохранить данные после работы программы, но не хочется иметь внешних файлов-зависимостей, записей в реестре и т.п. Зато можно хранить данные в своем EXE, но Windows не позволяет писать в работающий EXE (NTFS потоки не рассматриваю), и любая попытка будет отвергнута с ошибкой ERROR_ACCESS_DENIED. Но если процесс завершить, то можно из другого процесса уже в него спокойно записывать данные. Вот по этому пути я и решил пойти.

@The trick · 18.02.2014, 22:20

Реализация поддержки For each цикла для свое класса.
Стандартными средствами VB6 нельзя сделать поддержку классом перечисления с помощью цикла For each для произвольного класса, только для некоторых готовых (коллекции, словари и т.п. через NewEnum). Для обычного массива например, или связанного списка такое не прокатит. В примере реализована поддержка и немного рассказывается о работе For each цикла изнутри

@Антихакер32 · 19.02.2014, 21:18

Диалоги OCX

После произведенных мною, исправлений и модификаций
выкладываю исходник, OCX, который я выкладывал ранее,
но теперь он не использует библиотеку Microsoft Scripring Runtime
а все реализации производит своими классами
отдельное спасибо за это пользователю The Trick
и как бонус, я вложил в архив мою утилиту StyleCreator32
которая создаёт шаблонный проект VB6, с полезными наворотами
такими как полу-прозрачность и прочее.. я её так-же подправил
пользуйтесь на здоровье,
надеюсь програмирование на VB, для вас станет проще

@The trick · 20.02.2014, 02:17

"Линза" на VB6
С помощью этой программы можно просматривать под увеличением определенный участок экрана, увеличение можно изменять колесиком, выход - ESC

@Казанский · 21.02.2014, 21:12

Коллекция быстрых алгоритмов для работы со строками, массивами, отдельными битами, цветами

http://www.xbeat.net/vbspeed/

Для каждой задачи представлено несколько вариантов решения, проведено сравнение скорости работы.
Используются как средства языка VB6, так и функции WinAPI. Однако, не всегда применение функций WinAPI дает преимущество.

Пример: изменение порядка байтов на противоположный в 4-байтовом слове (big-endian <-> little-endian), SwapEndian(&H1245678) --> &H78563412

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function SwapEndian01(ByVal dw As Long) As Long
' by Anonymous, not dated
  CopyMemory ByVal VarPtr(SwapEndian01) + 3, dw, 1
  CopyMemory ByVal VarPtr(SwapEndian01) + 2, ByVal VarPtr(dw) + 1, 1
  CopyMemory ByVal VarPtr(SwapEndian01) + 1, ByVal VarPtr(dw) + 2, 1
  CopyMemory SwapEndian01, ByVal VarPtr(dw) + 3, 1
End Function
 
Public Function SwapEndian08(ByVal dw As Long) As Long
' by Mike D Sutton, [email]Mike.Sutton@btclick.com[/email], 20040914
  SwapEndian08 = _
      (((dw And &HFF000000) \ &H1000000) And &HFF&) Or _
      ((dw And &HFF0000) \ &H100&) Or _
      ((dw And &HFF00&) * &H100&) Or _
      ((dw And &H7F&) * &H1000000)
  If (dw And &H80&) Then SwapEndian08 = SwapEndian08 Or &H80000000
End Function

Вывод: Функция SwapEndian01 наиболее популярна, однако она занимает в 20 раз больше времени, чем SwapEndian08.
При этом SwapEndian01 использует RtlMoveMemory, а SwapEndian08 только средства языка.

@The trick · 21.02.2014, 21:45

Не по теме:

Сообщение от Казанский

Функция SwapEndian01 наиболее популярна, однако она занимает в 20 раз больше времени, чем SwapEndian08.

Копировать 1-8 байт через CopyMemory - смертный грех, а так действительно вторая функция будет работать быстрее чем первая - это очевидно.

@Антихакер32 · 24.02.2014, 18:21

ZIP-класс, работа с архивом

До недавнего времени я этим не интересовался,
пока мне не понадобилось в своих программах хранить
множество файлов в архиве, из тех решений
что находил в интернете, отбросил ненужное
и оставил лучшее, там я не использую лишних
библиотек кроме Shell.Application

итак, использование класса:

Создание архива
Добавление в него файлов или папок
Просмотр имен в архиве
Извлечение из архива
Примеры использования

Возможно я еще добавлю туда функций, по этой причине разместил
эту запись в своём блоге

Новые блоги и статьи Все статьи Все блоги /
Свет в конце тоннеля kumehtar 16.06.2026 Поймал себя на одной мысли. Раньше мне всегда казалось неправильным жить без чёткого понимания, куда всё идёт. Будто я иду по дороге судьбы, но не знаю, куда она ведёт. А раз не знаю — значит,. . .	[golang] Реализация стека с поддержкой получения минимального элемента за O(1) alhaos 16.06.2026 155. Min Stack Задача: Реализовать стек который поддерживает push, pop, top и получение минимального элемента за O(1). Методы: NewMinStack() *MinStack — инициализация Push(val int) —. . .	[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .
Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .	[golang] Worker Pool alhaos 09.06.2026 Worker Pool Worker Pool — паттерн конкурентной обработки задач в Go. Суть: фиксированное количество горутин-воркеров читают задачи из общего канала и пишут результаты в общий канал результатов. . . .	[golang] Pipeline alhaos 08.06.2026 Pipeline Pipeline — паттерн конкурентной обработки данных в Go. Суть: данные проходят через цепочку независимых стадий, каждая из которых работает в своей горутине и общается с соседями через. . .	Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	21.12.2013, 23:16
	Многострочность стандартного тултипа (VB6) Стандартный тултип (свойство ToolTipText контролов) не поддерживает многострочный текст и весь текст выводит в одну строку. Предлагаю модуль, в котором реализована поддержка "многострочности" стандартным тултипом, на основе сабклассинга окна тултипа. Можно в принципе и цвет и дизайн тултипа поменять если есть желание, я оставил стандартным; также можно добавить выравнивание по ширине (дабы не городить много кода я оставил выравнивание по центру), прокомментирована практически каждая строчка. Останавливать проект кнопкой после запуска "хука" нельзя, иначе рухнет среда (у меня Win7(64), не рушится; на XP всегда вылетало), нужно закрывать окно и вызывать Unhook. Многострочность стандартного тултипа (VB6) Миниатюры 9

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	23.12.2013, 04:42
	Многопоточность на примере фрактала Julia (VB6) Мне очень нравятся фракталы и фрактальные множества. Написал несколько тестовых программ, где можно генерировать и менять параметры у разных фракталов. В этом примере можно генерировать множество Жюлиа а также менять все параметры генерации (в том числе загружать палитру из картинок). Чтобы программа не подвисала, я генерацию и отрисовку засунул в другой поток. Пример не работает в IDE, работает в скомпилированном виде. Многопоточность на примере фрактала Julia (VB6) Миниатюры 6

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	23.12.2013, 11:29
	Пример многопоточности VB6 В примере показана возможность работы с потоками в VB6. Можно создать несколько потоков и менять их приоритет (больше TIME_CRITICAL ставить на свой страх и риск, я поставил пришлось кнопкой выключать комп). Работает только в скомпилированном варианте. Пример многопоточности VB6 Миниатюры 6

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	30.12.2013, 03:18
	Елка. Еще раз всех с наступающим! Вот смастерил елку на рабочий стол. Елка.rar 23

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	14.01.2014, 01:45
	ComboBox для выбора цветов В своем модуле я реализовал поддержку пользовательской отрисовки в списке. В данном примере выбор цветов. ComboBox для выбора цветов Миниатюры 6

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	23.01.2014, 11:07
	Перехват событий мыши и клавиатуры Модуль для перехвата сообщений мыши и клавиатуры. Перехватывать можно не только в своем, но и в чужих приложениях. Реализовано с помощью LL хуков. Миниатюры 7

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	26.01.2014, 17:06
	Внедрение в чужой процесс на VB6 (без DLL) Пример внедрения приложения, написанного на VB6 в чужое АП и запуска там своего кода. Внедрение в чужой процесс на VB6 (без DLL) Миниатюры 5

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	29.01.2014, 00:51
	"Многооконная" многопоточность VB6 В примере можно создать отдельное окно в отдельном потоке, усыпить поток, но он не будет влиять на другие, также можно рисовать на окнах. https://www.cyberforum.ru/blog... g1965.html Миниатюры 3

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	04.02.2014, 01:04
	FM-синтезатор на VB6 Как-то давно занимался изучением синтеза звука, в частности FM (частотная модуляция) методом. Была написана тестовая программка-синтезатор. Сегодня я ее подправил немного, сделал GUI и т.п. Характеристики: 6 осцилляторов 6 форм волн ADSR огибающая для каждого осциллятора Модуляционная матрица 6x6 + 6 для вывода звука. Гейт на 16 частей с регулировкой жесткости В общем, полноценный FM синтезатор. Миниатюры 3

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	09.02.2014, 19:30
	Наглядный пример FM (PM) синтеза на VB6 Форму волны можно визуально наблюдать, это базовый принцип работы многих FM синтезаторов. Каждым элементом можно регулировать воздействие модулятора. https://www.cyberforum.ru/blog... g2015.html Миниатюры 3

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	12.02.2014, 01:22
	Запись данных в ресурсы своего EXE из "себя" Бывают ситуации, когда хочется где-то сохранить данные после работы программы, но не хочется иметь внешних файлов-зависимостей, записей в реестре и т.п. Зато можно хранить данные в своем EXE, но Windows не позволяет писать в работающий EXE (NTFS потоки не рассматриваю), и любая попытка будет отвергнута с ошибкой ERROR_ACCESS_DENIED. Но если процесс завершить, то можно из другого процесса уже в него спокойно записывать данные. Вот по этому пути я и решил пойти. Миниатюры 7

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	18.02.2014, 22:20
	Реализация поддержки For each цикла для свое класса. Стандартными средствами VB6 нельзя сделать поддержку классом перечисления с помощью цикла For each для произвольного класса, только для некоторых готовых (коллекции, словари и т.п. через NewEnum). Для обычного массива например, или связанного списка такое не прокатит. В примере реализована поддержка и немного рассказывается о работе For each цикла изнутри 3

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	20.02.2014, 02:17
	"Линза" на VB6 С помощью этой программы можно просматривать под увеличением определенный участок экрана, увеличение можно изменять колесиком, выход - ESC Миниатюры 2

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	24.02.2014, 18:21
	ZIP-класс, работа с архивом До недавнего времени я этим не интересовался, пока мне не понадобилось в своих программах хранить множество файлов в архиве, из тех решений что находил в интернете, отбросил ненужное и оставил лучшее, там я не использую лишних библиотек кроме Shell.Application итак, использование класса: Создание архива Добавление в него файлов или папок Просмотр имен в архиве Извлечение из архива Примеры использования Возможно я еще добавлю туда функций, по этой причине разместил эту запись в своём блоге 3