[VB.NET] โค้ดในการควบคุมแป้นคีย์บอร์ดเสมือน กับการใช้งานบน Windows Tablet PC

thongkorn

สำหรับ แป้นคีย์บอร์ดเสมือน (Virtual Keyboard) ตัวนี้จะเป็น Windows Tablet PC หรือ คีย์บอร์ดเพื่อใช้งานกับจอสกรีนที่เป็นแบบสัมผัส (Touch Screen) น่ะครับ ซึ่งเราจะเรียกใช้งานผ่านไปยัง C:\Program Files\Common Files\microsoft shared\ink\TabTip.exe ซึ่งไม่ใช่ OSK.EXE หรือ On Screen Keyboard ... โค้ดชุดนี้จะเป็นพื้นฐานในการเรียกใช้ให้แสดง หรือซ่อน และกำจัดโปรเซส (Kill) มันออกไปจากระบบ ด้วยการใช้คำสั่งผ่าน WinAPI 32 หรือ Windows Application Programming Interface ...

การตั้งค่า Touch Keyboard ... เราสามารถกำหนดค่าใน Registry หรือเขียนโค้ดเข้าไปควบคุมให้มันแสดงผลตามที่เราต้องการก็ได้


เมื่อ TabTib.exe ถูกเรียกใช้งานขึ้นมา ซึ่งเวลาที่เราจบโปรแกรม ก็ต้องทำการกำจัดโปรเซสของมันทิ้งไป ...


มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports System.Runtime.InteropServices
   
2. 
   
3. Public Class frmOnScreenKeyBoard
   
4. 
   
5.     Const WM_SYSCOMMAND As Int32 = 274
   
6.     Const SC_CLOSE As UInt32 = 61536
   
7. 
   
8.     '// WinAPI32 From VB6. (API = Application Programming Interface)
   
9.     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
   
10.     Private Shared Function PostMessage( _
    
11.         ByVal hWnd As IntPtr, _
    
12.         ByVal Msg As UInteger, _
    
13.         ByVal wParam As IntPtr, _
    
14.         ByVal lParam As IntPtr _
    
15.         ) As Boolean
    
16.     End Function
    
17. 
    
18.     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    
19.     Private Shared Function FindWindow( _
    
20.         ByVal lpClassName As String, _
    
21.         ByVal lpWindowName As String _
    
22.         ) As IntPtr
    
23.     End Function
    
24. 
    
25.     '// Instance Name Process
    
26.     Private _P As Process
    
27. 
    
28.     Private Sub HideKeyboard()
    
29.         Dim KeyboardWnd As IntPtr = FindWindow("IPTip_Main_Window", Nothing)
    
30.         PostMessage(KeyboardWnd.ToInt32(), WM_SYSCOMMAND, SC_CLOSE, 0)
    
31.     End Sub
    
32. 
    
33.     Private Sub btnShowKeyboard_Click(sender As Object, e As EventArgs) Handles btnShowKeyboard.Click
    
34.         If _P Is Nothing OrElse _P.HasExited Then
    
35.             If _P IsNot Nothing AndAlso _P.HasExited Then _P.Close()
    
36.             '// Sometimes TabTip may be hidden.
    
37.             Call KillProcess()
    
38.             _P = Process.Start("C:\Program Files\Common Files\microsoft shared\ink\TabTip.exe")
    
39.             '/ Focus to the textbox
    
40.             TextBox1.Focus()
    
41.         End If
    
42.     End Sub
    
43. 
    
44.     Private Sub KillProcess()
    
45.         For Each p As Process In Process.GetProcesses
    
46.             If String.Compare(p.ProcessName, "TabTip", True) = 0 Then
    
47.                 p.Kill()
    
48.                 Exit For
    
49.             End If
    
50.         Next
    
51.     End Sub
    
52. 
    
53.     Private Sub btnHideKeyboard_Click(sender As System.Object, e As System.EventArgs) Handles btnHideKeyboard.Click
    
54.         Call HideKeyboard()
    
55.     End Sub
    
56. 
    
57.     Private Sub frmOnScreenKeyBoard_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
58.         Call HideKeyboard()
    
59.         Me.Dispose()
    
60.         GC.SuppressFinalize(Me)
    
61.         Application.Exit()
    
62.     End Sub
    
63. 
    
64. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB.NET (2010) ได้ที่นี่ ...