Forums
Detect if Keyboard is visible
|
|
| Pablo | Fri Oct 17 2008, 06:04pm | |
| Registered Member #202 Joined: Fri Oct 17 2008, 05:22pm Posts: 2
| How I can detect in program if the Keyboard is visible (open)?
I need change position of distinct windows in VB according if the Keyboard is visible (open) or not.
Thanks. | | Back to top | |
| Comfort | Sat Oct 18 2008, 01:17pm | |
|
 Joined: Wed Sep 19 2007, 03:42pm Posts: 426
| Method 1
Dim hWnd As Long
hWnd = FindWindow("TMainKeyboardForm", vbNullString)
If (IsWindowVisible(hWnd)) Then
........
Method 2
Dim i As Integer = GetTopWindow(0) 'Initialize
Dim Screen_Text As String = ""
' Get handle for On-Screen Keyboard if it is visible
While (i <> 0)
If (IsWindowVisible(i)) Then
Screen_Text = Space(255)
GetWindowText(i, Screen_Text, 255)
If (Screen_Text.Trim = "On-Screen Keyboard") Then
Keyboard_hWnd2 = i
End If
End If
i = GetNextWindow(i, 2)
End While
Have a nice day | | Back to top | |
| Pablo | Sat Oct 18 2008, 09:30pm | |
| Registered Member #202 Joined: Fri Oct 17 2008, 05:22pm Posts: 2
| Very thanks. | | Back to top | |
Powered by e107 Forum System
|