Kinda like 'With'

[111787]

Any way to set a common Property to the same thing for a bunch of objects?

Example(I know this is not going to work but it is the easiest way of representing my inquiry)

With BackColor = vbWhite
text1
form1
label1
End With

[Networks]

Any way to set a common Property to the same thing for a bunch of objects?

Example(I know this is not going to work but it is the easiest way of representing my inquiry)

With BackColor = vbWhite
text1
form1
label1
End With

I don't think you can do that specfically but you can always loop through all the controls you want and place some error handling and set the backcolor to the ones you want or all to white. Or specfify which ones you don't want to change.

[Joe[x86]]

I get it. Nope.

Code Select Expand

Text1.BackColor = vbWhite
Form1.BackColor = vbWhite
Label1.BackColor = vbWhite

Welcome, Nate, to Valhalla Legends forums!

[111787]

Its got to be possible, everything is possible.

[UserLoser.]

x86] link=topic=11691.msg113634#msg113634 date=1116974163]
I get it. Nope.

Code Select Expand


    Dim C As Control
    Dim F As Form
    For Each F In Forms
        F.BackColor = vbBlack
        For Each C In F
            C.BackColor = vbBlack
        Next C
    Next F
    Set C = Nothing
    Set F = Nothing


You could also go further.

Code Select Expand


            If (TypeOf C Is TextBox) Then
                C.BackColor = vbBlack
            ElseIf (TypeOf C Is Label) Then
                C.BackColor = vbRed
            End If


etc.

[111787]

Very much thanks, this is now what i have so far.  I put the error i get in as a comment.

Code Select Expand

Public Sub CommonProp(cpForm As Form, _
cpProperty As Variant, _
cpConstant As Variant, _
ParamArray cpObjects() As Variant)

    Dim C As Control
    Dim F As Form
    Dim x As Integer
   
    For Each F In Forms
        If F = cpForm Then          'Type Mismatch
            For Each C In F
                For x = LBound(cpObjects) To UBound(cpObjects)
                    If C.Name = cpObjects(x) Then
                        C.cpProperty = cpConstant      'I doubt that will work
                    End If
                Next x
            Next C
        End If
    Next F
   
    Set C = Nothing
    Set F = Nothing
   
End Sub

[R.a.B.B.i.T]

Any way to set a common Property to the same thing for a bunch of objects?

Example(I know this is not going to work but it is the easiest way of representing my inquiry)

With BackColor = vbWhite
text1
form1
label1
End With

Text1.BackColor = Form1.BackColor = Label1.BackColor = vbBlack