Que está fallando?
Publicado por DeNiro (1 intervención) el 06/02/2007 21:18:42
Private Sub Form_Load()
Dim rojo, verde, azul As Integer
On Error GoTo c1
rojo = GetSetting("Prueba", "FondoFormulario", "Rojo", FondoFormulario.rojo)
verde = GetSetting("Prueba", "FondoFormulario", "Verde", FondoFormulario.verde)
azul = GetSetting("Prueba", "FondoFormulario", "Azul", FondoFormulario.azul)
frmPeliculas.BackColor = RGB(rojo, verde, azul)
c1:
On Error GoTo c2
rojo = GetSetting("Prueba", "FondoCajaTexto", "Rojo", FondoCajaTexto.rojo)'AKI DA EL ERROR(Se requiere un objeto¿¿¿¿¿¿¿CUAL?????)
verde = GetSetting("Prueba", "FondoCajaTexto", "Verde", FondoCajaTexto.verde)
azul = GetSetting("Prueba", "FondoCajaTexto", "Azul", FondoCajaTexto.azul)
For i = 0 To frmPeliculas.Controls.Count - 1
If TypeOf frmPeliculas.Controls(i) Is TextBox Then frmPeliculas.Controls(i).BackColor = RGB(rojo, verde, azul)
Next i
Exit Sub
c2:
End Sub
Dim rojo, verde, azul As Integer
On Error GoTo c1
rojo = GetSetting("Prueba", "FondoFormulario", "Rojo", FondoFormulario.rojo)
verde = GetSetting("Prueba", "FondoFormulario", "Verde", FondoFormulario.verde)
azul = GetSetting("Prueba", "FondoFormulario", "Azul", FondoFormulario.azul)
frmPeliculas.BackColor = RGB(rojo, verde, azul)
c1:
On Error GoTo c2
rojo = GetSetting("Prueba", "FondoCajaTexto", "Rojo", FondoCajaTexto.rojo)'AKI DA EL ERROR(Se requiere un objeto¿¿¿¿¿¿¿CUAL?????)
verde = GetSetting("Prueba", "FondoCajaTexto", "Verde", FondoCajaTexto.verde)
azul = GetSetting("Prueba", "FondoCajaTexto", "Azul", FondoCajaTexto.azul)
For i = 0 To frmPeliculas.Controls.Count - 1
If TypeOf frmPeliculas.Controls(i) Is TextBox Then frmPeliculas.Controls(i).BackColor = RGB(rojo, verde, azul)
Next i
Exit Sub
c2:
End Sub
Valora esta pregunta


0