Pregunta: | 68124 - ERROR AL CAMBIAR COLORES DE CONTROLES |
Autor: | Juan Varela |
Estimados, les cuento que tengo un procedimiento al que llamo cuando quiero cambiar el color de los controles que tengo en el form, pero el error se me dá cuando lo llamo por segunda vez, indicando que los indices están fuera del intervalo. Pareciera que me falta inicializar algo al principio del procedimiento. Copio el mismo, muchas gracias. Public Sub CambiarColorControl(Color As String) Dim controlesform As Control For Each controlesform In Controls If (TypeOf controlesform Is TextBox) Or (TypeOf controlesform Is Label) Or (TypeOf controlesform Is MaskEdBox) Or (TypeOf controlesform Is CommandButton) Or (TypeOf controlesform Is CheckBox) Or (TypeOf controlesform Is OptionButton) Or (TypeOf controlesform Is ListView) Or (TypeOf controlesform Is Frame) Then controlesform.BackColor = Color End If Next controlesform Frm2ADV0Km.BackColor = Color End Sub |