 Autor
|
Tema: [SRC] cCollectionEx.cls (Leído 8,500 veces)
|
BlackZeroX
Wiki
 Desconectado
Mensajes: 3.158
I'Love...!¡.
|
*PsYkE1* tu funcion Reverse es leeeenta, mejor en dicha funcion pon un Boolean Public function Reverse() as boolean ' //Solo para alternar ReverseMode= not ReverseMode Reverse = ReverseMode End Sub
y digamos por ejemplo en la funcion Item 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!¡.
|
|
|
|
« Última modificación: 22 Agosto 2010, 02:53 am por BlackZeroX »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
atendiendo tu MP *PsYkE1* loq ue hace tu Reverse es: Aplicando Reverse 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: 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 variablesi 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:
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!¡.
|
|
|
|
« Última modificación: 22 Agosto 2010, 03:09 am por BlackZeroX »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Perfecto, ya te pillo... Gracias, mañana modifico, voy a la cama... DoEvents¡!  |
|
|
|
|
En línea
|
|
|
|
|
Di~OsK
|
GRACIAS =D
|
|
|
|
|
En línea
|
Necesitas un servidor de TeamSpeak? Un certificado SSL? MANDA MP
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
bueno yo igual ire a terminar mi Clase de Colecciones!¡.
Hay nos vidrios
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
bueno yo igual ire a terminar mi Clase de Colecciones!¡.
Hay nos vidrios  Te odio! Ahora me dejaras en ridiculo...  Muchas gracias atodos por la ayuda  , ahora ya esta corregido... DoEvents¡!
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
te falto en SwapItem, entre otros, recuerda que el ReverseMode seria Gral no solo en el de Proc Item!¡
Dulces Lunas!¡.
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Oops Gracias...  FAIL  Ahora ya esta de una vez (?) DoEvents¡! |
|
|
|
« Última modificación: 22 Agosto 2010, 21:17 pm por *PsYkE1* »
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Clase actualizada y mejorada, en unas horas actualizo los resultados de la diferencia de velocidad con respecto a la nativa de vb.  DoEvents! |
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
Che, agregale una funcion "Load From File" para que levante texto delimitado.
Y si podes habilitar integridad referencial entre 2 collections seria genial.
GRACIAS POR LEER!!!
|
|
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
|
 |
