Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Active Control abfragen

Active Control abfragen
05.10.2004 13:21:26
Michael
Halllo zusammen,
ich möchte in einem Frame jedes Label abfragen, ob es den Focus hat, und wenn ja die Schriftfarbe verändern.
Dim lbl As MSForms.Label
For Each lbl In Frame3.Controls
If lbl = ActiveControl Then

lbl.ForeColor = RGB(255, 255, 255)
MsgBox "" & ActiveControl.Name & ""
End If
Next
Die Syntax bei lbl = ActiveControl stimmt aber nicht.
Kann mir bitte jemand sagen, wie es richtig heißt?
Vielen Dank im voraus
Michael

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Active Control abfragen
Ulf
Ein Label kann keinen Focus haben und somit auch nicht das aktive Control sein.
Ulf
AW: Active Control abfragen
Michael
Hallo Ulf,
alles klar, dann geht es natürlich nicht.
Aber wie müßte es denn bei einer Textbox heißen? Dann nehme ich eben Textboxen.
Vielen Dank für Deine Antwort
Michael
AW: Active Control abfragen
Ulf
Wenn immer nur das ActiveControl anders gefärbt werden soll, musst du ja erstmal
alle wieder zurücksetzen, ist das so richtig?
Ulf
AW: Active Control abfragen
Michael
Ja. Beim Doppelklick auf die Textbox erscheinen Listboxen (visible = true), wenn die dann wieder ausgeblendet werden, setze ich die Schriftfarben der anderen textboxen wieder zurück.
Ich muß eben nur abfragen können, welche Textbox den Focus hat, d.h. ausgewählt wurde um dann die richtige Listbox einzublenden.
Gruß
Michael
Anzeige
AW: Active Control abfragen
Ulf
Nun versteh ich gar nichts mehr. Eine Textbox hat ja ein Doppelklick- Ereignis.
Darin kannst du die Listbox doch einfach hart verdrahten.
Ulf
AW: Active Control abfragen
Michael
Hallo Ulf,
jetzt hab ich es gefunden:
'wenn Textbox ausgewählt, Farbänderung
For Each lbl In Frame3.Controls
If lbl = Frame3.ActiveControl Then
lbl.BackColor = RGB(193, 14, 4)
end if
Next
Dann geht es.
Vielen Dank für Deine Bemühungen
Michael
End If
Next

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige