Hallo Kornelia und Robert,
Robert Großkopf schrieb:
Hallo Kornelia
Ctl = Dlg.GetControl("ListBox5")
Ctl.Model.Enabled=True
Oben steht "ListBox5" - an der Stelle würde ich ansetzen.
Klappt super. :-) Nur müsste ich das locker mit 37 Feldern machen. Für
die eine Option ausschalten, und beim Start des Formulars wieder
anschalten. Nun klingt ja „37“ erst einmal nicht viel, aber wenn ich dann
je Feld 3 Zeilen benötige, sind das schon 111 Zeilen. Das stört mich
schon. Hast Du da noch eine übersichtlichere Lösung?
Die Felder liegen in einem Formular? Dann würde ich erst einmal weiter
probieren, indem ich die Bezeichnungen so gestalte: ListBox1, ListBox2,
ListBox3 usw. - ist vielleicht schon automatisch so passiert.
i=1
WHILE i<34
Ctl = Dlg.GetControl("ListBox"+i+"")
fast: versucht's mal mit Ctl = Dlg.GetControl("ListBox"&Cstr(i))
Ctl.Model.Enabled=True
i = i+1
WEND
Mit dieser Schleife könntest Du alle auf einmal einstellen - nehme ich
jedenfalls an, habe ich so noch nicht probiert - bin auch nur
Basic-Anfänger ... Eventuell musst Du auch den Inhalt der Klammern vorher
bilden.
Gruß
Robert
Gruß
Gisbert
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
