Форум программистов, компьютерный форум CyberForum.ru

Visual Basic

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 2, средняя оценка - 5.00
Pro_grammer
Модератор
 Аватар для Pro_grammer
5833 / 1993 / 381
Регистрация: 24.04.2011
Сообщений: 3,384
Записей в блоге: 9
10.12.2013, 09:14     Готовые решения и полезные коды на Visual Basic 6.0 #61
Программа, наглядно демонстрирующая процессы сортировки массива некоторыми популярными методами. Может использоваться для обучения и объяснения сути сортировки. Для лучшего восприятия сортировка сопровождается звуковыми эффектами.
Кликните здесь для просмотра всего текста

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

Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Вложения
Тип файла: zip Сортировка визуальная.zip (17.4 Кб, 84 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2013, 09:14     Готовые решения и полезные коды на Visual Basic 6.0
Посмотрите здесь:

Visual Basic Visual Basic ^^
Visual Basic 6 и Visual Basic .NET - в чем различия? Visual Basic
Visual Basic Проблема с установкой Visual Studio вообще и Visual Basic
Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net ? Visual Basic
Продам готовые коды и решения на Visual Basic за 400 рублей Visual Basic
Visual Basic Напишите коды в визуал бесик для решения задач
Visual Basic Visual Basic Используя условный оператор if…then, if…then…else или if…then…elseif, разработайте проект для решения следующих заданий:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
21.12.2013, 23:16     Готовые решения и полезные коды на Visual Basic 6.0 #62
Многострочность стандартного тултипа (VB6)
Стандартный тултип (свойство ToolTipText контролов) не поддерживает многострочный текст и весь текст выводит в одну строку. Предлагаю модуль, в котором реализована поддержка "многострочности" стандартным тултипом, на основе сабклассинга окна тултипа. Можно в принципе и цвет и дизайн тултипа поменять если есть желание, я оставил стандартным; также можно добавить выравнивание по ширине (дабы не городить много кода я оставил выравнивание по центру), прокомментирована практически каждая строчка. Останавливать проект кнопкой после запуска "хука" нельзя, иначе рухнет среда (у меня Win7(64), не рушится; на XP всегда вылетало), нужно закрывать окно и вызывать Unhook.
Многострочность стандартного тултипа (VB6)
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
23.12.2013, 04:42     Готовые решения и полезные коды на Visual Basic 6.0 #63
Многопоточность на примере фрактала Julia (VB6) Мне очень нравятся фракталы и фрактальные множества. Написал несколько тестовых программ, где можно генерировать и менять параметры у разных фракталов. В этом примере можно генерировать множество Жюлиа а также менять все параметры генерации (в том числе загружать палитру из картинок). Чтобы программа не подвисала, я генерацию и отрисовку засунул в другой поток. Пример не работает в IDE, работает в скомпилированном виде.
Многопоточность на примере фрактала Julia (VB6)
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
23.12.2013, 11:29     Готовые решения и полезные коды на Visual Basic 6.0 #64
Пример многопоточности VB6
В примере показана возможность работы с потоками в VB6. Можно создать несколько потоков и менять их приоритет (больше TIME_CRITICAL ставить на свой страх и риск, я поставил пришлось кнопкой выключать комп). Работает только в скомпилированном варианте.
Пример многопоточности VB6
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
30.12.2013, 03:18     Готовые решения и полезные коды на Visual Basic 6.0 #65
Елка.
Еще раз всех с наступающим! Вот смастерил елку на рабочий стол.

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

Елка.rar
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
14.01.2014, 01:45     Готовые решения и полезные коды на Visual Basic 6.0 #66
ComboBox для выбора цветов
В своем модуле я реализовал поддержку пользовательской отрисовки в списке. В данном примере выбор цветов.
ComboBox для выбора цветов
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Антихакер32
Заблокирован
16.01.2014, 13:13     Готовые решения и полезные коды на Visual Basic 6.0 #67
Цветной ComboBox

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


внизу скриншоты и архив с некомпилированным исходником:
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Изображения
 
Вложения
Тип файла: zip Цветной ComboBox#.zip (9.0 Кб, 62 просмотров)
Антихакер32
Заблокирован
16.01.2014, 22:20     Готовые решения и полезные коды на Visual Basic 6.0 #68
Комплекс диалогов

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

Исходники

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


Скриншот 2
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0   Готовые решения и полезные коды на Visual Basic 6.0  
Вложения
Тип файла: zip Диалоги.zip (149.2 Кб, 61 просмотров)
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
23.01.2014, 11:07     Готовые решения и полезные коды на Visual Basic 6.0 #69
Перехват событий мыши и клавиатуры
Модуль для перехвата сообщений мыши и клавиатуры. Перехватывать можно не только в своем, но и в чужих приложениях. Реализовано с помощью LL хуков.
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
26.01.2014, 17:06     Готовые решения и полезные коды на Visual Basic 6.0 #70
Внедрение в чужой процесс на VB6 (без DLL)
Пример внедрения приложения, написанного на VB6 в чужое АП и запуска там своего кода.
Внедрение в чужой процесс на VB6 (без DLL)
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
29.01.2014, 00:51     Готовые решения и полезные коды на Visual Basic 6.0 #71
"Многооконная" многопоточность VB6
В примере можно создать отдельное окно в отдельном потоке, усыпить поток, но он не будет влиять на другие, также можно рисовать на окнах.
http://www.cyberforum.ru/blogs/354370/blog1965.html
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
04.02.2014, 01:04     Готовые решения и полезные коды на Visual Basic 6.0 #72
FM-синтезатор на VB6

Как-то давно занимался изучением синтеза звука, в частности FM (частотная модуляция) методом. Была написана тестовая программка-синтезатор. Сегодня я ее подправил немного, сделал GUI и т.п.
Характеристики:
  • 6 осцилляторов
  • 6 форм волн
  • ADSR огибающая для каждого осциллятора
  • Модуляционная матрица 6x6 + 6 для вывода звука.
  • Гейт на 16 частей с регулировкой жесткости
В общем, полноценный FM синтезатор.
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
09.02.2014, 19:30     Готовые решения и полезные коды на Visual Basic 6.0 #73
Наглядный пример FM (PM) синтеза на VB6
Форму волны можно визуально наблюдать, это базовый принцип работы многих FM синтезаторов. Каждым элементом можно регулировать воздействие модулятора.
http://www.cyberforum.ru/blogs/354370/blog2015.html
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
12.02.2014, 01:22     Готовые решения и полезные коды на Visual Basic 6.0 #74
Запись данных в ресурсы своего EXE из "себя"
Бывают ситуации, когда хочется где-то сохранить данные после работы программы, но не хочется иметь внешних файлов-зависимостей, записей в реестре и т.п. Зато можно хранить данные в своем EXE, но Windows не позволяет писать в работающий EXE (NTFS потоки не рассматриваю), и любая попытка будет отвергнута с ошибкой ERROR_ACCESS_DENIED. Но если процесс завершить, то можно из другого процесса уже в него спокойно записывать данные. Вот по этому пути я и решил пойти.
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0   Готовые решения и полезные коды на Visual Basic 6.0  
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
18.02.2014, 22:20     Готовые решения и полезные коды на Visual Basic 6.0 #75
Реализация поддержки For each цикла для свое класса.
Стандартными средствами VB6 нельзя сделать поддержку классом перечисления с помощью цикла For each для произвольного класса, только для некоторых готовых (коллекции, словари и т.п. через NewEnum). Для обычного массива например, или связанного списка такое не прокатит. В примере реализована поддержка и немного рассказывается о работе For each цикла изнутри
Антихакер32
Заблокирован
19.02.2014, 21:18     Готовые решения и полезные коды на Visual Basic 6.0 #76
Диалоги OCX

После произведенных мною, исправлений и модификаций
выкладываю исходник, OCX, который я выкладывал ранее,
но теперь он не использует библиотеку Microsoft Scripring Runtime
а все реализации производит своими классами
отдельное спасибо за это пользователю The Trick
и как бонус, я вложил в архив мою утилиту StyleCreator32
которая создаёт шаблонный проект VB6, с полезными наворотами
такими как полу-прозрачность и прочее.. я её так-же подправил
пользуйтесь на здоровье,
надеюсь програмирование на VB, для вас станет проще
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Вложения
Тип файла: rar Диалоги.rar (345.7 Кб, 81 просмотров)
The trick
Модератор
 Аватар для The trick
6925 / 2389 / 741
Регистрация: 22.02.2013
Сообщений: 3,443
Записей в блоге: 74
20.02.2014, 02:17     Готовые решения и полезные коды на Visual Basic 6.0 #77
"Линза" на VB6
С помощью этой программы можно просматривать под увеличением определенный участок экрана, увеличение можно изменять колесиком, выход - ESC
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Казанский
13135 / 5029 / 1209
Регистрация: 24.09.2011
Сообщений: 7,784
21.02.2014, 21:12     Готовые решения и полезные коды на Visual Basic 6.0 #78
Коллекция быстрых алгоритмов для работы со строками, массивами, отдельными битами, цветами


Для каждой задачи представлено несколько вариантов решения, проведено сравнение скорости работы.
Используются как средства языка 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
  #79

Не по теме:

Цитата Сообщение от Казанский Посмотреть сообщение
Функция SwapEndian01 наиболее популярна, однако она занимает в 20 раз больше времени, чем SwapEndian08.
Копировать 1-8 байт через CopyMemory - смертный грех, а так действительно вторая функция будет работать быстрее чем первая - это очевидно.

MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.02.2014, 18:21     Готовые решения и полезные коды на Visual Basic 6.0
Еще ссылки по теме:

Visual Basic Кто пишет программы в Visual Studio 2010 на Visual Basic?
Коды на Visual Basic Visual Basic
Visual Basic Отличия версий Visual Basic 6.0 от Visual Basic 6.5?
Вычисление значений функции двух переменных в Visual Basic - Visual Basic Visual Basic

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Антихакер32
Заблокирован
24.02.2014, 18:21     Готовые решения и полезные коды на Visual Basic 6.0 #80
ZIP-класс, работа с архивом

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


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

Возможно я еще добавлю туда функций, по этой причине разместил
эту запись в своём блоге
Yandex
Объявления
24.02.2014, 18:21     Готовые решения и полезные коды на Visual Basic 6.0
Ответ Создать тему
Опции темы

Текущее время: 11:34. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru