module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 11 行

Module Module1

    Public Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Integer, ByRef lpList As Integer) As Integer
    Public Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal hkl As Integer, ByVal lpsz As String, ByVal uBufLen As Integer) As Integer
    Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Integer, ByVal flags As Integer) As Integer

    Public Const IME_CONFIG_GENERAL As Short = 1
    Public Const KLF_REORDER As Short = &H8S
    Public Const KLF_ACTIVATE As Short = &H1S
End Module