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

引用 huangli0356 2012-12-17 15:47

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

引用 huangli0356 2012-12-17 16:14

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



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

引用 huangli0356 2012-12-18 09:58

SoftBoard.rar (201.51 KB, 下载次数: 14)

2012-12-18 09:56 上传

点击文件名下载附件

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

引用 轻风 2012-12-18 10:30

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

引用 t小宝 2012-12-18 11:02

用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
    

复制代码

引用 轻风 2012-12-18 13:33

果然。学到了。

引用 LeeTien 2012-12-18 14:34

牛叉的功能

引用 lymin 2012-12-19 00:03

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

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

引用 huangli0356 2012-12-19 09:30

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

查看全部评论(9)