Вроде бы фонты с поддержкой кириллицы, а в VB Editor-e кракозябры

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

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

Пытаюсь установить моноширинные фонты:
Anonymous Pro
Consolas
Cousine
Fantasque Sans Mono
Fira Mono
IBM Plex Mono
Iosevka
Nimbus Mono
PT Mono
Roboto Mono

Вроде бы все они с поддержкой кириллицы, а в VB Editor-e кракозябры на русском техсте
С ArialCYR и CourierNewCYR всё нормально

Что я упускаю?

@Tiiranas · 28.07.2019, 15:21

Попробуй, может, поможет:

Код

;Использовать кодовую страницу 1251 вместо 1252
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
"1253"="c_1251.nls"

Откатить всегда можно

@giaber · 28.07.2019, 16:26 **[ТС]**

Посмотрел - с 1250 до 1255 включительно стоит "c_1251.nls"
Может наоборот - на 1252 заменить?

Добавлено через 31 минуту
Изменил на 1252 - шрифт Fira Mono нормализовался, остальные так же

@Tiiranas · 28.07.2019, 19:23

Проверь эти шрифты в системной папки %windir%\Fonts\, настройки настройками, а шрифты могут быть не кириллические.
Я с таким как-то давно сталкивался.

Ещё проверь ветку реестра у меня так:

Код

[HKEY_CURRENT_USER\Software\Microsoft\VBA\Microsoft Visual Basic]
"AutoValueTips2"=dword:00000001
"AutoQuickTips2"=dword:00000001
"AutoStatement2"=dword:00000001
"DragDropInEditor"=dword:00000001
"RequireDeclaration"=dword:00000001
"EndProcLine"=dword:00000001
"CompileOnDemand"=dword:00000001
"BackGroundCompile"=dword:00000001
"CodeForeColors"="1 1 5 0 1 9 7 1 0 0 0 0 0 0 0 0 "
"CodeBackColors"="14 5 0 7 6 14 14 14 0 0 0 0 0 0 0 0 "
"TabWidth"=dword:00000002
"FontHeight"=dword:0000000c
"FontCharSet"=dword:000000cc
"FontFace"="Courier New CYR"

@giaber · 28.07.2019, 20:22 **[ТС]**

Нет, всё проверил - шрифты точно кириллические, записи реестра совпадают, ну, то что должно совпадать - "CodeForeColors",
"CodeBackColors" нормально, что разные.

Ну ладно, что поделаешь - надеюсь после переустановки винды (давно собираюсь, всё руки не доходят) нормализуется

Вам, Tiiranas, большое спасибо за помощь!

@Tiiranas · 28.07.2019, 21:07

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

Полагаю, это должно помочь.

Windows Batch file

@echo off 
pushd %SystemRoot%\System32 
for %%F in (C_1250.NLS C_1252.NLS C_1253.NLS C_1254.NLS C_1255.NLS) do call :STAND %%F C_1251.NLS 
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Magix Corpid" /d "Arial" /f 
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Magix Corpid,0" /d "Arial,204" /f 
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Arial,0" /d "Arial,204" /f 
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Tahoma,0" /d "Tahoma,204" /f 
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Verdana,0" /d "Verdana,204" /f 
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Comic Sans MS,0" /d "Comic Sans MS,204" /f 
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Courier,0" /d "Courier,204" /f 
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "MS Sans Serif,0" /d "MS Sans Serif,204" /f 
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes" /v "Times New Roman,0" /d "Times New Roman,204" /f 
popd 
echo. 
pause 
goto :EOF
:STAND 
rem Не допускает повторной обработки: 
if exist %1.bak goto :EOF 
rem Устанавливает владельцем текущего пользователя: 
takeown /f %1 
rem Предоставляет текущему пользователю полный (F) доступ: 
icacls %1 /grant %USERNAME%:(F) 
rem Сохранение оригинального файла: 
ren %1 *.*.bak 
rem Подмена кодовой таблицы: 
copy %2 %1

@giaber · 29.07.2019, 11:07 **[ТС]**

Нет, Tiiranas, это не помогло. Но я переустановил Visual Basic и все шрифты заработали. Надо было с этого начинать, дураку!
Тема закрыта - переустановка наше фсё!!!

Большое вам спасибо за участие !!!

@giaber 42 / 37 / 0 Регистрация: 16.09.2014 Сообщений: 417
		1
	Вроде бы фонты с поддержкой кириллицы, а в VB Editor-e кракозябры 28.07.2019, 15:08. Показов 1571. Ответов 6 Метки нет (Все метки) Пытаюсь установить моноширинные фонты: Anonymous Pro Consolas Cousine Fantasque Sans Mono Fira Mono IBM Plex Mono Iosevka Nimbus Mono PT Mono Roboto Mono Вроде бы все они с поддержкой кириллицы, а в VB Editor-e кракозябры на русском техсте С ArialCYR и CourierNewCYR всё нормально Что я упускаю? 0

@giaber 42 / 37 / 0 Регистрация: 16.09.2014 Сообщений: 417
	28.07.2019, 16:26 [ТС]	3
	Посмотрел - с 1250 до 1255 включительно стоит "c_1251.nls" Может наоборот - на 1252 заменить? Добавлено через 31 минуту Изменил на 1252 - шрифт Fira Mono нормализовался, остальные так же 0

@giaber 42 / 37 / 0 Регистрация: 16.09.2014 Сообщений: 417
	28.07.2019, 20:22 [ТС]	5
	Нет, всё проверил - шрифты точно кириллические, записи реестра совпадают, ну, то что должно совпадать - "CodeForeColors", "CodeBackColors" нормально, что разные. Ну ладно, что поделаешь - надеюсь после переустановки винды (давно собираюсь, всё руки не доходят) нормализуется Вам, Tiiranas, большое спасибо за помощь! 0

@giaber 42 / 37 / 0 Регистрация: 16.09.2014 Сообщений: 417
	29.07.2019, 11:07 [ТС]	7
	Нет, Tiiranas, это не помогло. Но я переустановил Visual Basic и все шрифты заработали. Надо было с этого начинать, дураку! Тема закрыта - переустановка наше фсё!!! Большое вам спасибо за участие !!! 0