VB-Homepage Tipp 196

Ermitteln des aktiven Objekts einer Form ( Focus)

Haben Sie Erfahrung mit der gestutzten VB Version in Excel 5.0.
Es ist mitunter haarsträubend, wie schnell man dort an die Grenzen stößt.
Und für alles muß man ein eigenes Makro definieren.

Um daß Maß in erträglichem Rahmen zu halten, um also ein Makro für viele Zustandsprüfungen zu verwenden, nutze ich dort die Funktion des aktiven Objekts.

Und dies kann ja für das "richtige" VB auch ganz nützlich sein, deshalb dieser Tipp, der Ihnen den Namen des derzeit aktiven Objekts in Ihrer Form mitteilt (Focus) und Sie können dann in Ihrem Programm entsprechend reagieren.
( Zum Beispiel eine Hilfeanzeige zum aktiven Objekt )

Und wie so oft ist es auch diesmal sehr simpel, wenn man es weiß.

Um den Namen des aktiven Objekts zum Beispiel in einem Labelobjekt anzuzeigen reicht folgende Anweisung:

Label1.Caption = Screen.ActiveControl.Name

auch andere Eigenschaften sind ermittelbar
Label1.Caption = Screen.ActiveControl.Caption
Label1.Caption = Screen.ActiveControl.Text
Label1.Caption = Screen.ActiveControl.Value

Sie müssen lediglich auf eine gute Fehlerroutine achten, sonst strotzt Ihr Programm vor Fehlermeldungen, wenn das aktive Objekt nicht die entsprechende Eigenschaft besitzt.

Tipp-Download

Quelle :

Zurück zur Übersichtsseite