DiT писал(а):А зачем морочить голову? Может проще все сделать? В файле ресурсов добавляешь нужную кодовые страницу. Заполняешь ее текстом на нужном языке.
При запуске проги, считывается именно та кодовая страница, которая стоит в системе.
MEMBER писал(а):Я не стал в рес делать поддержку. Обычный текстовый. Чтобы пользователи могли редактировать.
Вопрос именно по присвоению некоторому лэйблу значения из файла. Как этот код уменьшить? Про азбучные - массив однотипных контролов, не пишите. Хотелось бы узнать как получить во время выполнения список всех контролов на форме и присвоить им (caption'am) определённые значения из файла?
' проходимся по всем контролам на форме
Dim i As Integer
Dim sControlName As String
For i = 0 To Me.Controls.Count - 1
sControlName = Me.Controls(i).Name
Select Case TypeName(Me.Controls(i))
Case "label", "commandbutton"
Me.Controls(i).Caption = читаем из INI раздел sControlName, ключ Caption
' можно еще ToolTip's, или еще что-то
Case "и т.д."
End Select
Next i
Сейчас этот форум просматривают: AhrefsBot, Google-бот, Yandex-бот и гости: 107