TEMA 12: Programa Semáforo

3. Programa: esto programa cambia la imagen de un semáforo (verde-amarillo-rojo) al pulsar en un botón o al hacer clic sobre el icono de dicha imagen. En este programa utilizo una matriz de controles que se representa entre paréntesis (1..3). Esto quiere decir que el nombre de  la propiedad Name es el mismo en todos ellos y el índice especificado en la propiedad Index varia entre el 1, 2 y 3.

Public S As Integer

Private Sub CmdCambiar_Click()
  'Cambia el semáforo de color
  S = S + 1
  If S = 4 Then S = 1
  ImgImagen.Picture = ImgSemaforo(S).Picture
End Sub

Private Sub CmdCerrar_Click()
  End
End Sub

Private Sub Form_Load()
  'Asigna imagen inicial al ejecutar el programa
  ImgImagen.Picture = ImgSemaforo(1).Picture
  S = 1
End Sub

Private Sub ImgImagen_Click()
  'Llama al procedimiento para cambiar el semáforo
  CmdCambiar_Click
End Sub

Bajate el programa completo haciendo clic en la imagen