求助调用和关闭外部屏幕软键盘程序的方法。

t小宝

用API的方法如下：

1. Private Declare Function SetFocusAPI& Lib "user32" Alias "SetFocus" (ByVal hwnd As Long)
   
2. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
   
3. Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
   
4. 
   
5. Dim mpID As Long
   
6. 
   
7. Private Sub Text2_GotFocus()
   
8. On Error Resume Next
   
9.     mpID = Shell(CurrentProject.Path & "\SoftBoard.exe", 1)
   
10.     DoEvents
    
11.     SetFocusAPI Me.hwnd
    
12. End Sub
    
13. 
    
14. Private Sub Text2_LostFocus()
    
15.     Dim hP As Long
    
16.     If mpID <> 0 Then
    
17.         hP = OpenProcess(1&, -1&, mpID)
    
18.         If TerminateProcess(hP, 1) <> 0 Then mpID = 0 '强制关闭程序
    
19.     End If
    
20. End Sub
    

复制代码