Práctica 9:Menús.

1.- El programa Colors.

El programa ‘Colors’ nos inicia en la utilización del menú para los formularios. En la barra de menú se dispone de dos Item de menú (Colors y Size) los cuales nos llevan a submenús. El objetivo del programa es poder cambiar los colores del fondo de pantalla de rojo a azul o blanco, a la vez que podemos modificar el tamaño de la ventana desde un tamaño normal (inicial) a un maximizado.

• Las función que se utilizan para modificar el color de un formulario es:

QBColor(color) = Returns a Long representing the RGB color code corresponding to the specified color number.

Este valor se asigna a la propiedad BackColor del formulario.

• La propiedan que modifica el estado de una ventana (Normal, Maximizado o Minimizado) es la propiedad WindowState de la ventana:

WindowState = Returns or sets a numeric value specifying the visual state of the window. Read/write.

Las barra de menú se crea utilizando el editor de menús. Se puede acceder a él presionando el botón derecho del mouse y escogiendo esta opción o mediante el item de menú Tools/Menu Editor, siempre y cuando se tenga seleccionado el formulario al cual se desea incluir el menú.

Los item de menú también disponen de las propiedades de ‘Visible’ y ‘Checked’, las cuales nos permiten hacer que estos item se visualicen o no y se chequeen o no.

· Se anima al alumno para que practique con estos parámetros (‘Visible’ y ‘Checked’) de los item de menú.

El código del programa es el siguiente:

'Todas las variables deben declararse.

Option Explicit

Private Sub Form_Load()

'Estas inicializaciones se pueden tambien realizar

'en timpo de compilación desde la ventana propiedades

'para estos elementos.

'Debido a que inicialmente la ventana es blanca

'se desactiva el elemento White.

mnuWhite_Click

'Debido a que inicialmente la ventana es pequeña

'se desactiva el elemento Small.

mnuSmall_Click

End Sub

Private Sub mnuBlue_Click()

'Establece el color del formulario a azul.

frmColors.BackColor = QBColor(1)

'Activa todos los elementos de color

EnableMnuColors

'Desactiva el elemento Red

mnuBlue.Enabled = False

End Sub

Private Sub mnuExit_Click()

End

End Sub

Private Sub mnuRed_Click()

'Establece el color del formulario a rojo.

frmColors.BackColor = QBColor(4)

'Activa todos los elementos de color

EnableMnuColors

'Desactiva el elemento Red

mnuRed.Enabled = False

End Sub

Private Sub mnuWhite_Click()

'Establece el color del formulario a blanco.

frmColors.BackColor = QBColor(15)

'Activa todos los elementos de color

EnableMnuColors

'Desactiva el elemento Red

mnuWhite.Enabled = False

End Sub

Private Sub mnuSmall_Click()

'Establece a pequeño el tamaño del formulario

frmColors.WindowState = 0

'Desactiva el elemento Small

mnuSmall.Enabled = False

'Activa el elemento Large

mnuLarge.Enabled = True

End Sub

Private Sub mnuLarge_Click()

'Establece a grande el tamaño del formulario

frmColors.WindowState = 2

'Desactiva el elemento Small

mnuLarge.Enabled = False

'Activa el elemento Large

mnuSmall.Enabled = True

End Sub

Private Sub EnableMnuColors()

mnuRed.Enabled = True

mnuBlue.Enabled = True

mnuWhite.Enabled = True

End Sub