VB下自动选择所有文本并切换默认输入法

Public Sub RunGotFocus(pInternat As Boolean)
    On Error Resume Next
   
    pControl = ActiveControl.Name
    AutoSelect Controls(pControl)
    If pInternat = True Then
        Internat Controls(pControl), True
    Else
        Internat Controls(pControl), False
    End If
End Sub

 

RunGotFocus True 'True=打开输入法 False=关闭输入法