getFokus() ?

[8b4ll]

Hallo,
Frage:
Gibt es eine Möglichkeit in VB.net im Quelltext rauszufinden wo sich der aktuelle Fokus befindet?
Ich hab 'n bischen gegooglet und das hier gefunden:

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

....OK, das funktioniert zwar, aber ich kriege nur eine seltsame Zahl raus. Ich nehme an es ist die ID des Objects oder sowas in der Art. Auf jeden Fall, kann ich nichts damit anfangen....
Hat jemand 'nen Tip?

 

[Christian Kusmanow]

Der Rückgabetyp der API Funktion ist das HWND des Controls. Also das Handle.

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

Wenn Du nun herraus finden willst, zu welchem Control das Handle passt. Musst nur noch das ausführen:

Dim hwnd As IntPtr = GetFocus
Dim control As Control = Control.FromHandle( hwnd )

Bedenke aber wenn Du die Codezeile debuggst, wird das Handle des aktuellen Steuerelements in deiner IDE zurück gegeben.
Setz also wenn dann einen Brakpoint in der Zeile Control.FromHandle.

 

[8b4ll]

Alles klar, hat funktioniert, ich bedanke mich.