#vb.net - Ejemplo Ventana Personalizada

' 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

Public Class Form1

    'Evento al iniciar la ventana
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Try para evitar errores en la compilacion.
        Try
            'Se asigna el icono de la ventana
            Me.Icon = New System.Drawing.Icon(Application.StartupPath & "\lock.ico")
            '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


    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        'Try para evitar errores en la compilacion.
        Try
            'Condicion: Si el radiobutton no tiene marcado el check
            If RadioButton1.Checked = False Then
                'Se indica que se activara el check en el radiobutton
                RadioButton1.Checked = True
                'Condicion: Si el radiobutton si tiene marcado el check
            ElseIf RadioButton1.Checked = True Then
                'Se indica que se desactivara el check en el radiobutton
                RadioButton1.Checked = False
            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



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se declara variable usuario y se asigna el valor
            Dim usuario As String = "akfreeman"
            'Se declara variable contraseña y se asigna el valor
            Dim contrasena As String = "123456"
            'Condicion: Si Tanto el usuario y la contaseña son correctos
            If usuario = Me.TextBox1.Text And contrasena = Me.TextBox2.Text Then
                'Se indica mostrar la ventana de bienvenida
                MsgBox("Bienvenido " & usuario & "!!!")
                'Condicion: Si Tanto el usuario y la contaseña estan vacios y no se llenaron
            ElseIf Me.TextBox1.Text = "" And Me.TextBox2.Text = "" Then
                'Se indica mostrar la ventana de faltan datos
                MsgBox("Debes llenar los campos Usuario y contraseña")
                'Condicion: Si no se logra la comprobacion de datos
            Else
                'Se indica mostrar la ventana de datos incorrectos
                MsgBox("Usuario o contraseña incorrectos")
            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 en la opcion cerrar
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se indica cerrar la ventana
            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 '#4'")
        End Try
    End Sub

    'Evento al hacer clic en la opcion minimizar
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Try para evitar errores en la compilacion.
        Try
            'Se indica minimizar la ventana
            Me.WindowState = FormWindowState.Minimized
            '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


End Class