Visual Basic - Como asignar elementos a matriz de colores de Hsbcolores

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de cesar
Val: 33
Ha disminuido su posición en 3 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como asignar elementos a matriz de colores de Hsbcolores

Publicado por cesar (17 intervenciones) el 08/08/2019 00:03:47
El sig programa da un error
error 340 en tiempo de ejecución
me dice el elemento 0 de la matriz de colores no existe

Como asignar elementos a matriz de colores de Hsbcolores
en que parte del codigo??? y asignarme los elementos??
pues crei que con 3 1 2 en el indice del scoll era suficiente


Espero su ayuda es VB6

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
 Public BRojo, BVerde, BAzul As Integer
 Public FRojo, FVerde, FAzul As Integer
 
Private Sub Command1_Click()
End
End Sub
 
 Private Sub Form_Load()
 
BRojo = 0
BVerde = 0
BAzul = 0
FRojo = 255
FVerde = 255
FAzul = 255
Lb1Ejemplo.BackColor = RGB(BRojo, BVerde, BAzul)
Lb1Ejemplo.ForeColor = RGB(FRojo, FVerde, FAzul)
 End Sub
 
Private Sub Hsbcolores_Change(Index As Integer)
If Option1(0).Value = True Then
Lb1Ejemplo.BackColor = RGB(Hsbcolores(3).Value, Hsbcolores(1).Value, Hsbcolores(2).Value)
Dim i As Integer
For i = 0 To 2
Txtcolor(i).Text = Hsbcolores(i).Value
Next i
Else
Lb1Ejemplo.ForeColor = RGB(Hsbcolores(3).Value, Hsbcolores(1).Value, Hsbcolores(2).Value)
For i = 0 To 2
Txtcolor(i).Text = Hsbcolores(i).Value
Next i
 
End If
 
End Sub
 
Private Sub Option1_Click(Index As Integer)
If Index = 0 Then
FRojo = Hsbcolores(3).Value
FVerde = Hsbcolores(1).Value
FAzul = Hsbcolores(2).Value
Hsbcolores(0).Value = BRojo
Hsbcolores(1).Value = BVerde
Hsbcolores(2).Value = BAzul
Else
BRojo = Hsbcolores(3).Value
BVerde = Hsbcolores(1).Value
BAzul = Hsbcolores(2).Value
Hsbcolores(3).Value = FRojo
Hsbcolores(1).Value = FVerde
Hsbcolores(2).Value = FAzul
End If
End Sub

Anexo el programa tambien pero no se enexa
ESpero su ayuda No vi matriz de colores en ninguna parte
cambiarfondoForm1.rar(341,0 B)
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
Imágen de perfil de gilman
Val: 516
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Como asignar elementos a matriz de colores de Hsbcolores

Publicado por gilman (281 intervenciones) el 08/08/2019 08:18:42
El error es claro, al ejecutar la sentencia
1
Hsbcolores(0).Value = BRojo
se produce el error ya que el emento 0 de la matriz Hsbcolores no existe, por más que miro no se donde está la declaración de la variable Hsbcolores, deberás cambiarla para que tenga un elemento en la posición 0
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