 Foren
| Comfort |  Sat Oct 18 2008, 01:17PM | |
|
Dabei seit: Wed Sep 19 2007, 03:42PM
Einträge: 617
| 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 | | Nach oben | |
Powered by e107 Forum System
| 
