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

lymin

求助：
1、当Text2获得焦点时，自动打开软键盘，并可在Text2框内输入内容。
2、当Text2失去焦点时，自动关闭软件盘。
3、当窗体1关闭时，如果软键盘仍然为打开状态，则随着窗体1的关闭而同时关闭和退出。

见示例

huangli0356

沙发..正需要这方面的..希望高手可以帮忙解决.

huangli0356

获得焦点即可输入是可以解决的,
Call Shell(CurrentProject.Path & "\SoftBoard.exe", 1)
Me.Text2.SetFocus



关闭到目前为止我也还是在找的..

huangli0356

修改后的.不过目前所学只能通过调用外部命令运行..希望对你有所帮助.也借此感谢tanghong 江羽.以及那些一直在默默帮助他人的人们.感谢你们.

轻风

这个感觉用API肯定可以搞定，可惜我不太懂。
要不就自己在ACCESS里搞个键盘得了，别用外部程序。

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
    

复制代码

轻风

果然。学到了。

LeeTien

牛叉的功能

lymin

t小宝 发表于 2012-12-18 11:02
用API的方法如下：

太感谢了，完全是我所需要的效果。

huangli0356

学习了..不过最简单,最土的办法还是调用外部程序..呵呵.谢谢分享..