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

Problemstellung:
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:

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.066

 

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png3.png1.png8.png2.png
Heute55
Gestern56
Diese Woche111
Dieser Monat1241
Total1193182

  • IP: 54.81.78.135
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

22. Mai 2018