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

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

Ansichts-Beispiel

 

Dateien:

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
Datum 05.02.2018
Dateigröße 33.9 KB
Download 3.258

 

 

Ähnliche Artikel