Hola chicos me podrían ayudar??
EstoyEstoy realizando una agenda en visual basic VB.Net
.net, ya Ya tengo casi todo listo, pero hay algo en dondeuna parte para la que necesito ayuda, necesito.
Me gustaría que al darle click, al hacer clic en el botón SiguienteSiguiente
, se muestremostraran en los TextBox
los datos de un contacto guardado del datagridviewalmacenado en los textboxel DataGridView
y cuandosi se le vuelvavuelve a dar click que muestreclickear el siguiente y al darle al botón anterior se muestre el de atrás, alguien me podría ayudar por favor??..se mostraran los datos del siguiente. Lo mismo para el botón Atrás
.
AquiA continuación, el codigocó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