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
Anexo el programa tambien pero no se enexa
ESpero su ayuda No vi matriz de colores en ninguna parte
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 = 0BVerde = 0BAzul = 0FRojo = 255FVerde = 255FAzul = 255Lb1Ejemplo.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 2Txtcolor(i).Text = Hsbcolores(i).Value
Next i
Else
Lb1Ejemplo.ForeColor = RGB(Hsbcolores(3).Value, Hsbcolores(1).Value, Hsbcolores(2).Value)
For i = 0 To 2Txtcolor(i).Text = Hsbcolores(i).Value
Next i
End If
End Sub
Private Sub Option1_Click(Index As Integer)
If Index = 0 ThenFRojo = 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
0
