Creación de menús en Visual Basic

Para realizar un menú a través de Visual Basic, es necesario hacer lo siguiente: 

         1.Crea un nuevo proyecto. 

         2. Inserta una etiqueta, un control de tipo CommonDialog y el menú. Para eso es necesario realizar algunos pasos:

•  Dar clic derecho en la barra de herramientas y elegir la opción Components.

•   Elige la ventana de diálogo, en la opción Microsoft Common Dialog 6.0

 

• Da doble clic sobre la herramienta CommonDialog para que aparezca en al formulario.

 

         3.   En el Menú Herramientas/Editor de Menús, se van a establecer las opciones que va a llevar el menú, incluyendo submenús y sub submenús, obteniendo ayuda de las flechas para tabular menús. Es importante recordar que el símbolo "&" nos permite subrayar la opción y pueda ser elegida con el teclado.

 

          4. En el menú puedes establecer los títulos de "Ver", "Formato" y como submenús de "Ver" (Fecha y Hora), en el menú "Formato" (Tamaño, Estilo y Color), y como sub submenús de "Tamaño" (10, 20,30) y "Estilo" (Negrita y Cursiva). Una vez obtenido el menú, podremos proseguir con el código para que éste funcione adecuadamente.

         5. Para el menú Ver/Fecha es el siguiente código:

                   Private Sub  MNuFecha_Click()

                         'Asigna la fecha al cuadro del texto label1

                          Label1.Caption = Date

                         'Activa al menú Formato de tu formulario

                          MNuFormato.Enabled = True

                   End Sub

         6. Para el menú Ver/Hora es el siguinete código:

                    Private Sub  MNuHora_Click() 

                          'Asigna la hora al cuadro de texto label1

                           Label1.Caption = Time

                           MNuFormato.Enabled = True

                   End Sub

         7. En el sub submenú 10 agrega el siguiente código:

                     Private Sub  MNuDiez_Click() 

                          'Aplica tamaño 10 a la etiqueta

                           Label1.FontSize =10

                   End Sub

         8. En el sub submenú 20 agrega el siguiente código: 

                    Private Sub  MNuVeinte_Click() 

                           Label1.FontSize =20

                   End Sub

         9. En el sub submenú 30 agrega el siguiente código: 

                   Private Sub  MNuTreinta_Click() 

                           Label1.FontSize =30

                   End Sub

         10. En el sub submenú Negrita aplique el siguiente código:

                    Private Sub  MNuNegrita_Click() 

                           'Evalua si el formato está en negrita e invierte el valor.

                            If Label1.FontBold = TrueThen

                            Label1.FontBold = False

                            Else

                            Label1.FontBold = True

                            End If

                   End Sub

         11. En el sub submenú Cursiva aplique el siguiente código: 

                     Private Sub  MNuCursiva_Click()

                           'Evalua si el formato está en cursiva e invierte el valor.

                            If Label1.FontItalic = TrueThen

                            Label1.FontItalic = False

                            Else

                            Label1.FontItalic = True

                            End If

                   End Sub

         12. En el submenú Color asigne el siguiente código:

                      Private Sub  MNuColor_Click()

                           'Activa la ventana de color de Windows y aplica el color

                            CommonDialog1.flags = &H2&

                            CommonDialog.ShowColor

                            Label1.ForeColor = CommonDailog1.Colzor

                   End Sub

Con ésto terminamos, la cuestión es que experimentes y poco a poco vayas agregando cosas nuevas, quizá que se desplieguen más opciones y puedas crear nuevos códigos.