Punteros en Visual Basic

[LEDS_10]

Bueno logramos solucionar nuestro problema para el manejo de Listas enlazadas en Visual Basic .NET utilizando Clases

Para el manejo de nodos utilizamos la siguiente clase:
Public Class Node
Public Dato As New Estudiante
Public Siguiente As Node
End Class
Public Class Estudiante
Public Nombre As String
Public Cedula As String
End Class


Luego en otro modulo para crear la lista utilizamos lo siguiente:
Sub CrearNuevaLista()
NodoInicio = New Node 'Puntero al nuevo objeto
NodoInicio.Dato.Cedula = ""
NodoInicio.Dato.Nombre = ""
NodoInicio.Siguiente = NodoInicio
End Sub

//Para ingresar elementos al final de la lista el siguiente codigo:
Sub InsertarFinal()
Dim Nodo As Node
Nodo = NodoInicio
If Nodo.Siguiente Is Nodo Then
If Nodo.Dato.Cedula = "" And Nodo.Dato.Nombre = "" Then
Console.Write("Ingrese el Nombre: ")
Nodo.Dato.Nombre = Console.ReadLine()
Console.Write("Ingrese la Cédula: ")
Nodo.Dato.Cedula = Console.ReadLine()
Nodo.Siguiente = Nodo
Else
Nodo.Siguiente = New Node
Nodo = Nodo.Siguiente
Console.Write("Ingrese el Nombre: ")
Nodo.Dato.Nombre = Console.ReadLine()
Console.Write("Ingrese la Cédula: ")
Nodo.Dato.Cedula = Console.ReadLine()
Nodo.Siguiente = Nodo
End If
Else
Do
Nodo = Nodo.Siguiente
If Nodo.Siguiente Is Nodo Then
Nodo.Siguiente = New Node
Nodo = Nodo.Siguiente
Console.Write("Ingrese el Nombre: ")
Nodo.Dato.Nombre = Console.ReadLine()
Console.Write("Ingrese la Cédula: ")
Nodo.Dato.Cedula = Console.ReadLine()
Nodo.Siguiente = Nodo
End If
Loop Until Nodo.Siguiente Is Nodo
End If
Console.ReadLine()
End Sub



-----------------------------------------------------------------------
Bueno espero que les sirva!