Практична завдання № 6. Visual Basic. Розкладка клавіатури.

ЗАВДАННЯ: Створити програму «Розкладка клавіатури»

Uk

Інтерфейс програми

Код програми:

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias _

_"GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Private Sub L_Click()

Dim KeybLayoutName As String

KeybLayoutName = String(9, 0)

GetKeyboardLayoutName KeybLayoutName

KBLayout = CStr(CLng(Left$(KeybLayoutName, InStr(1, KeybLayoutName, Chr(0)) - 1)))

If KBLayout = 409 Then L = "En"

If KBLayout = 419 Then L = "Ru"

If KBLayout = 422 Then L = "Ua"

End Sub