|
|
如下写法不对，网上也没有搜到VB如何启用英文输入法的（也许有，但不懂VB,所以看不懂）。求高手相助，不胜感激！！！
(defun English_input_method (/ str)
(setq str
"Private Declare Function ActivateKeyboardLayout Lib \"user32\" (ByVal HKL As Long， ByVal flags As Long) As Long
Private Declare Function LoadKeyboardLayout Lib \"user32\" Alias \"LoadKeyboardLayoutA\" (ByVal pwszKLID As String，ByVal flags As Long) As Long
Dim hklCurrent As Long
Const hEnKBDLayout = 67699721 'English (American)
ActivateKeyboardLayout hEnKBDLayout, 0
End Sub"
)
(or *scr* (setq *scr* (vlax-create-object "ScriptControl")))
(vlax-put *scr* 'language "VBS")
(vlax-invoke *scr* 'ExecuteStatement str)
) |
|
置顶卡
