系统输入法检测

最新推荐文章于 2021-05-29 07:18:22 发布

cmy3918

最新推荐文章于 2021-05-29 07:18:22 发布

阅读量448

点赞数

分类专栏： vb.net 文章标签：输入法 integer exception function string 微软

本文链接：https://blog.csdn.net/cmy3918/article/details/4020849

版权

vb.net 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

Private Function bIsHave() As Boolean
            Try
                Dim num As Integer = 0
                num = System.Windows.Forms.InputLanguage.InstalledInputLanguages.Count
                If num > 0 Then
                    For i As Integer = 0 To num - 1
                        Dim sName As String = ""
                        sName = System.Windows.Forms.InputLanguage.InstalledInputLanguages.Item(i).LayoutName
                        If sName.IndexOf("微软拼音输入法") >= 0 Then
                            Return True
                        End If
                    Next
                    Return False
                Else
                    Return False
                End If
            Catch ex As Exception
                Return False
            End Try
        End Function