Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0247: Welches Objekt anderer Anwendungen hat den Focus

VB 5/6-Tipp 0247: Welches Objekt anderer Anwendungen hat den Focus

 von Olaf Quasdorff

Schwierigkeitsgrad:

Verwendete API-Aufrufe: AttachThreadInput, GetClassNameA (GetClassName), GetFocus, GetForegroundWindow, GetWindowThreadProcessId, SendMessageA (SendMessage), SetWindowPos

Download: Download des Beispielprojektes [2,57 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias form1.frm  ---------
' Steuerelement: Textfeld "Text2"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Timersteuerelement "Timer1"
' Steuerelement: Textfeld "Text1"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label1"


'Dank an Olaf Quasdorff (oquasdorff@web.de)
' 03.08.2000

Option Explicit

Private Declare Function GetClassName Lib "user32" Alias _
        "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName _
        As String, ByVal nMaxCount As Long) As Long

Private Declare Function GetFocus Lib "user32" () As Long

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" _
        (ByVal hwnd As Long, lpdwProcessId As Long) As Long
    
Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal _
        wParam As Integer, ByVal lParam As Any) As Long
    
Private Declare Function AttachThreadInput Lib "user32" (ByVal _
        idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach _
        As Long) As Long
                    
Private Declare Function SetWindowPos Lib "user32" (ByVal _
        hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x _
        As Long, ByVal y As Long, ByVal cx As Long, ByVal _
        cy As Long, ByVal wFlags As Long) As Long
                   

Const HWND_TOPMOST As Long = -1&
Const SWP_NOSIZE As Long = &H1&
Const SWP_NOMOVE As Long = &H2&

Dim nHWndControl As Long

Private Sub Form_Load()
    Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Timer1_Timer()
    Call GetControl
End Sub

Private Sub GetControl()
    Dim Buffer As String
    Dim Result As Long, GetCurrentThreadID As Long
    Dim OtherThreadID As Long, Thread1 As Long, Thread2 As Long
    Dim bMerker As Boolean
          
    Thread1 = GetWindowThreadProcessId(Me.hwnd, GetCurrentThreadID)
    Thread2 = GetWindowThreadProcessId(GetForegroundWindow, OtherThreadID)
         
    If Thread1 <> Thread2 Then bMerker = AttachThreadInput(Thread2, _
                                         Thread1, True)
    
    Result = GetFocus()
    nHWndControl = Result
    Text1.Text = Result
    
    If bMerker Then bMerker = AttachThreadInput(Thread2, Thread1, False)
    
    Buffer$ = Space(255)
    Call GetClassName(nHWndControl, Buffer, Len(Buffer))
    Text2.Text = Buffer
End Sub
'---------- Ende Formular "Form1" alias form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 4 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.