我发现了这个;但是;我必须更改vlisp lang帮助我pls选项显式;用户32“;别名;系统参数sinfoa“;(ByVal uAction As Long、ByVal uParam As Long,ByRef lpvParam As Any,ByVal fuWinIni As Long)只要
私有声明函数ActivateKeyboardLayout Lib“;用户32“;(_ByVal HKL As Long,_ByVal标志As Long)As Long私有声明函数GetKeyboardLayout Lib“;用户32“;(_
ByVal dwLayout As Long)只要
私有声明函数GetKeyboardLayoutName Lib“;用户32“;别名;GetKeyboardLayoutNameA“;(_ByVal pwszKLID作为字符串)只要私有Const SPIF\u sendwinichange=&;H2私有常量SPI\u SETDEFAULTINPUTLANG=90常量HKL=;00000409“
私有子命令1\u Click()
Dim retval As Long
retval=SystemParametersInfo(SPI\u SETDEFAULTINPUTLANG,0,HKL,SPIF\u SendWinInChange)
ActivateKeyboardLayout retval,0