VB.net 判断输入法状态

VB.net 判断输入法状态

 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