Setzen eines Markierungsrahmens um das aktive Control

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Details: Kategorie: Bsp. Downloads Formulare; Geschrieben von TommyK; Zugriffe: 6777

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.

Funktionsweise:
Es wird ein, in der Größe beliebiges, Rechteck, Namens Frame, erstellt.
Hintergrund ist transparent, der Rahmen hat eine Stärke von 2. Farbe des Rahmens beliebig.

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