
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???
_________________________________________________________
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


0