Asunto: Equivante a record de delphi en VB.Net Visual Basic
Estoy usando Visual Basic .Net (VB.Net) versión 2010, necesito usar un tipo record de delphi pero en Visual Basic ¿existe algún equivalente?
Tengo los eventos de un calendario en una aplicación que estoy desarrollando, quiero guardarlos en un record en Visual Basic, quiero guardar los datos:
titulo
fechaInicio
fechaFin
contenido
lugar
Una vez guardados en esa estructura, quiero poder recorrer todos los datos insertados.
Publicado:
Dom Abr 24, 2011 5:43 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Equivante a record de delphi en VB.Net Visual Basic
Anuncios
varios escribió:
Estoy usando Visual Basic .Net (VB.Net) versión 2010, necesito usar un tipo record de delphi pero en Visual Basic ¿existe algún equivalente?
Tengo los eventos de un calendario en una aplicación que estoy desarrollando, quiero guardarlos en un record en Visual Basic, quiero guardar los datos:
titulo
fechaInicio
fechaFin
contenido
lugar
Una vez guardados en esa estructura, quiero poder recorrer todos los datos insertados.
Puedes usar el tipo "structure". Para declararlo sería algo así:
Código:
Public Structure eventosCalendario
Public titulo As String
Public fechaInicio As Date
Public fechaFin As Date
Public contenido As String
Public lugar As String
End Structure
Luego declaras el array de "eventosCalendario" con:
Código:
Dim eventosArray As New List(Of eventosCalendario)
Para introducir datos en el tipo structure usa:
Código:
eventosArray.Clear()
'Suponemos que obtienes los datos de los eventos de otro "lado"
'recorriéndolos con un for o algo similar
For Each .....
Dim eventosInsertar As New eventosCalendario
eventosInsertar.contenido = contenido
eventosInsertar.titulo = titulo
eventosInsertar.fechaInicio = fechaInicio
eventosInsertar.fechaFin = fechaFin
eventosArray.Add(eventosInsertar)
Next
Una vez que tienes los eventos del calendario en el array de eventos "eventosArray", ahora puedes recorrerlo para obtener sus datos con:
Código:
Dim i As Integer
'lsCitas será un ListBox
For i = 0 To eventosArray.Count - 1
lsCitas.Items.Add(CStr(eventosArray.Item(i).fechaInicio) &
" " & eventosArray.Item(i).titulo)
Next i
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A