MyTetra Share
Делитесь знаниями!
Смена языка в VB
Время создания: 29.01.2021 13:20
Текстовые метки: VBA, Язык, раскладка, LANG
Раздел: !Закладки - VBA
Запись: adgaver/mytetra_base_New/master/base/1611915606hg1ds8tc8j/text.html на raw.githubusercontent.com

Смена языка в VB


'1. Создайте модуль и впишите этот код.

Private Declare Function ActivateKeyboardLayout Lib "user32" _

(ByVal HKL As Long, ByVal flags As Long) As Long

Const LANG_RUSSIAN = (68748313)

Const LANG_ENGLISH = (67699721)

Public Function Russian()

Call ActivateKeyboardLayout(LANG_RUSSIAN, 0)

End Function

Public Function English()

Call ActivateKeyboardLayout(LANG_ENGLISH, 0)

End Function


'2. Создайте форму и поместите две кнопки.

Private Sub Command1_Click()

Russian

End Sub


Private Sub Command2_Click()

English

End Sub



Так же в этом разделе:
 
MyTetra Share v.0.55
Яндекс индекс цитирования