Visual Basic - Problema inexplicable y eso que parece sencillo...

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Problema inexplicable y eso que parece sencillo...

Publicado por cprcrack (37 intervenciones) el 13/06/2006 17:35:10
Estoy practicando con Arrays, os pongo todo el código que es cortito y luego explico el problema:

_________________________________________________________
Option Explicit
Dim FR, FG, FB, LR, LG, LB As Integer
_________________________________________________________
Private Sub Form_Load()
FR = 255
FG = 255
FB = 255
LR = 0
LG = 0
LB = 0
End Sub
_________________________________________________________
Private Sub HScroll1_Change(Index As Integer)
Dim i As Integer
For i = 0 To 2
Text1(i).Text = HScroll1(i).Value
Next i
If Option1(0).Value = True Then
Label1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
FR = HScroll1(0).Value
FG = HScroll1(1).Value
FB = HScroll1(2).Value
Else
Label1.ForeColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
LR = HScroll1(0).Value
LG = HScroll1(1).Value
LB = HScroll1(2).Value
End If
End Sub
_________________________________________________________
Private Sub HScroll1_Scroll(Index As Integer)
Call HScroll1_Change(Index)
End Sub
_________________________________________________________
Private Sub Option1_Click(Index As Integer)
If Index = 0 Then
HScroll1(0).Value = FR
HScroll1(1).Value = FG
HScroll1(2).Value = FB
Else
HScroll1(0).Value = LR
HScroll1(1).Value = LG
HScroll1(2).Value = LB
End If
End Sub
_________________________________________________________

El problema es en el último subprograma, pues cuando quiero que haga ésto:

HScroll1(0).Value = LR
HScroll1(1).Value = LG
HScroll1(2).Value = LB

Parece que sólo hace ésto:

HScroll1(0).Value = LR

Los otros dos (LG y LB) tiene el valor correcto pero misteriosamente ése valor no se acopla a los Arrays 1 y 2 de HScroll1, a diferencia del Array 0 que funciona bien (pasa lo mismo en el otro grupo:

HScroll1(0).Value = FR
HScroll1(1).Value = FG
HScroll1(2).Value = FB

Sólo funciona el primero! Alguna idea???
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:Problema inexplicable y eso que parece sencillo

Publicado por Juan (93 intervenciones) el 13/06/2006 18:13:04
Uhmmmm a mi pocas veces me han gustado los arreglos de controles, porque no cambias a Scroll normales a ver que tal
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:Problema inexplicable y eso que parece sencillo

Publicado por Negro (15 intervenciones) el 14/06/2006 00:01:28
Aahhhh, otra de tus acertadas respuestas. ¿No te cansas? pues nosotros siiiiiiiiiii
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