• Администрация SafeZone приветствует вас на нашем форуме!
    Если вы больше не желаете видеть рекламу при просмотре тем и сообщений - то достаточно просто зарегистрироваться. Для зарегистрированных пользователей реклама не отображается.

vb6

  1. Dragokas

    [VB6] Регулярные выражения: обёртка для PCRE2 и VBScript.Regexp

    Регулярные выражения: обёртка для PCRE2 и VBScript.Regexp Создано: Polshyn Stanislav (Dragokas) и Jason Peter Brown (jpbro) при поддержке Tanner_H, oumba, DEXWERX, dilettante (vbforums.com) PCRE2 - это мощная библиотека регулярных выражений, которая работает очень быстро и поддерживает...
  2. Dragokas

    [VB6] Распознавание речи используя API.AI

    Автор: The Trick Небольшой пример использования средств API.AI для распознавания голосовых команд.
  3. Dragokas

    Прототипы API-функций

    Это ANSI-версии прототипов. В приложении 2 программы: 1) ApiViewer by Christoph 2) ApiTools by by Desaware (с исходником).
  4. Dragokas

    [VB6] Запись и чтение INI файлов

    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _ (ByVal lpapplicationname As String, ByVal lpkeyname As Any, ByVal lpdefault As String, _ ByVal lpreturnedstring As String, ByVal nSize As Long, ByVal lpfilename As String) As Long...
  5. Dragokas

    [VB6] Аудио-проигрыватель (mciSendString)

    Простой пример аудио-проигрывателя на основе API-функции mciSendString Функции: Воспроизвести Приостановить Продолжить Остановить Option Explicit Public Declare Function mciSendString& Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand$, _ ByVal lpstrReturnString$, _...
  6. Dragokas

    Отключаем предупреждение об ошибке синтаксиса в редакторе VB6

    Для тех, кого раздражает ситуация, когда нужно скопировать название функции или переменной с другой строки, но как только мы покидаем строку, в которой набираем код, редактор VB6 тут же выбрасывает мессагу - предупреждение об ошибке. Лично меня это раздражает жутко. Это же надо отвлекаться от...
  7. Сергій

    Изменение контрастности рисунка

    _ Подскажите ,пожалуйста, какие есть алгоритмьі изменения контрастности изображений. _ Стандартньій способ повьішения резкости (прибавление к каждому пикселю разници в цвете с соседним пикселем) с виду похож на контурирование разной степени.
  8. Сергій

    Как закрыть рисунок?

    _ Загружаю рисунок Picture1.Picture = LoadPicture("Адрес рисунка"), потом его редактирую... _ При попытке сохранить SavePicture Picture1.Image, "Адрес рисунка" с тем же адресом (то есть в тот же файл) - всплывает сообщенио об ошибке "Файл уже открыт". Более того, это не дает переименовать...
  9. Сергій

    Конвертация bmp в jpg на VB6

    VB6 сохраняет изображения в формате bmp. А как можно сохранять или конвертировать в ipg ?
  10. Сергій

    Получить иконку окна

    Имея некий перечень исполняемых файлов, можно получить их иконки ,непример, так: (Form1.AutoRedraw = True и PictureEskiz(i).AutoRedraw = True) For i=1 to Fajlov PictureEskiz(i).Cls PictureEskiz(i).Visible = CBool(DrawIcon(PictureEskiz(i).hDC, 0, 0, ExtractIcon(App.hInstance, AdresFajla(i), 0))...
  11. Кирилл

    [VB6] Перекодировка файлов DOS <> Win1251

    Привет всем. Может кто направит на путь истинный) Пробовал примеры с сети - не помогло,сам пробовал сделать - не вышло... Куда почитать,может путний пример...
  12. Л

    [VB6] Сортировка массивов

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

    VB 6 Работа с USB-портом

    Как в VB6 работать с USB-портом? LPT-порт ,например, позволяет управлять включением и выключением 255 "лампочек",... Посылать сигнал можно по 8 ножкам, получать по 4-м. На VB6 это ооочень просто. Но ЭВМ с LPT уже не выпускаются. Как с приборами можно работать через USB?
  14. Dragokas

    [VB6] Создание обработчика ошибок

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

    VB 6 Как узнать состояние службы Восстановление Системы?

    Вот такая у меня не задача...толкнулся от этого: https://msdn.microsoft.com/en-us/library/windows/desktop/aa378847(v=vs.85).aspx Все работает,но не понятно как проверить включено ли восстановление системы...
  16. Сергій

    VB 6 Эскизы видеофайлов

    Подскажите, как в PictureBox-е получить эскиз видеофайла (flv, mp4, wmv,...), находящегося по адресу...
  17. Сергій

    VB 6 Панель задач своими руками

    Как создать панель задач в окне своей программы? Например, если некая прога сворачивается в трей, то клики по ее иконке в трее можно делать со своей прогаммы
  18. Кирилл

    VB 6 [VB6] Какие бывают методы вызова подпрограммы/процедуры из списка?

    Вопрос состоит в том,что на том же bat очень удобно использовать call,goto GoTo не подходит,возможно есть еще какие то методы?
  19. Кирилл

    VB 6 Как лучше определить версию, разрядность и язык ОС на VB6?

    Я использовал такой вариант: 'определение битности ОС For Each objOStype In GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem") 'WScript.Echo "PC type = " & objOStype.SystemType strOSbit = objOStype.SystemType Next If LCase(strOSbit) = "x86-based pc"...
  20. Dragokas

    [VB6] Подключение манифеста к приложению Visual Basic 6

    Также у тебя идет запрос UAC при выполнении каждой из операций. Достаточно получить один раз привилегии на этапе запуска приложения. Для этого нужно подключить к приложению манифест с затребованием уровня прав HighestAvailable (если нужно , чтобы программа могла запустится даже под учетной...
Сверху Снизу