Position ermitteln

Da klingt es wie die Rettung, wenn eine API-Funktion GetWindowRect die vier Ecken eines Fensters als Koordinaten in sogar der gewünschten Einheit liefert. Sie müssen der Funktion lediglich das "Fenster-Handle" nennen. Nanu, was ist ein Fenster-Handle?

Ziemlich jedes Objekt in Windows ist ein Fenster und meistens auch einem Eltern-Fenster zugeordnet. Deswegen heißt Windows übrigens auch so. Damit jedes immer eindeutig identifiziert werden kann, erhält es automatisch eine Long-Zahl, eben jenes Fenster-Handle, meist auch als hWnd (handle window) abgekürzt.

So weit die gute Nachricht. Die Einschränkung: es ist doch nicht jedes Objekt ist ein Fenster - auch Schaltflächen nicht.

So kurz vor dem Ziel soll uns das aber nicht abschrecken, denn der Trick besteht nun darin, dass ja nicht die Koordinaten der Schaltfläche abgefragt werden müssen, wenn uns ein anderes Kontroll-Element an gleicher Position diese Daten liefern kann.

Daher liegt neben der Schaltfläche ein Listenfeld namens lstLeer, deren linke obere Ecke an die Schaltfläche grenzt. Dieses Listenfeld ist ein echtes Fenster und liefert daher auch mit der Funktion die gewünschten Koordinaten.

Mittels einer zweiten API-Funktion GetFocus() kann das window handle eines Kontroll-Elements ermittelt werden, welches den Fokus besitzt. Da die Liste den Fokus gerade nicht besitzt, wenn ein Benutzer auf die Schaltfläche klickt, muss der VBA-Code das erledigen.