Ejercicios de Visual Basic 8

REALIZAR UN PROGRAMA EN EL CUAL ME PERMITA VISUALIZAR UN COLOR POR CADA MES DEL AÑO QUE SELECCIONE

1. Insertamos los objetos con sus respectivos nombre

OBJETO	NOMBRE	CAPTION
Form	frmPrincipal	SELECCIONAR
Label	lblEscoger	SELECCIONAR MES
ComboBox	cmbMes
Picture	pctCOLOR

EN EL PROGRAMA VISUALIZAMOS ASI

2. Colocamos el siguiente codigo 

Private Sub cmbMes_Click()

Select Case cmbMes.Text

Case "Enero"

        Me.pctColor.BackColor = vbYellow

        MsgBox "Usted ha elegido Enero"

Case "Febrero"

        Me.pctColor.BackColor = vbBlue

        MsgBox "Usted ha elegido Febrero"

Case "Marzo"

        Me.pctColor.BackColor = vbCyan

        MsgBox "Usted ha elegido Marzo"

Case "Abril"

        Me.pctColor.BackColor = vbGreen

        MsgBox "Usted ha elegido Abril"

Case "Mayo"

        Me.pctColor.BackColor = vbWhite

        MsgBox "Usted ha elegido Mayo"

Case "Junio"

        Me.pctColor.BackColor = vbBlack

        MsgBox "Usted ha elegido Junio"

Case "Julio"

        Me.pctColor.BackColor = vbMagenta

        MsgBox "Usted ha elegido Julio"

Case "Agosto"

        Me.pctColor.BackColor = vbGreen

        MsgBox "Usted ha elegido Agosto"

Case "Septiembre"

        Me.pctColor.BackColor = &H40&

        MsgBox "Usted ha elegido Septiembre"

       

Case Else

        Me.pctColor.BackColor = vbRed

        MsgBox "Usted no ha elegido un mes"

End Select

End Sub

Private Sub Form_Load()

    cmbMes.AddItem "Enero"

    cmbMes.AddItem "Febrero"

    cmbMes.AddItem "Marzo"

    cmbMes.AddItem "Abril"

    cmbMes.AddItem "Mayo"

    cmbMes.AddItem "Junio"

    cmbMes.AddItem "Julio"

    cmbMes.AddItem "Agosto"

    cmbMes.AddItem "Septiembre"

    cmbMes.AddItem "Octubre"

    cmbMes.AddItem "Noviembre"

    cmbMes.AddItem "Diciembre"

    cmbMes.AddItem "ninguno"

End Sub

EN EL PROGRAMA VISUALIZAMOS ASI

Y  de este modo hemos terminado con este ejercicio