Estoy realizando una agenda en VB.Net
. Ya tengo casi todo listo, pero hay una parte para la que necesito ayuda.
Me gustaría que, al hacer clic en el botón Siguiente
, se mostraran en los TextBox
los datos de un contacto almacenado en el DataGridView
y si se vuelve a clickear el botón, se mostraran los datos del siguiente. Lo mismo para el botón Atrás
.
A continuación, el código desarrollado hasta ahora:
Public Class Form1
'Subrutina privada para Salir del Formulario
Private Sub BotonSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonSalir.Click
'Finalizar Ejecucion
End
End Sub
'Subrutina Privada para Mostrar u ocultar Lista de Contacto
Private Sub BotonMostrarContactos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonMostrarContactos.Click
'Ponemos una condicion de que sí la lista de contacto está oculto, está se muestre
If Agenda.Visible = False Then
BotonMostrarContactos.Text = "Ocultar Contactos"
Agenda.Visible = True
'De lo contrario se oculte
Else
BotonMostrarContactos.Text = "Mostrar Contactos"
Agenda.Visible = False
End If
End Sub
'Subrutina Privada para Habilitar y vaciar los textbox
Private Sub BotonNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonNuevo.Click
'Los textbox Pasan de Deshabilitado (False) a Habilitado (True)
TextBoxNombre.Enabled = True
TextBoxTelefono.Enabled = True
TextBoxDireccion.Enabled = True
'Vaciar Textbox
TextBoxNombre.Text = ""
TextBoxTelefono.Text = ""
TextBoxDireccion.Text = ""
End Sub
'Subrutina privada para Guardar Contacto
Private Sub BotonGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonGuardar.Click
'Guardamos los valores de los texbox en una fila de la Agenda (DataGridView)
Agenda.Rows.Add(TextBoxNombre.Text, TextBoxTelefono.Text, TextBoxDireccion.Text)
MsgBox("Guardado Correctamente")
'Deshabilitamos los Textbox
TextBoxNombre.Enabled = False
TextBoxTelefono.Enabled = False
TextBoxDireccion.Enabled = False
'y vaciamos los Textbox
TextBoxNombre.Text = ""
TextBoxTelefono.Text = ""
TextBoxDireccion.Text = ""
End Sub
'Subrutina privada para Eliminar Contacto
Private Sub BotonEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonEliminar.Click
'Le decimos que elimine una fila seleccionada de la Agenda (DataGridView)
Agenda.Rows.Remove(Agenda.CurrentRow)
End Sub
Private Sub BotonSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonSiguiente.Click
End Sub
End Class