Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Integer) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CurIme As Long = GetKeyboardLayout(0) '取得目前的输入法
MsgBox(CurIme)
End Sub
[本日志由 tiancao1001 于 2018-04-11 01:30 PM 编辑]
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! | |||
作者: | 用户:
密码: 注册? 验证: |
||
评论:
禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
|||