Кодировка в диалоговых окнах

@warword · Регистрация: 10.09.2015

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

Здравствуйте! У меня возникла проблема. В title окна (на скрине) другая кодировка (должна быть по-русски) Почему так, ведь у меня уже изменена на правильную. Даже код местами пишу на русском.
Вот код:

Visual Basic

Sub correct_xml()
    
    Dim j As Integer
    Dim xmlDOC As Object
    
    Dim oFD As FileDialog
    Dim x, lf As Long
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD
        .AllowMultiSelect = False
        .Title = "Введите xml-файлы"
        .Filters.Clear
        .Filters.Add "xml files", "*.xml", 1
        .InitialView = msoFileDialogViewDetails
        If oFD.Show = 0 Then Exit Sub
        For lf = 1 To .SelectedItems.Count
            x = .SelectedItems(lf)
        Next
    End With
    
    Set xmlDOC = CreateObject("MSXML2.DOMDocument")
    xmlDOC.Load (x)
End Sub

@warword · 16.07.2018, 13:28 **[ТС]**

Вот код.

@Krapivnik · 16.07.2018, 13:45

warword, у себя проверил ваш код - нормально кириллица отобразилась.
Пропробую угадать. У вас в реестре поправлены коды NLS? Может в этом дело?

@warword · 16.07.2018, 13:54 **[ТС]**

Krapivnik, а как это проверить?

@Krapivnik · 16.07.2018, 14:16

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

Krapivnik, а как это проверить?

https://answers.microsoft.com/... 5e7?auth=1

Вот еще для вас наверное полезный метод без правок реестра: Авторские программы, библиотеки, надстройки и шаблоны

Dragokas · 20.07.2018, 09:39

warword, нужно в региональных настройках выставить "Язык для программ, не поддерживающих Юникод" на Русский.

Или использовать WinAPI-шный вариант функции открытия диалогового окна выбора файлов (GetOpenFileNameW), подставив в качестве заголовка указатель на текст, преобразованный в юникод.

@warword 0 / 0 / 0 Регистрация: 10.09.2015 Сообщений: 114
	16.07.2018, 13:28 [ТС]	2
	Вот код. Миниатюры 0

@Krapivnik 39 / 36 / 9 Регистрация: 15.03.2018 Сообщений: 88
	16.07.2018, 13:45	3
	warword, у себя проверил ваш код - нормально кириллица отобразилась. Пропробую угадать. У вас в реестре поправлены коды NLS? Может в этом дело? 0

@warword 0 / 0 / 0 Регистрация: 10.09.2015 Сообщений: 114
	16.07.2018, 13:54 [ТС]	4
	Krapivnik, а как это проверить? 0

@Krapivnik 39 / 36 / 9 Регистрация: 15.03.2018 Сообщений: 88
	16.07.2018, 14:16	5
	Сообщение от warword Krapivnik, а как это проверить? https://answers.microsoft.com/... 5e7?auth=1 Вот еще для вас наверное полезный метод без правок реестра: Авторские программы, библиотеки, надстройки и шаблоны 1

Dragokas 18041 / 7644 / 891 Регистрация: 25.12.2011 Сообщений: 11,426 Записей в блоге: 17
	20.07.2018, 09:39	6
	warword, нужно в региональных настройках выставить "Язык для программ, не поддерживающих Юникод" на Русский. Или использовать WinAPI-шный вариант функции открытия диалогового окна выбора файлов (GetOpenFileNameW), подставив в качестве заголовка указатель на текст, преобразованный в юникод. 1

Опции темы