Marken/Tags. Jedes Objekt bekommt eine Marke mit dem dem Binärcode wann es sichtbar sein soll:



001001



ist bei 3 und 6 sichtbar. So könnte eine Schleife wie folgt aussehen:





Dim ctl As Control

Dim lng_Wahl As Long



lng_Wahl = CLng(Nz(Me.o_Group, "0"))

For Each ctl In Me.Controls

If IsNumeric(ctl.Tag) Then

    ctl.Properties("Visible") = -1 * CLng(Mid(ctl.Tag, lng_Wahl, 1))

End If

Next

 Code eingefügt mit Syntaxhighlighter 1.16



wäre der Tipp vom Puschel



PS: Mögliche Fehler könnten allerdings noch stärker abgefangen werden...

Aphorismus der Woche:
Es kommt nicht darauf an, mit dem Kopf durch die Wand zu rennen, sondern mit den Augen die Tür zu finden.
Werner von Siemens (1816 - 1892)


geschrieben von Puschel , 27.04.2006, 11:58 Uhr , 16 mal gelesen