Problemstellung:

Für 32Bit und 64Bit Office Versionen

In großen Formularen ist es manchmal sehr schwierig das Control zu ermitteln
auf oder in welchem sich der Cursor befindet.
In diesem Bsp wird das Aktive Control mit einem Markierungsrahmen versehen.

Voraussetzungen:
Das Bsp ist ab A97 lauffähig.

Im Ereignis "Beim Hineingehen" eines jeden Controls wird die die Funktion "SetFrame" aufgerufen.

Private Function SetFrame()
    Dim C As Control
    On Error Resume Next
    Set C = Screen.ActiveControl
    If Err <> 0 Then Exit Function
    Frame.Top = C.Top - 45
    Frame.Left = C.Left - 45
    Frame.Width = C.Width + 49
    Frame.Height = C.Height + 49
End Function

Ansichts-Beispiel

Dateien:

Setzen eines Markierungsrahmens um das aktive Control Beliebt

(0 Stimmen)

Für 32Bit und 64Bit Office Versionen

Setzen eines Markierungsrahmens um das aktive Control

ab A97

Die Zip-Datei enthält ein Version für A97 und eine ab A00

 05.02.2018

 33.9 KB

 3.443

Download

Ähnliche Artikel

You have no rights to post comments