Использование переменной в нескольких форм

[KeYpa]

Подскажите можно ли использовать одну и ту же переменную в нескольких формах...

(делаю обучающую программу. есть несколько разделов которые реализовал в разных формах. эта прога имеет в себе информацию на англ языке. добавил в каждый раздел по кнопочке ПЕРЕВОД. нужно чтобы все эти кнопки с разных форм были синхронизированны...)

надеюсь понятно изъяснился... если что я новичок...

[burik]

Я бы делал примерно так:
Сделал модуль с процедурой аля:

Код: Выделить всё

Public Sub TranslateApplication(toLang As String)

    Dim Form As Form
    For Each Form In Forms
        CallByName Form, "Translate", VbMethod, toLang
    Next Form

End Sub

Ну и в каждой форме должна быть процедура вида Public Sub Translate(toLang As String) которая меняет язык в рамках этой формы.
Тогда кнопка смены языка, например, на русский должна вызвать TranslateApplication "ru".

[KeYpa]

решил проблему объявив переменную через Public... а этим методом не смог воспользоватся, мне нужно было чтобы несколько labelov меняли visible на true false, видимо я чтото не так понял, это немного сложновато для меня)) но всеравно спс за помощь!

[Хакер]

Блин, один делает страшную фигню, другой фигню советует.

[KeYpa]

ну я новичок в этом деле... было бы лучше если ты посоветовал чтонибуть...

[ark]

Запихни тексты в ресурсы через определённый промежуток, например
101 English text_1
102 English text_2
.....
10101 Русский текст_1
10102 Русский текст_2
.....
20101 un texte français_1
20102 un texte français_2
А дальше для смены текста lbl.Caption = LoadResString(LangID+LabelID), где LangID (глобальная) 0 для английского, 10000 для русского и т.д. LabelID можно хранить в свойстве Tag. Ну и что-нить вроде

Код: Выделить всё

Sub Translate(f As Form)
   For Each ctrl In f.Controls
      If Type Of ctrl Is Label Then
          If ctrl.Tag<>"" Then ctrl.Caption =  LoadResString(LangID+ctrl.Tag)
          'Если язык экзотичесикй, возможно, придется ещё поменять ctrl.Font.Charset
      End If
   Next
End Sub

Для спортивного интереса и чтоб поупражняться в использовании API можно пойти стандартным путём

[Хакер]

ну я новичок в этом деле... было бы лучше если ты посоветовал чтонибуть...

Если бы всё было так просто, если бы можно было просто посоветовать что-нибудь, я бы именно это и сделал — просто посоветовал что.
Но я вижу пугающую картину: не отсутствие знаний и понимания, а наличие неправильного знания и искажённого понимания. Тут ничего не посоветуешь, с этим надо тщательно бороться.

А дальше для смены текста lbl.Caption = LoadResString(LangID+LabelID), где LangID (глобальная) 0 для английского, 10000 для русского и т.д. LabelID можно хранить в свойстве Tag. Ну и что-нить вроде

Зачем эта мура, когда ресурсы (все) от рождения имеют подуровень для разделения по локалям.

[ger_kar]

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

А как бороться то, если не правильным советом и показом как правильно?

[ark]

Зачем эта мура, когда ресурсы (все) от рождения имеют подуровень для разделения по локалям

Затем, чтоб использовать родные VB-шные функции для работы с ресурсами. Иначе или АПИ, или MsgBox "Пожалуйста, выйдите из программы, измените язык интерфейса на ... в панели управления и перезапустите программу"

[ger_kar]

Сейчас посмотрел, и действительно родные VB-шные функции для работы с ресурсами не позволяют указать локаль. Вот лажа то!