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:
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.