¿Cómo configurar el formulario VB para que solo permita la entrada en inglés? Como tengo teclas de método abreviado aquí, no se permite el método de entrada en chino. De lo contrario seré miserable.

Función de declaración privada GetKeyboardLayoutList Lib " usuario 32 "(ByVal nBuff As Long,_

lpList tiene la misma longitud) que long

Función de declaración privada GetKeyboardLayoutName Lib " usuario 32 " Alias ​​​​ " GetKeyboardLayoutName a " u

(ByVal pwszKLID como cadena) siempre

Función de declaración privada GetKeyboardLayout Lib " usuario 32 "(ByVal dw diseño As Long)

Función de declaración privada ImmGetDescription Lib "imm32.dll "alias" ImmGetDescriptionA" (ByVal _

hkl es Long, ByVal lpsz es String, ByVal uBufLen es Long) es Long

Función de declaración privada ActivateKeyboardLayout Lib " usuario 32 "(ByVal hkl As Long, ByVal _

bandera misma longitud) misma longitud

Constante IME_Configuration_General = 1< / p>

Constante KLF_REORDER = amp;H8

Constante KLF_activation = ampH1

Dim la (1 a 16) tiene la misma longitud

La actividad tenue el tiempo es el mismo

Subtemporizador privado 1_Timer()

Ac time = "134481924 " 'Aquí está el código para el método de entrada en inglés.

ActivateKeyboardLayout ActIme, 1

Conector final

Estos códigos significan que siempre se llama al método de entrada en inglés. Simplemente configure el intervalo del temporizador en 200. Estos son códigos vb. Una vez cerrado el programa, puede llamar al método de entrada usted mismo sin desinstalar otros métodos de entrada.