1 2 3 4 5 6 7 8 9 10 11 | Для того, чтобы получить значение нужной записи из раздела в реестре Windows, можно воспользоваться функцией GetSetting.iSetting = GetSetting(AppName:="UserForm1", Section:="TextBox1", Key:="Value") 'Or'iSetting = GetSetting("UserForm1", "TextBox1", "Value")Если искомое значение определено не будет, например, в случае отсутствия указанного приложения, раздела, записи, то данная функция возвращает значение необязательного именованного аргумента Default. Поскольку, в данном примере, этот аргумент не используется, функция возвращает пустую строку, однако, это довольно легко изменить.iSetting = GetSetting(AppName:="UserForm1", Section:="TextBox2", Key:="Value", Default:="Текст, по умолчанию") 'Or'iSetting = GetSetting("UserForm1", "TextBox2", "Value", "Текст, по умолчанию") Данная функция позволяет работать только с одним разделом реестра, а именно:HKEY_USERS\...\VB and VBA Program Settings\... 'Win98/WinMeHKEY_CURRENT_USER\...\VB and VBA Program Settings\... 'Win2000/WinXP |