Sres. Desarrolladores, les envío un aporte, uso
de Barras de Herramientas y menús usando Visual Basic .Net.
Notas
importantes:
-
Actualice las conexiones a la Base de datos en el
formulario de Productos.
-
Establezca también conexión para el
Reporte
-
Algunos botones de la barra de Herramientas solo
tienen un mensaje, el objetivo es aprender a implementar el código para la
selección de cada botón.
-
También he incluido algo de interesante para los
que les gusta el diseño, ejecuten Acerca de,
Programador
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
