Como crear un loggin

Empecemos a crear nuestro formulario Inicio de sesión , el cual sera el titulo de nuestro trabajo o también deberíamos de llamarlo Formulario Loggin.

Ahora continuamos con la codificación y nos quedara de la siguiente manera

Crear formulario empleado

Crearemos el siguiente formulario con el nombre Empleado para ello abrimos nuestro Visual Studio con su ejecutable que es = devenv

El código para para el formulario es:

Public Class frmempleado

    Private Sub frmempleado_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        Lblfecha.Text = Today

        With Cbocargo.Items

            .Add("Gerente")

            .Add("Administrador")

            .Add("Secretaria")

            .Add("Obrero")

        End With

    End Sub

    Private Sub Cbocargo_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles Cbocargo.SelectedIndexChanged

        Dim sueldo As Integer

        Select Case Cbocargo.SelectedItem

            Case "Gerente"

                sueldo = 3000

            Case "Administrador"

                sueldo = 2000

            Case "Secretaria"

                sueldo = 1200

            Case "Obrero"

                sueldo = 800

        End Select

        txtsueldo.text = "S/." & sueldo

    End Sub

    Private Sub btnregistrar_Click(sender As System.Object, e As System.EventArgs) Handles btnregistrar.Click

        MsgBox("Se registró correctamente", MsgBoxStyle.Information, "Ejemplo")

    End Sub

    Private Sub btnNuevo_Click(sender As System.Object, e As System.EventArgs) Handles btnNuevo.Click

        txtcodigo.Clear()

        Txtnombre.Clear()

        txtsueldo.Clear()

        Cbocargo.Text = ""

        Cboturno.Text = ""

        txtcodigo.Focus()

    End Sub

    Private Sub btnsalir_Click(sender As System.Object, e As System.EventArgs) Handles btnsalir.Click

        Dim s As Integer

        s = MessageBox.Show("Estas seguro de salir", "salir", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)

        If s = Windows.Forms.DialogResult.Yes Then

            Application.Exit()

        End If

    End Sub

End Class

El resultado final seria de la forma que veremos de acuerdo al ejercicio que desarrollemos.

Al ejecutar f5 visualizamos el formulario ingresamos los datos, desplegamos el comboBox y elegimos el turno, el cargo y luego damos clic en Registrar y listo terminamos con nuestro problema.

 El mensaje es Se registro correctamente.