Skip to main content

Pasar datos de un datagridview a un texbox en Visual basic

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

Aqui en form introducir la descripción de la imagen aquí