求助調(diào)用和關(guān)閉外部屏幕軟鍵盤程序的方法。

lymin

求助：
1、當(dāng)Text2獲得焦點(diǎn)時(shí)，自動(dòng)打開(kāi)軟鍵盤，并可在Text2框內(nèi)輸入內(nèi)容。
2、當(dāng)Text2失去焦點(diǎn)時(shí)，自動(dòng)關(guān)閉軟件盤。
3、當(dāng)窗體1關(guān)閉時(shí)，如果軟鍵盤仍然為打開(kāi)狀態(tài)，則隨著窗體1的關(guān)閉而同時(shí)關(guān)閉和退出。

見(jiàn)示例

huangli0356

沙發(fā)..正需要這方面的..希望高手可以幫忙解決.

huangli0356

獲得焦點(diǎn)即可輸入是可以解決的,
Call Shell(CurrentProject.Path & "\SoftBoard.exe", 1)
Me.Text2.SetFocus



關(guān)閉到目前為止我也還是在找的..

huangli0356

修改后的.不過(guò)目前所學(xué)只能通過(guò)調(diào)用外部命令運(yùn)行..希望對(duì)你有所幫助.也借此感謝tanghong 江羽.以及那些一直在默默幫助他人的人們.感謝你們.

輕風(fēng)

這個(gè)感覺(jué)用API肯定可以搞定，可惜我不太懂。
要不就自己在ACCESS里搞個(gè)鍵盤得了，別用外部程序。

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 '強(qiáng)制關(guān)閉程序
    
19.     End If
    
20. End Sub
    

復(fù)制代碼

輕風(fēng)

果然。學(xué)到了。

LeeTien

牛叉的功能

lymin

t小寶 發(fā)表于 2012-12-18 11:02
用API的方法如下：

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

huangli0356

學(xué)習(xí)了..不過(guò)最簡(jiǎn)單,最土的辦法還是調(diào)用外部程序..呵呵.謝謝分享..