Visual Basic - error 340 en tiempo de ejecución

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

error 340 en tiempo de ejecución

Publicado por cesar (17 intervenciones) el 06/08/2019 20:10:08
Tengo un problema en un programa en Visualb 6 debo cambiar de colores un formulario lo saque de un video el corre perfecto y su link es https://www.youtube.com/watch?v=A1qo7PrSONs&list=PL1CGtUFwO5yRJxkD65wxiIXH_PVyOVsuD&index=2

El programa me da el formulario pero al tratar de cambiar con scrolls y ejecutar los botones me da el error anexo el formulario
error 340 en tiempo de ejecución
el elemento 0 de la matriz de colores no existe


El programa en codigo
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
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
sin imagen de perfil
Val: 249
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error 340 en tiempo de ejecución

Publicado por Cesar (128 intervenciones) el 06/08/2019 20:43:14
Hola.

El mensaje es muy claro. El elemento no existe.

En tu codigo estas usando el arreglo Hsbcolores en varias lados, y queriendo accesar elementos de dicho arreglo, pero nunca declaraste dicho arreglo, ni mucho menos asignaste elementos al mismo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar
Imágen de perfil de cesar
Val: 28
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error 340 en tiempo de ejecución

Publicado por cesar (17 intervenciones) el 06/08/2019 23:58:36
ok amigo puede indicarme como declarar dicho arreglo en que parte del codigo y asignarme los elementos??
pues crei que con 3 1 2 en el indice del scoll era suficiente
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