Mensajes

bueno yo igual ire a terminar mi Clase de Colecciones!¡.

Hay nos vidrios

[*PsYkE1*]

atendiendo tu MP *PsYkE1*

loq ue hace tu Reverse es:

Código [Seleccionar] Expandir



1,2,9,4,7,6,8



Aplicando Reverse

Código [Seleccionar] Expandir



8,6,7,4,9,2,1



en los Indices Reales ok...

yo que yo digo es que si pones las funciones que te plasme ensima se calcula el index automaticamente sin camviar el contenido de los valores, es decir.

Teniendo esta collecion:

Código [Seleccionar] Expandir



1,2,9,4,7,6,8



ingresamos   item(1) nos devolvera 1 y si ingresamos item(3)   nos devuelve 9 ok en tu Reverse se cambia el contenido en mi propuesta es que solo se altere una variable tipo Boolean de esta forma evitamos el transpaso del contenido y solamente calculamos el index segun esta variable

si item(1) antes de mi Reverse devuelve 1 e item(3) devuelve 9 con reverse (Solo alterando a la variable Boolean)  se calcula que  item(1)   devuelve  8  e item(3)    el 7 es decir:

Código [Seleccionar] Expandir



Si ReverseMode = true entonces
   Index = LCount - index +1
Fin Si
Devolver Item [ Index ]



En forma practica:

El item 1 de la colección digamos que contiene "Hola Mundo" el item 98 de la colección contiene "Dulces Lunas!¡." y en total hay 98 Items.

entonces:

Si ReverseMode = verdadero y Si y solo si Index = 1 me devuelve "Dulces Lunas!¡." pero si ReverseMode = false me devolvera "Hola Mundo".

Dulce Infierno Lunar!¡.

*PsYkE1*

tu funcion Reverse es leeeenta, mejor en dicha funcion pon un Boolean

Código (Vb) [Seleccionar] Expandir



Public function Reverse() as boolean ' //Solo para alternar
    ReverseMode= not ReverseMode
    Reverse = ReverseMode
End Sub



y digamos por ejemplo en la funcion Item

Código (vb,3) [Seleccionar] Expandir



Public Property Get Item(ByVal Index As Long) As Variant
   if ReverseMod then index =  lcount +1 - index
   Item = vColl(Index)
End Property



asi no evitas el Proc que tienes.... es mas rapido aun xP

Dulces Lunas!¡.

Cuando una frase esta asi significa que se retiro lo dicho, pero esto no lo retiro ¬¬"

Dulces Lunas!¡.

[archivo .ini]

.
Escribe la configuracion en un archivo .ini  mas info usa el buscador que hay mucha info ¬¬"

Dulces Lunas!¡.

...
ok que es lo que llevas hasta ahora... no somos beneficencia!¡

Dulces Lunas!¡.

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico3.htm#variables

Dulces Lunas!¡.

.
Te falto algo asi como un Replace ITem, un AfterItem BeforItem a la hora de agregar el Item es decir que si se desea agregar el item entre X Items, o suplantar un item por uno que no exista en la coleccion!¡.

Dulces Lunas!¡.

.
Ojo no acepta Objetos (Form, UC, C, Class, etc...), te falto agregar el isobject en el Swapitem entre otros!¡.

Dulces Lunas!¡.

[Property]

jamas he puesto una variable dentro de una clase de forma publica ( para tomarlo como propiedad ), y es que siempre en un momento dado si quiero modificar la clase y validad los datos antes de almacenar el optimo pues como que reemplazar las variables como que no xP

ademas es mejor si se quiere proteger una variable (solo consultar y no modificar)!¡.

Por ejemplo;

un proseso que ocupe la variable de la propiedad y esta este de forma publica, y se llegue a cambiar el valor de la misma, pues como que causaria un retorno del valor no deseado, en cambio si se declara una variable publica a priivada y esta solo es modificable por medio del Proc Property se puede proteger, pero esto ya lo Sabes xP.

Dulces Lunas!¡.