TEMA 17: Programa Colores

 

5. Programa: en este programa se utiliza una función nueva llamada RGB utilizada para representar un color. Vuelve a tema de Funciones para saber más de ella.

OBJETO PROPIEDAD VALOR
Form1 BorderStyle
Caption
MinButton
Icon		 1
Colores
True
Face02.ico (Graphics, Icons, Misc)
PicBarra BackColor Blanco
LblRojo, LblVerde, LblAzul AutoSize
Caption
Font
ForeColor		 True
ROJO, VERDE, AZUL
Comic Sans MS, negrita, 12
Rojo, Verde, Azul
PicRojo, PicVerde, PicAzul Creamos 3 cuadros de imagen con estos nombres
HsbBarras (1..3) LargeChange
Max
Min
SmallChange
Value		 10
255
0
1
255
CmdSalir Caption
Font		 SALIR
Comic Sans MS, negrita cursiva, 12

Private Sub CmdSalir_Click()
  End
End Sub

Private Sub Form_Load()
  'Cambia los colores según la posición de las barras de desplazamiento
  PicBarra.BackColor = RGB(HsbBarras(1).Value, HsbBarras(2).Value, _
   HsbBarras(3).Value)
  PicRojo.BackColor = RGB(HsbBarras(1).Value, 0, 0)
  PicVerde.BackColor = RGB(0, HsbBarras(2).Value, 0)
  PicAzul.BackColor = RGB(0, 0, HsbBarras(3).Value)
End Sub

Private Sub HsbBarras_Change(Index As Integer)
  Form_Load 'Vuelve a ejecutar el procedimiento Form_Load
End Sub


Bajate el programa completo haciendo clic en la imagen   

 

          Tema anterior                                                                                               Tema siguiente

Hosted by www.Geocities.ws

1