1. 程式人生 > >VB下自動選擇所有文字並切換預設輸入法

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=關閉輸入法