Как с помощью кода поменять язык в Toolbar?

Как с помощью кода поменять язык в Toolbar ?

0

В какой тулбар? Если твоего приложения, то можно использовать файлы ресурсов или просто переменные.

Я имела в виду переход с русского на англ. или наоборот . Если можно , то помогите кодом
Спасибо

0

Всем привет. Я не совсем понял вопроса, но если нужно поменять язык в трее RU/EN, то всегда можно использовать следующий код:

Option Explicit
Private Declare Function GetKeyboardLayout Lib 'user32' (ByVal dwLayout As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib 'user32' (ByVal HKL As Long, ByVal flags As Long) As Long
Private Const HKL_NEXT = 1
Private Const HKL_PREV = 0
Const nRUS = &H4190419
Const nLAT = &H4090409

Private Sub cmdSetLAT_Click()
SetKeybLayout nLAT
End Sub

Private Sub cmdSetRUS_Click()
SetKeybLayout nRUS
End Sub

Private Sub Form_Load()
SetKeybLayout nLAT
End Sub

Private Function SetKeybLayout(nKeybLayout As Long) As Long
Dim HKL As Long
HKL = GetKeyboardLayout(0)
If nKeybLayout <> HKL Then
SetKeybLayout = ActivateKeyboardLayout(nKeybLayout, HKL_PREV)
End If
If nKeybLayout = nLAT Then
lblLangName.Caption = 'ENG'
Else
lblLangName.Caption = 'RUS'
End If
End Function