Foro de elhacker.net

Private Sub Form_Load()
 
ListView1.ListItems.Add = "hola"
ListView1.ListItems.Add = "chau"
 
MsgBox ListView1.ListItems.Item(1)
MsgBox ListView1.ListItems.Item(2)
 
End Sub
 

 
type tlvFind
    lindexSrc as long ' // Indica de donde viene
    lindexDest as long ' // Indica a donde pertece
end type
 
 

 
type stRelacion
    lIndexSock as long
    lIndexListView as long
end type
 
 

 
private function ExitsInArray (byval lvaltofind as long,byref vaBuff() as long,byref lPos as long) as boolean
   '....algo de código
   if lvaltofind= vabuff(indice) then
     '...algo de código
   end if
end function
 
 

 
type stRelacion
    lIndexSock as long
    lIndexListView as long
end type
 
private function ExitsInArray (byval lvaltofind as long,byref vaBuff() as stRelacion,byref lPos as long) as boolean
   '....algo de código
   if lvaltofind= vabuff(indice).lIndexSock then
     '...algo de código
   end if
end function
 
 

 
private vaRelacion() as stRelacion
 
private sub algunproceso(byval index as long,... otros parametros del proceso o evento)
Dim lpos as long
Dim lub as long
Dim lIndexRow as long
    '... Antes aceptas la conexion en este mismo proceso
    lIndexRow = '...Agregas un registro mas al listview y obtienes su indice ( propiedad count y le resta 1 para obtener el indice de la fila...) )
    if ( ExitsInArray(index, vaRelacion, lpos) )  'buscamos si ya hay alguna relacion....
        '// Ya hay una relacion pero como dicha relacion no esta en el listview actualmente o esta en desuso... solo la modificamos
        vaRelacion(lpos).lIndexListView = index ' // como ya existia solo le actualisamos el registro al listview...
    else
        ' // si no existe redimensionamos vaRelacion
        if (itsarrayini(varptrarr(vaRelacion))=true) then
            lub = ubound(vaRelacion)+1
            redim preserve vaRelacion (lbound(vaRelacion) to lub)
            vaRelacion(lub).lIndexSock = index
            vaRelacion(lub).lIndexListView = lIndexRow
        end if
    end if
end sub
 
 

 
Private Function privRowDelete(ByRef vRowIndex As Long) As Boolean
Dim ln_Bytes                                As Long
Dim lng_PtrOld()                            As Byte
    With PCVars.Rows
        If .Count > 0 Then
            ln_Bytes = LenB(.Row(0))
            .Count = .Count - 1
            If .Count > 0 And vRowIndex > InvalidValueArray Then
                If ln_Bytes > 0 And vRowIndex + 1 <= .Count Then
                    ReDim lng_PtrOld(1 To ln_Bytes)
                    Call CopyMemory(ByVal VarPtr(lng_PtrOld(1)), ByVal VarPtr(.Row(vRowIndex)), ln_Bytes)
                    Call CopyMemory(ByVal VarPtr(.Row(vRowIndex)), ByVal VarPtr(.Row(vRowIndex + 1)), ln_Bytes * (.Count - vRowIndex))
                    Call CopyMemory(ByVal VarPtr(.Row(.Count)), ByVal VarPtr(lng_PtrOld(1)), ln_Bytes)
                End If
                ReDim Preserve .Row(0 To .Count - 1)
            Else
                Erase .Row()
            End If
            privRowDelete = True
        End If
    End With
 
End Function
 
 

para que entiendas esta funcion has de cuenta que un array vector o matrix es una sucesion de valores uno atras de otro o uno delante de otro como la numeros:

0123456789 

Ok bien el trabajo de copymemory es copiar bloques de ellos a otras partes es decir digamos que tenemos esto en la memoria...

aaaabbbbccccddddeeeeffff

ok? en la memoria un puntero es de 4 bytes (en arquitecturas de 32 bits vb es de 32 bits), bien lo que se hace es que la dirrecion fisica de un puntero indica donde esta algo lo que sea...

ahora par LenB() obtiene el peso en bytes de un indice de un elemento de un array o vector... despues se multiplica por la cantidad de elementos a deszplazar.. digamos ahora si:

aaaabbbbccccddddeeeeffff

Como vez puse de alguna manera 4 a, 4 b 4c etc... por que digamos que son punteros ( 4 bytes = long = puntero ) funcion VarptrArr().

Cada 4 bytes = 1 elemento del indice de un vector/array por lo tanto lenb(vaRelacion(indice)) = 4 u 8 bytes ( puede variar aun que si hay punteros o declaracion de strings o mas arrays no inicializado dentro de la estructura es comun que sean 4 bytes de lo contrario en este caso como son todos long te dara 8 bytes cada elemento de vaRelacion(indice)... )

Ok llendo al grano de esto lenb(vaRealacion(indice)) = 8 por lo tanto de:

aaaabbbbccccddddeeeeffff

"aaaabbbb" se decuce que que como esta la estructura en la 1ra variable es lIndexSock las "aaaa" indican este valor y las "bbbb" indicaran lIndexListView el trabajo del codigo es que si quieres remover por ejemplo el indice 1 de vaRelacion ( es decir "ccccdddd" ) se hace esto:

Se hace un backup de "ccccdddd" en un array de Bytes(0 to (lenb(vaRelacion(indice))-1)) o bien (0 to 7) como ya habíamos analisado...

lng_PtrOld = {"ccccdddd"} ' 1er copymemory

se mueve el bloque hacia la izquierda....

aaaabbbbeeeeffffeeeefffff ' 2do copymemory

como vez ahora se repitieron "eeeeffff" pero como somos organisados y queremos que nuestro proceso sea maleable y adaptable para otros aspectos que quisas nos sirvan en un futuro hacemos que lo guardado en el array de bytes (en este caso lng_PtrOld) lo mandamos al final...
Hacemos un 3er copymemory para mandar lo resguardado al final quedando

quedando:

aaaabbbbeeeeffffccccdddd ' // 3er copymemory

al final aplicamos un redim preserve para eliminar ahora si el ultimo indice y quedaria haci...

aaaabbbbeeeeffff

De esta manera se eliminara un elemento de un array/vector cualquiera de manera veloz es la mas veloz que existe en vb6

en si solo se nesesitaria 1 copymoemy para este caso pero quise explicarte el por que de 3 copymemory... ya que si es otra estructura puede que cada indice el puntero sea un puntero al bloque de memoria donde se encuentren las variables pero como no es el caso puedes usar 1 copymemory libremente...

Dim LvwSockIndex(100) as Long

Dim sItem as Listitem
 
Set sItem = Listview1.listitems.add (,, Index) ' Agrego el cliente al listview
sItem.Subitem(1) = "Cliente" ' Agrego algunos sub valores
 
' Luego Almaceno la posicion que ocupa en el listview en el indice de la matrix igual al indice del sock del cliente:
 
LvwSockIndex(Index) = Sitem.Index

Private Sub winsock1_DataArrival(index As Integer, ByVal BytesTotal As Long)
 
         Listvieww1.ListItems.Item(LvwSockIndex(Index)).ListSubItems(8).Text = Datos
 
end sub