社区 › AutoCAD.net/VB.net/C# 编程技术 › [求助]VB是如何启用英文输入法的？

自贡黄明儒 发表于 2016-9-28 16:47:24

[求助]VB是如何启用英文输入法的？

如下写法不对，网上也没有搜到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)
)

自贡黄明儒 发表于 2016-9-28 16:49:06

发错板块了，是想发到vb版块的。

查看完整版本: [求助]VB是如何启用英文输入法的？