Tag Property: Using to make group of fields visible-not visible 1

[kptasteve]

I want to be able to begin using the Tag property to make groups of fields visible on a form. A short example would be to have a short and long version of a form based on how much information is needed. How it the TAG property used for this and to maybe set background colors based on a input reponse in a text field or yes/no box???

Steve Marcum PT
Programmer

 

[TonyJollans]

Hi Steve,

Not entirely sure what you want here. If you set the Tag property on all the controls you want to control to some unique string, then you can loop through all the controls on the form and do whatever you want on those with that Tag, for example ...

Dim ctl As Control
Dim FullFormWanted As Boolean
FullFormWanted = True

' Set this according to your own conditions

For Each ctl In Me.Controls
    If ctl.Tag = "

UniqueString

" Then

        If FullFormWanted Then
            ctl.Visible = True
            If Me.

CheckBox

 = True Then

' Your test here

                ctl.BackColor = RGB(255, 0, 0)

' Red

            Else
                ctl.BackColor = RGB(0, 255, 0)

' Green

            End If
        Else
            ctl.Visible = False
        End If

    End If
Next

Enjoy,
Tony

 

[MichaelRed]

While the illustrated function is certainly useful, the implementation is somewhat restrictive. The 'single' instance o "UniqueString" provides only one setting, while setting up a "PropertyBag" would permit a great deal of additional flexability. This ammounts to including a "PropName" as well as the value (with -of course- and assignment operator and a seperator) and parsing the Tag for the PropName when ever a specific item was to be used.

To "borrow" from TonyJollans's example, the Tag might be set up as:

CtrlVis = "visible", FontStyle = "vbItalic"

Then, the process of setting the value is to first parse the tag for the Token (PropName) of BkClr and assign the backcolor (not necessarily according to the literal value of the value)

MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[TonyJollans]

Michael ... I like it ... Tony