#vb.net - Ejemplo Barra de Iconos

' Programa y fuente 100% libre para su uso con licencia "Reconocimiento 4.0 Internacional". Web: https://creativecommons.org/licenses/by/4.0/
' Muchos mas ejemplos en nuestra pagina buscanos en google como A.K.Freeman o AKF-GO
' Autor: A.K.Freeman


'Se importa GraphicsPath
Imports System.Drawing.Drawing2D

Public Class Form1
    'Evento al iniciar la aplicacion.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Try para evitar errores en la compilacion.
        Try
            'Declaramos la variable.
            Dim r As Rectangle = My.Computer.Screen.WorkingArea
            'Se asigna la localizacion de la ventana.(En medio de la pantalla).
            Location = New Point((r.Width - Width) / 2)
            'Se coloca imagen al button
            Btn1.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\Home_48x48-32.gif")
            'Se coloca imagen al button.
            Btn2.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\alf2.gif")
            'Se coloca imagen al button.
            Btn3.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\reina.gif")
            'Se coloca imagen al button.
            Btn4.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\rey.gif")
            'Se coloca imagen al button.
            Btn5.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\caballo1.gif")
            'Se coloca imagen al button.
            Btn6.BackgroundImage = New System.Drawing.Bitmap(Application.StartupPath & "\cerrar.gif")
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#1'")
        End Try
    End Sub



    'Evento al hacer clic al button 1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
        'Try para evitar errores en la compilacion.
        Try
            'Variable para el titulo de la barra de mensaje.
            Dim nombre As String
            'Estilo  y opciones que tendra el mensaje.
            Dim estilo As MsgBoxStyle
            'Texto que aparecera en el mensaje.
            Dim mensaje As String
            'Variable donde se almaceraran variables.
            Dim res As MsgBoxResult
            'Se asigna texto al mensaje.
            mensaje = "¿Estas listo para la aplicacion?"
            'Se asigna estilo y opciones.
            estilo = MsgBoxStyle.ApplicationModal Or MsgBoxStyle.YesNo
            'Se asigna titulo.
            nombre = "Ventana Muesta Normal"
            ' Respuesta del mensaje.
            res = MsgBox(mensaje, estilo, nombre)
            'Condicion: Si se selecciono "Si"
            If res = MsgBoxResult.Yes Then
                ' Se mostrara el siguiente mensaje en un nuevo msgbox.
                MsgBox("Seleccionastes Si")
                ' Condicion: Si se selecciono "No".
            ElseIf res = MsgBoxResult.No Then
                ' Se mostrara el siguiente mensaje en un nuevo msgbox.
                MsgBox("Seleccionastes No")
            End If
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#2'")
        End Try
    End Sub


    'Evento al hacer clic al button 2
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click
        'Try para evitar errores en la compilacion.
        Try
            'Variable para el titulo de la barra de mensaje.
            Dim nombre As String
            'Estilo  y opciones que tendra el mensaje.
            Dim estilo As MsgBoxStyle
            'Texto que aparecera en el mensaje.
            Dim mensaje As String
            'Variable donde se almaceraran variables.
            Dim res As MsgBoxResult
            'Se asigna texto al mensaje.
            mensaje = "¿Estas listo para la aplicacion?"
            'Se asigna estilo y opciones.
            estilo = MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
            'Se asigna titulo.
            nombre = "Ventana Muesta Critical"
            ' Respuesta del mensaje.
            res = MsgBox(mensaje, estilo, nombre)
            'Condicion: Si se selecciono "Si"
            If res = MsgBoxResult.Yes Then   '
                ' Se mostrara el siguiente mensaje en un nuevo msgbox.
                MsgBox("Seleccionastes Si")
                ' Condicion: Si se selecciono "No".
            ElseIf res = MsgBoxResult.No Then
                ' Se mostrara el siguiente mensaje en un nuevo msgbox.
                MsgBox("Seleccionastes No")
            End If
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#3'")
        End Try

    End Sub


    'Evento al hacer clic al button 3
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn3.Click
        'Try para evitar errores en la compilacion.
        Try
            'Variable para el titulo de la barra de mensaje.
            Dim nombre As String
            'Estilo  y opciones que tendra el mensaje.
            Dim estilo As MsgBoxStyle
            'Texto que aparecera en el mensaje.
            Dim mensaje As String
            'Variable donde se almaceraran variables.
            Dim res As MsgBoxResult
            'Se asigna texto al mensaje
            mensaje = "¿Estas listo para la aplicacion?"
            'Se asigna estilo y opciones
            estilo = MsgBoxStyle.Information Or MsgBoxStyle.YesNoCancel
            'Se asigna titulo
            nombre = "Ventana Muesta Informacion"   '
            ' Respuesta del mensaje.
            res = MsgBox(mensaje, estilo, nombre)
            'Condicion: Si se selecciono "Si".
            If res = MsgBoxResult.Yes Then
                ' Se mostrara el siguiente mensaje en un nuevo msgbox.
                MsgBox("Seleccionastes Si")
                ' Condicion: Si se selecciono "No".
            ElseIf res = MsgBoxResult.No Then
                ' Se mostrara el siguiente mensaje en un nuevo msgbox.
                MsgBox("Seleccionastes No")
                ' Condicion: Si se selecciono "Cancelar".
            ElseIf res = MsgBoxResult.Cancel Then
                ' Se mostrara el siguiente mensaje en un nuevo msgbox.
                MsgBox("Seleccionastes Cancelar")
            End If
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#4'")
        End Try

    End Sub

    'Evento al hacer clic al button 4
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn4.Click
        'Try para evitar errores en la compilacion.
        Try
            'Variable para el titulo de la barra de mensaje.
            Dim nombre As String
            'Estilo  y opciones que tendra el mensaje.
            Dim estilo As MsgBoxStyle
            'Texto que aparecera en el mensaje.
            Dim mensaje As String
            'Variable donde se almaceraran variables.
            Dim res As MsgBoxResult
            'Se asigna texto al mensaje.
            mensaje = "¿Estas listo para la aplicacion?"
            'Se asigna estilo y opciones.
            estilo = MsgBoxStyle.Question Or MsgBoxStyle.RetryCancel
            'Se asigna titulo
            nombre = "Ventana Muesta Reintentar"
            ' Respuesta del mensaje.
            res = MsgBox(mensaje, estilo, nombre)
            'Condicion: Si se selecciono "Reintentar"
            If res = MsgBoxResult.Retry Then
                ' Se mostrara el siguiente mensaje en un nuevo msgbox.
                MsgBox("Seleccionastes Reintentar")
                ' Condicion: Si se selecciono "Cancelar"
            ElseIf res = MsgBoxResult.Cancel Then
                ' Se mostrara el siguiente mensaje en un nuevo msgbox.
                MsgBox("Seleccionastes Cancelar")

            End If
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#5'")
        End Try

    End Sub


    'Evento al hacer clic al button 5
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn5.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se abre la ventana Imagen1.
            Imagen1.Show()
            'Se declara variable para GraphicsPath.
            Dim objeto As GraphicsPath = New GraphicsPath
            'Se declara variable Rectangle.
            Dim corte As Rectangle
            'las medidas (0, 0, 294, 294) equivalen a (Left, Top, Width, Height) de Form1.
            corte = New Rectangle(100, 50, 500, 294)
            'Se asigna figura.
            objeto.AddEllipse(corte)
            'Se declara variable Area.
            Dim area As Region
            'Se asigna el valor ya obtenido.
            area = New Region(objeto)
            'Y por ultimo se asigna al formulario los valores del area.
            Imagen1.Region = area
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#6'")
        End Try

    End Sub

    'Evento al hacer clic al button 6
    Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn6.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se cierra el formulario
            Me.Close()
            'Catch de haber algo malo en el codigo saltara el mensaje.
        Catch ex As Exception
            'Mensaje que aparecera al encontrar un error.
            MsgBox("Error codigo '#7'")
        End Try

    End Sub
End Class