For...Each
Publicado por José (55 intervenciones) el 02/09/2011 22:06:25
Hola,
tengo el siguiente procedimiento
Private Sub BORRARCONTENIDO_Click()
Dim C As Control
For Each C In Me.Controls
If C.BackColor = vbWhite Then
C.Value = ""
End If
Next
End Sub
pero no funciona. Dice que el objeto no admite esta propiedad o método.
Deseo que el procedimiento funcione controlando el color de fondo dado que tengo mas de 50 controles con nombre predeterminado y no deseo utilizar la propiedad Name.
Un saludo
José
tengo el siguiente procedimiento
Private Sub BORRARCONTENIDO_Click()
Dim C As Control
For Each C In Me.Controls
If C.BackColor = vbWhite Then
C.Value = ""
End If
Next
End Sub
pero no funciona. Dice que el objeto no admite esta propiedad o método.
Deseo que el procedimiento funcione controlando el color de fondo dado que tengo mas de 50 controles con nombre predeterminado y no deseo utilizar la propiedad Name.
Un saludo
José
Valora esta pregunta


0