elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  almacenar estructura en cadena en .NET
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: almacenar estructura en cadena en .NET  (Leído 1,008 veces)
andaluz


Desconectado Desconectado

Mensajes: 330



Ver Perfil
almacenar estructura en cadena en .NET
« en: 26 Octubre 2011, 17:48 pm »

Hola a todos, tengo que almacenar en una cadena una estructura (nombre, apellidos, direccion, ciudad, telefono, fecha_nacimiento) esto lo tengo que hacer en un formulario, yo he realizado el formulario y el siguiente codigo:

Código
  1. Public Class frm_Alumno
  2.  
  3.    Public Structure str_Alumnos
  4.        Public nombre As String
  5.        Public apellidos As String
  6.        Public direccion As String
  7.        Public telefono As String
  8.        Public fecha_nac As Date
  9.    End Structure
  10.  
  11.    Dim nregistros As UShort
  12.    Public S_Alumnos() As str_Alumnos
  13.  
  14.    Private Sub cmb_Borrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Borrar.Click
  15.        txt_Nombre.Text = ""
  16.        txt_Apellido.Text = ""
  17.        txt_Direccion.Text = ""
  18.        txt_Telefono.Text = ""
  19.        txt_Fecha_Nacimiento.Text = ""
  20.    End Sub
  21.  
  22.    Private Sub cmb_Insertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Insertar.Click
  23.  
  24.  
  25.        'pnl_Alumno.Visible = True
  26.  
  27.        '        aqui le tendria que realizar un bucle, para que recorra los campos de la estructura tantas veces
  28.        ' como yo quiera, pero nuse de que manera lo tendría que realizar, me pueden ayudar??
  29.        S_Alumnos(CInt(lbl_Contador.Text)).nombre = txt_Nombre.Text
  30.        S_Alumnos(CInt(lbl_Contador.Text)).apellidos = txt_Apellido.Text
  31.        S_Alumnos(CInt(lbl_Contador.Text)).direccion = txt_Direccion.Text
  32.        S_Alumnos(CInt(lbl_Contador.Text)).telefono = txt_Telefono.Text
  33.        S_Alumnos(CInt(lbl_Contador.Text)).fecha_nac = CDate(txt_Fecha_Nacimiento.Text)
  34.        lbl_Contador.Text = CInt(lbl_Contador.Text) + 1
  35.    End Sub
  36.  
  37.    Private Sub cmb_Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Buscar.Click
  38.        Dim i As Integer
  39.        Dim buscar_nombre, buscar_apellido As String
  40.  
  41.        buscar_nombre = InputBox("Introduce el nombre a buscar: ")
  42.        buscar_apellido = ("Introduce el apellido a buscar: ")
  43.  
  44.        For i = 0 To nregistros
  45.            If S_Alumnos(i).nombre = txt_Nombre.Text = S_Alumnos(i).apellidos = txt_Apellido.Text Then
  46.                MsgBox("Nombre: " & txt_Nombre.Text & vbCrLf &
  47.                       "Apellido: " & txt_Apellido.Text & vbCrLf &
  48.                       "Direccion: " & txt_Direccion.Text & vbCrLf &
  49.                       "Telefono: " & txt_Telefono.Text & vbCrLf &
  50.                       "Fecha de Nacimiento: " & txt_Fecha_Nacimiento.Text)
  51.            End If
  52.        Next i
  53.    End Sub
  54.  
  55.    Private Sub frm_Alumno_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  56.        Dim nregistros As UShort
  57.        nregistros = CUShort(InputBox("Introduce el numero de registros"))
  58.        lbl_Total.Text = nregistros
  59.        'pnl_Alumno.Visible = False
  60.    End Sub
  61. End Class
  62.  

en el codigo les he dejado un comentario en la parte que creo yo que deberia de ir el bucle.

espero que me puedan ayudar, saludos


« Última modificación: 26 Octubre 2011, 20:23 pm por andaluz » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines