Barras de Herramientas y menús en VB .Net

Fecha: 31/May/2005 (24 de Mayo de 2005)
Autor: Ing. Fernando Luque Sánchez   -  Trujillo - Perú 
                       
[email protected]  -   
                       
[email protected]
                        [email protected]


Sres. Desarrolladores, les envío un aporte, uso de Barras de Herramientas y menús usando Visual Basic .Net.

Notas importantes:

A continuación sigue código en Visual Basic:

Imports System.Drawing
Imports System.Drawing.Brush
Imports System.Drawing.Brushes
Imports System.Drawing.Bitmap
Imports System.Drawing.Drawing2D

Public Class frmPrincipal
    Inherits System.Windows.Forms.Form

#Region " Código generado por el Diseñador de Windows Forms "
    ****** el código en esta zona ha sido eliminado...
#End Region

    Private Sub Clickenbarra(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick

        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                MessageBox.Show("Implemente la opción deseada...", "Atención...")
            Case 1
                MessageBox.Show("El código no está implementado...", "Atención...")
            Case 2
                Dim miform As New frmLlenarGrid
                miform.ShowDialog()
 
           Case 5
                If e.Button.Pushed = True Then
                    MessageBox.Show("Boton Activado", "Hola")
                Else
                    MessageBox.Show("El botón está desactivado", "Hola")
                End If
        End Select
    End Sub

 

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Dim resp As Integer
        resp = MsgBox("Esta Seguro De Salir", MsgBoxStyle.YesNo, "Salir")
        If resp = 6 Then
            End
        End If
    End Sub

          Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
         Dim obrush As New HatchBrush(HatchStyle.Wave, Color.Aqua, Color.DarkGreen)
         'crear el tipo de letra
         Dim ofont As New Font(New FontFamily("Georgia"), 50)
          Dim ograf As Graphics = Me.CreateGraphics
        ograf.DrawString("Net Desarrollo", ofont, obrush, New RectangleF(20, 20, 500, 200))

    End Sub

End Class

El código completo está en el archivo adjunto. Suerte a todos, espero les sirva de ayuda, no olviden dar su opinión en mi Panoramabox, gracias. Cualquier consulta a los correos que están al inicio del articulo.

Ing. Fernando Luque Sánchez
DCE 4 Estrellas


Espacios de nombres usados en el código de este artículo:

System.Data
System.Data.SqlClient
System.Data.

System.Drawing
System.Drawing.Brush
System.Drawing.Brushes
System.Drawing.Bitmap
System.Drawing.Drawing2D


Fichero con el código de ejemplo: FernandoLuque_MenusBarras.zip - 364 KB


ir al índice