Pilas en vb, o crear historial

[Ecj]

Buen dia.

Veran tengo que realizar algo asi como un historial de los formularios que se van a briendo en una aplicacion, de forma que cuando uno de los formularios sea cerrado, muestre el inmediatamente anterior a este y desde el cual fue abierto.

Quiero saber si existe una forma facil de realizarlo o que me recomiendan para lograrlo, he visto algo sobre pilas y creo que se adaptaria a esta necesidad pero no sé si existe en vb.

Les agradezco cualquier colaboracion.

EXITOS

[erbuson]

Hola, en cierta ocasión analicé un sistema para hacerlo que aunque al final no llegué a utilizarlo creo recordar que me funcionaba.

Te digo como era por si quieres probarlo o intentarlo con este:

En un módulo, para ser accesible desde todos los formularios

Código vb:

Dim miPila As New Collection
 
Public Sub mpQuienLlama(Formulario As Form)
  ' Añade a la pila el nombre del formulario que llama
  miPila.Add Formulario, Str$(miPila.Count)
End Sub
 
Public Function mpQuienLlamo(Optional Remove As Boolean = True) As Form
  ' Devuelve el nombre del último formulario que llamó
  ' Se puede pedir el nombre, sin eliminar de la coleccion. Para Maximizar
  Set mpQuienLlamo = miPila.Item(Str$(miPila.Count - 1))
  If Remove Then miPila.Remove (Str$(miPila.Count - 1))
End Function
 

Saludos

[pkj]

Yo había pensado en un simple listbox oculto, ya que siempre que cierres un formulario y lo borres de la lista, los demás se juntan para rellenar el espacio y siempre queda claro a que formulario hay que ir cuando cierras uno de ellos (menos el primero, que no tiene antecesor (o predecesor o lo que sea), aunque se puede usar el segundo si existe). De este modo no estás limitado a cerrarlos empezando por el último.

No sé si tu método permite eso, erbuson, ni si habrá quedado claro a qué me refiero.
De todas formas tendré que leer un poco sobre las colecciones esas a ver si algún día me facilitan la existencia

Saludos.

[erbuson]

Hola pkj, efectivamente tienes razon en el tema del ListBox, lo que pasa es que el ListBox es un objeto que tiene que pertenecer a un formulario y entonces para que cada uno de ellos al cerrarse, devuelva el control al anterior, tiene que tener acceso a este listbox y no deja de ser un engorro, por esta razón inicialmente lo había pensado y lo descarté.

De este modo la Pila es una coleccion accesible desde cualquiera de los formularios.

Por otra parte el tema de la Pila, es que por lo general suele utilizar lo que se denomina el metodo LIFO (Last Input First Output) el ultimo en entrar será el primero en salir.

Y por la pregunta yo entendí que quería hacerlo así aunque realmente releyéndola puede interpretarse que no necesariamente ha de ser así.

Saludos

[pkj]

Tienes razón. Para usar un ListBox habría que dejarlo oculto en el formulario principal y este no debe cerrarse, claro.

Mi idea era incluir algo como un:
Public Lista As ListBox
dentro de un módulo.
Sin embargo parece ser complicado cuando lo intentas.

Además creo que he leído que eliminando un elemento de la colección los demás se reindexan solos, de modo que quizá tu método podría tener el mismo resultado que con un listbox si lo retocas.

Saludos