PRACTICA III-14.    activación dinámica de opciones

EQUIPO   No5

 

 

 

OBJETIVO.- Aprender como se modifican las propiedades de los objetos que componen un sistema de menus, con la finalidad de dar apariencia de aparecer y desaparecer las opciones. Se demostrará la utilidad de la propiedad Checked.

 

PROCEDIMIENTO.- Para esta práctica el procedimiento es el siguiente:

 

 

  1. Edite el siguiente código y ejecute la aplicación

 

Option Explicit

 

Private Sub Form_Load()

 

End Sub

 

Private Sub mnuFormato_mas_Click()

 

    If mnuFormato_Mas.Checked Then

   

        mnuFormato_Mas.Checked = False

       

        mnuFormato_Guion.Visible = False

        mnuFormato_Negritas.Visible = False

        mnuFormato_Italicas.Visible = False

        mnuFormato_Subrayado.Visible = True

        mnuFormato_Tamano.Visible = False

       

    Else

   

        mnuFormato_Mas.Checked = True

       

        mnuFormato_Guion.Visible = True

        mnuFormato_Negritas.Visible = True

        mnuFormato_Italicas.Visible = True

        mnuFormato_Subrayado.Visible = True

        mnuFormato_Tamano.Visible = True

       

    End If

       

End Sub

 

 

 

CONCLUSIONES: Observamos la utilidad de la opcion Checked en los menus. Además se le puede dar riqueza visual y operacional a un menú. También se vio la manipulación de las propiedades del tipo de letra.