Informatica

Laboratorio 4
* Elaborar una aplicación que permita ingresar el Nombre, Edad y Estado Civil asi como su Turno, cuando presionemos Agregar este se visualizara en las Listas respectivas.Luego si deseamos eliminar a uno de los elementos de la lista, debemos seleccionarla y luego hacer clic en el boton Quitar. Del mismo modo cuando se haga clic en Limpiar todos los controles seborraran.














Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click
DimNombre, Casado, Turno As String
Dim Edad As Byte
If TxtNombre.Text.Trim = "" Then
MessageBox.Show("Ingrese el Nombre", "Por Favor")
TxtNombre.Focus()Exit Sub
End If
If RbMañana.Checked = False And RbTarde.Checked = False And RbNoche.Checked = False Then
MessageBox.Show("Seleccione el Turno", "Por Favor")Exit Sub
End If
'Cambia el nombre a mayúsculas
Nombre = TxtNombre.Text.ToUpper()
Edad = UpEdad3.Value
If CkCasado.Checked = True Then
Casado ="Si"
Else
Casado = "No"
End If
If RbMañana.Checked = True Then
Turno = "Mañana"
ElseIf RbTarde.Checked = True Then
Turno= "Tarde"
Else
Turno = "Noche"
End If
LbNombre.Items.Add(Nombre)
LbEdad.Items.Add(Edad.ToString)
LbTurno.Items.Add(Turno)LbCasado.Items.Add(Casado)
TxtNombre.Clear()
UpEdad3.Value = 18
CkCasado.Checked = False
RbMañana.Checked = False
RbTarde.Checked = FalseRbNoche.Checked = False
TxtNombre.Focus()
End Sub
Private Sub LbNombre_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LbNombre.SelectedIndexChanged...