Visual Basic - Que está fallando?

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Que está fallando?

Publicado por Malandrín (47 intervenciones) el 06/02/2007 22:35:56
Tu ejemplo no podemos checarlo porque no tenemos "FondoFormulario" ni "FondoCaja", no sé si serán esos objetos los que te hagan falta (según el error que mencionas). Porque si cambiamos esas referencias por otros valores, no da ningún problema.

También habías preguntando algo sobre grabar valores en el registro de windows en una clave específica, el 3 de febrero. Checa la respuesta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Que está fallando?

Publicado por pako (52 intervenciones) el 06/02/2007 22:58:46
pues a mi me dá la sensación que el error está aquí ---> FondoCajaTexto.rojo
por lo del puntito, rojo es una propiedad de FondoCajaTexto?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar