Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _
lpList As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal _
flags As Long) As Long
Dim la(1) As Long
Dim X As Long
X = GetKeyboardLayoutList(32, la(1))
ActivateKeyboardLayout la(1), 1
lpList As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal _
flags As Long) As Long
Dim la(1) As Long
Dim X As Long
X = GetKeyboardLayoutList(32, la(1))
ActivateKeyboardLayout la(1), 1
扫一扫
8761
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
