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
Anexo el programa tambien pero no se enexa
ESpero su ayuda No vi matriz de colores en ninguna parte
cambiarfondoForm1.rar(341,0 B)
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 = 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
