Возможно ли сменить шрифт в среде разработки VB6 программно?

@giaber · Регистрация: 16.09.2014

Студворк — интернет-сервис помощи студентам

Ну, собственно, вопрос в заголовке. Вообще задача такая: есть список шрифтов, прога меняет шрифт, кусок кода в интерфейсе в среде разработки визуально меняется, делается скриншот, сохраняется с названием шрифта в указаной папке. Всё. Шрифтов несколько сотен, вручную буду делать ОЧЕНЬ долго! Не спрашивайте зачем это нужно, примите как данность

Добавлено через 9 минут
Имел ввиду смену шрифта в code editor-е

@Alex1126 · 07.10.2024, 18:15

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

@testuser2 · 07.10.2024, 18:25

А чем не подходит обычная форма с обычным текстбоксом (или не очень обычным), почему надо именно в среде шрифт менять?

Добавлено через 1 минуту
Шрифт можно менять даже в ячейке Экселя

@giaber · 07.10.2024, 19:14 **[ТС]**

Сообщение от testuser2

А чем не подходит обычная форма с обычным текстбоксом (или не очень обычным), почему надо именно в среде шрифт менять?

Ну я хочу иметь (ну шиза такая) типа каталог шрифтов для code editor-а VB6 которые и русский язык отображают без кракозябрей а в текстбоксе реального представления как выглядит код в code editor-е не получишь
Впрочем, вы натолкнули меня на мысль! Я встречал самопальные то ли юзер-контролы то ли ActiveX-ы с подсветкой синтаксиса, с цветом типов текста - операторы одним цветом, переменные другим и т.п. Надо поворошить интернет!

Вот, я смог при помощи проги сравнения снимков реестра выснить, где записывается название устанавливаемого шрифта, причем мгновенно при смене шрифта, но выяснить, также ли мгновенно отразится на тексте в code editor-е запись в реестре другого шрифта, не могу - не умею записывать в реестр строковую, про запись числа меня день-два назад Hacker Vlad "научил" а со строковыми - пока никак...
вот здесь отражается изменение шрифта

Visual Basic
1
'HKEY_USERS\S-1-5-21-514132676-4061440556-1237813417-1000\Software\Microsoft\VBA\Microsoft Visual Basic\FontFace: "Roboto"

@giaber · 07.10.2024, 19:40 **[ТС]**

Сообщение от Alex1126

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

Была с самого начала такая мысль, но нет не получится - там после 3-4 тыков в списке шрифтов в листбоксе надо выбрать шрифт, как прога будет определять название шрифтов! Программы тыкалки, даже с определением какая цифра, я делал - (казино!)

прога сама играла в онлайн казино, но здесь сложнее!

@Alex1126 · 07.10.2024, 19:46

Сообщение от giaber

там после 3-4 тыков в списке шрифтов в листбоксе надо выбрать шрифт, как прога будет определять название шрифтов!

стрелочка вниз, ентер

@giaber · 07.10.2024, 20:12 **[ТС]**

Сообщение от Alex1126

стрелочка вниз, ентер

Да нет, как открыть и как скролить оно понятно: клик на стрелочке -> список выпадает -> клик на нижней стрелочке -> скролится на одну позицию -> курсор сдвигаем по горизонтали влево, чтоб установится на строку (она окрашивается в синий) и тут мне надо определить какой текст под курсором в чужом листбоксе. Понятно, но надо искать, как это делается - если вообще найду, я думал более лёгкий путь есть.

@Alex1126 · 07.10.2024, 20:39

Сообщение от giaber

тут мне надо определить какой текст под курсором

Контр Ц и смотришь в буфере обмена

@The trick · 07.10.2024, 20:48

Сообщение от giaber

Ну я хочу иметь (ну шиза такая) типа каталог шрифтов для code editor-а VB6 которые и русский язык отображают без кракозябрей а в текстбоксе реального представления как выглядит код в code editor-е

Нужно в реестре HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts и HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes модифицировать чтобы любой шрифт с кириллицей дружил.

Добавлено через 7 минут

Сообщение от giaber

Да нет, как открыть и как скролить оно понятно: клик на стрелочке -> список выпадает -> клик на нижней стрелочке -> скролится на одну позицию -> курсор сдвигаем по горизонтали влево, чтоб установится на строку (она окрашивается в синий) и тут мне надо определить какой текст под курсором в чужом листбоксе. Понятно, но надо искать, как это делается - если вообще найду, я думал более лёгкий путь есть.

Жесть. Если уж так решил, смотри оконные сообщения, а не эти извращения с нажатиями.

@Alex1126 · 07.10.2024, 21:26

Не по теме:

Вспомнилось. Надо было как то для каталога отрендорить кучу деталек нарисованных в солидворксе. Ну типа болты. Но болты есть разных диаметров и каждого диаметра разные длины. Солидворкс позволяет делать параметрические черчежи, то есть когда один из параметров задан переменной и есть табличка значения этих переменных. И там в табличке кликаешь на нужное значение и черчеж перестраивается. То есть была куча файлов болтМ3, болтМ4, болтМ5 и в них длина задана параметром. И нужно было для каждого болта сделать рендер фас, профиль и изометрию. Работа нудная и рутинная. Покопавшись в интернете узнал, что в солидворкс есть свой язык программирования который внутренние функции умеет. Написал программку за пару часов, которая открывает файл, выбирает первый параметр, ставит деталь в фас, рендорит, сохраняет картинку, поворачивает в профиль, рендор, сохранение, изометрия, рендор, сохранение, следующий параметр. Повторить. И все это происходит на экране в реальном времени, то есть деталь открывает, меняется размер, поворачивается... все это видно на экране. Ну и запустил я эту программку, она на экране детали крутит, сохраняет, вообщем работу делает, а я на втором экране пикабу читаю. Заходит шеф, видит эту картину, думает, осознает что происходит. И выдает "тебе надо зарплату или увеличить, за сообразительность, либо уменьшить, за ничего не деланье, но я еще не решил какой вариант верный". :)

@giaber · 07.10.2024, 22:26 **[ТС]**

1.
The trick

Сообщение от The trick

Нужно в реестре HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Wi ndows NT\CurrentVersion\Fonts и HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Wi ndows NT\CurrentVersion\FontSubstitutes модифицировать чтобы любой шрифт с кириллицей дружил.

Посмотрел я эти ветки и ничего не понял, что надо делать. Единственное, что я заметил в FontSubstitutes, что все фонты, поддерживающие кирилицу, имеют такой вид:MS Sans Serif,204 то есть у всех это 204 присутствуетю Но как модифицировать - непонятно и в сети я ничего не нашел. Подскажете?

@Alex1126 · 07.10.2024, 22:35

Если в шрифте нет кирилицы, как он ее показывать то будет?

Добавлено через 3 минуты

Сообщение от giaber

но выяснить, также ли мгновенно отразится на тексте в code editor-е запись в реестре другого шрифта

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

@HackerVlad · 08.10.2024, 00:20

Я если честно в шоке от ваших идей автокликеров)))) Эмулировать нажатия клавиш или нажатие мыши это жесть конечно))) додумались же))) всё гораздо проще там)))

Добавлено через 1 час 2 минуты

Сообщение от Alex1126

он не отобразит изменения

переписать реестр - легкотня! самое сложное это реально заставить отобразить изменения

Добавлено через 5 минут
giaber, посмотри здесь: Готовые решения и полезные коды на Visual Basic 6.0
там утилитки для смена цветов редактора VB6, может и шрифты меняет, вроде исходники были тоже

Добавлено через 7 минут

Сообщение от giaber

не умею записывать в реестр строковую, про запись числа меня день-два назад Hacker Vlad "научил" а со строковыми - пока никак...

Там же есть функция UpdateKey, я же скинул готовый проект с модулем с примером

Добавлено через 2 минуты

Сообщение от giaber

мне надо определить какой текст под курсором в чужом листбоксе

Windows - это система окон, которая управляется сообщениями. Сообщения - это команды действий с окнами. WM_ и так далее..
Если знать hwnd листбокса то текущею строку очень легко получить с помощью API-функции SendMessage.
SendMessage - это универсальная функция отправки сообщений-команд, которая может управлять всеми свойствами окон в системе.

Добавлено через 2 минуты
Возможно даже есть какое-то сообщение, отправив которое VB6 IDE обновит настройки, но я не уверен в этом.

Добавлено через 3 минуты
Тем более там со шрифтами ComboBox а не ListBox

@Alex1126 · 08.10.2024, 00:27

Сообщение от HackerVlad

Возможно даже есть какое-то сообщение, отправив которое VB6 IDE обновит настройки, но я не уверен в этом.

открыть окно настроек и там нажать кнопку "применить". Возможно сначала придется сделать вид что меняешь какой то параметр.

@HackerVlad · 08.10.2024, 16:40

Сообщение от Alex1126

открыть окно настроек и там нажать кнопку "применить"

программно это не так просто сделать вообще и нужно знать какие сообщения посылать ещё

@HackerVlad · 10.10.2024, 20:54

Ну как там, научились шрифты менять?

@giaber · 13.10.2024, 18:39 **[ТС]**

Сообщение от HackerVlad

Ну как там, научились шрифты менять?

4 дня почти не вставая, забросив все свои деревенские дела, кур, гусей и сад, пытался понять и реализовать смену шрифтов по вашим и TheTrick-а подходам-советам. Пшик! В 65 мозги уже не те! Не по Сеньке-то шапочка! Мозги вскипели и я, гордо восседая на ламерском троне, за полчаса наваял тыкалку и меняю шрифты как моей ламерской душонке угодно! Стыд я уверенно заткнул в самый дальний чулан.

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

Всем ну просто ОГРОМНОЕ спасибо за поддержку, советы и, главное, критику!

Добавлено через 13 минут
Кстати, HackerVlad, я так надеялся, что после того, как при помощи сравнения снимков реестра до и после смены шрифта, определилось в каких именно ветках реестра VB записывает изменение шрифта, и, к тому же, вы мне указали, как надо записывать стринговые значения (UpdateKey), все получится на изи, но вот фигушки - не меняет VB шрифт хоть ты тресни!

@Argus19 · 03.01.2025, 19:16

С дуру сменил шрифт на Times new roman, теперь не отображается русский язык. Какой шрифт изначально установлен в IDE?

@The trick · 03.01.2025, 20:55

Argus19, Courier New CYR

@HackerVlad · 03.01.2025, 21:02

Argus19, Consolas вроде или какой-то такой похожий Моноширинный шрифт...

Добавлено через 1 минуту
Ну в общем Трик подсказал. Короче таких шрифтов очень мало, где как в ДОСе каждый символ занимает одинаковое количество пикселей.

Добавлено через 1 минуту
Кстати это удобно, мне нравится, что каждый символ занимает одинаковое количество пикселей по ширине.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@giaber 101 / 38 / 0 Регистрация: 16.09.2014 Сообщений: 426

	Возможно ли сменить шрифт в среде разработки VB6 программно? 07.10.2024, 18:00. Показов 1803. Ответов 20 Метки нет (Все метки) Ну, собственно, вопрос в заголовке. Вообще задача такая: есть список шрифтов, прога меняет шрифт, кусок кода в интерфейсе в среде разработки визуально меняется, делается скриншот, сохраняется с названием шрифта в указаной папке. Всё. Шрифтов несколько сотен, вручную буду делать ОЧЕНЬ долго! Не спрашивайте зачем это нужно, примите как данность Добавлено через 9 минут Имел ввиду смену шрифта в code editor-е 0

@Alex1126 425 / 147 / 27 Регистрация: 12.12.2020 Сообщений: 1,186
	07.10.2024, 18:15
	Можно попробовать написать программу которая будет тыкать нужные кнопки, имитируя поведение пользователя и менять шрифты 0

@testuser2 1386 / 842 / 91 Регистрация: 08.02.2017 Сообщений: 3,585 Записей в блоге: 1
	07.10.2024, 18:25
	А чем не подходит обычная форма с обычным текстбоксом (или не очень обычным), почему надо именно в среде шрифт менять? Добавлено через 1 минуту Шрифт можно менять даже в ячейке Экселя 0

@Alex1126
	07.10.2024, 21:26
	Не по теме: Вспомнилось. Надо было как то для каталога отрендорить кучу деталек нарисованных в солидворксе. Ну типа болты. Но болты есть разных диаметров и каждого диаметра разные длины. Солидворкс позволяет делать параметрические черчежи, то есть когда один из параметров задан переменной и есть табличка значения этих переменных. И там в табличке кликаешь на нужное значение и черчеж перестраивается. То есть была куча файлов болтМ3, болтМ4, болтМ5 и в них длина задана параметром. И нужно было для каждого болта сделать рендер фас, профиль и изометрию. Работа нудная и рутинная. Покопавшись в интернете узнал, что в солидворкс есть свой язык программирования который внутренние функции умеет. Написал программку за пару часов, которая открывает файл, выбирает первый параметр, ставит деталь в фас, рендорит, сохраняет картинку, поворачивает в профиль, рендор, сохранение, изометрия, рендор, сохранение, следующий параметр. Повторить. И все это происходит на экране в реальном времени, то есть деталь открывает, меняется размер, поворачивается... все это видно на экране. Ну и запустил я эту программку, она на экране детали крутит, сохраняет, вообщем работу делает, а я на втором экране пикабу читаю. Заходит шеф, видит эту картину, думает, осознает что происходит. И выдает "тебе надо зарплату или увеличить, за сообразительность, либо уменьшить, за ничего не деланье, но я еще не решил какой вариант верный". :) 0

@HackerVlad Испарился 1741 / 637 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	10.10.2024, 20:54
	Ну как там, научились шрифты менять? 0

@Argus19 1427 / 444 / 78 Регистрация: 24.09.2017 Сообщений: 2,525 Записей в блоге: 22
	03.01.2025, 19:16
	С дуру сменил шрифт на Times new roman, теперь не отображается русский язык. Какой шрифт изначально установлен в IDE? 0

@The trick Модератор 10048 / 3894 / 883 Регистрация: 22.02.2013 Сообщений: 5,847 Записей в блоге: 79
	03.01.2025, 20:55
	Argus19, Courier New CYR 2

@HackerVlad Испарился 1741 / 637 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	03.01.2025, 21:02
	Argus19, Consolas вроде или какой-то такой похожий Моноширинный шрифт... Добавлено через 1 минуту Ну в общем Трик подсказал. Короче таких шрифтов очень мало, где как в ДОСе каждый символ занимает одинаковое количество пикселей. Добавлено через 1 минуту Кстати это удобно, мне нравится, что каждый символ занимает одинаковое количество пикселей по ширине. 0