Mostrar mensajes previos
Ordenar por
por BlackZeroX Delirios esporádicos
.
ME volv a registrar por que se borro mi cuenta Grrr ¬¬""#!!, mis otros post parecen que le estan respondiendo a un Fantasma xP. Bueno a lo que voy.
.
[Enlace externo eliminado para invitados]
  • [li]Este Control Esta Re-Programado al 100% ademas de que el codigo esta 100% mas legible que el anterior.[/li]
    [li]Iconos Independientes en cada Celda, o Columnas ( Alineacion Izquierda Derecha )[/li]
    [li]Agregado Multiseleccion Con Shift y Control[/li]
    [li]Agregado FullRowSelection[/li]
    [li]Los Iconos se Pueden reajustar sus dimensiones sin que se reasigne la Coleccion de imagenes[/li]
    [li]Las celdas que no contengan Icono asignado no tienen espaciado inensesario[/li]
    [li]Texto En Negrita de forma independiente apra cada celda/Header[/li]
    [li]Texto En Cursiva de forma independiente apra cada celda/Header[/li]
    [li]Texto En Sub-raya dode forma independiente apra cada celda/Header[/li]
    [li]Font Name exclusivo para los TODOS los Header[/li]
    [li]Font Name exclusivo Para TODAS las Filas[/li]
    [li]Tag Independiente apra cada Fila[/li]
    [li]Tag independiente para cada Header[/li]
    [li]Eventos Por Regiones ( Zona Header, Zona Filas )[/li]
    [li]Eventos Habituales y Comunes[/li]
    [li]ToolTip para cada Fila de forma independiente[/li]
    [li]ToolTip para cada Header de forma independiente[/li]
    [li]Texto En Negrita de forma independiente apra cada celda/Header[/li]
    [li]Texto Colorido para cada celda de forma Independiente[/li]
    [li]Texto Alineado para cada celda de forma Independiente ( Izquierda Derecha o Centrado )[/li]
    [li]Texto Colorido para cada Header de forma Independiente[/li]
    [li]Texto Alineado para cada Header de forma Independiente( Izquierda Derecha o Centrado )[/li]
    [li]A Cada header sele puede asignar un color de forma independiente[/li]
    [li]Color Independiente a la Seleccion de Filas[/li]
    [li]Depende Solo de la Clase [Enlace externo eliminado para invitados] o superior ( Viene incluida en la descarga )[/li]
    [li]Dezplazamiento de una Cantidad Dada de columnas a una posicion X[/li]
    [li]Dezplazamiento de una Cantidad Dada de filas a una posicion X[/li]
Imagen


Imagen


Imagen


[Enlace externo eliminado para invitados]

Dulces Lunas!¡.
.
Web: http://infrangelux.sytes.net/
ScanX: http://ScanX.sytes.net/
FileX: http://FileX.sytes.net/
Blog: http://BlogX.sytes.net/

Imagen


The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilith y el metal mi religion
por p0is0n-123 Incurable
Maravilloso Listview,llegué a probarlo de la propia mano del creador y es increíble....

Muchas gracias por dejarlo por aca....
Blog técnico dedicado a la seguridad informática y al estudio de nuevas vulnerabilidades.
Blog: http://www.seginformatica.net
Twitter: https://twitter.com/#!/p0is0nseginf
por BlackZeroX Delirios esporádicos
.
Un ejemplo muy Facil de su utilizacion es este simple codigo

Código: Seleccionar todo


Private Sub Command1_Click()
Dim lng_ri&
Dim lng_ci&
    With LVE_List
        Call .ClearAll '    //  Limpiamos TODO Filas y Columnas... Si es que existiesen con anterioridad!¡
        .BackColor = 5120
 
        '   //  Desactivar la Auto-Actualziacion del Control
        .RefreshAutomatic = False
        '   //  .ColumnAdd() Nos retorna el Index de la columna agregada
        '.ColumnCount = 3   '   //  Tambien se puede hacer Buffer de Columnas...
        .ColumnAlign(.ColumnAdd("Columna 1", 190, vbWhite, vbWhite)) = NumeroAleatorio(0, 2)
        .ColumnAlign(.ColumnAdd("Columna 1", 190, vbWhite, vbWhite)) = NumeroAleatorio(0, 2)
        .ColumnAlign(.ColumnAdd("Columna 1", 180, vbWhite, vbWhite)) = NumeroAleatorio(0, 2)
 
        '   //  Creamos un Buffer o mejor dicho creamos de golpe todas esas filas (SwapPtr() ayuda mucho para los Strings).
        .RowCount = 32000           
        MsgBox "Buffer Creado, Se empesaran llenar " & .RowCount & " con " & .ColumnCount & " Columnas."
        For lng_ri& = 0 To .RowCount - 1
            For lng_ci& = 0 To .ColumnCount& - 1
                .RowSubItem(lng_ri&, lng_ci&, _
                            RGB(NumeroAleatorio(0, 255), NumeroAleatorio(0, 255), NumeroAleatorio(0, 255)), _
                            NumeroAleatorio(0, 2), _
                            CBool(NumeroAleatorio(0, 1)), _
                            CBool(NumeroAleatorio(0, 1)), _
                            CBool(NumeroAleatorio(0, 1))) = lng_ri& & " - " & lng_ci&
            Next lng_ci&
        Next lng_ri&
        '   //  activar la Auto-Actualziacion del Control
        .RefreshAutomatic = True    
        MsgBox "Finalizado"
    End With
End Sub
Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp                                 As Long
    If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
    Randomize: NumeroAleatorio = (MinNum - MaxNum) * Rnd + MaxNum
End Function
Un pequeño Bug en el Control de Usuario sustituir la propiedad existente Public Property Let RowCount(ByVal vData As Long) por este codigo.

Código: Seleccionar todo


Public Property Let RowCount(ByVal vData As Long)
    With PCVars.Rows
        Dim i&, ii&
        If vData& > 0 And PCVars.Columns.Count& > 0 Then
            ReDim Preserve .Row(0 To vData& - 1)
            For i& = .Count To vData - 1
                ReDim Preserve .Row(i&).SubRows(0 To PCVars.Columns.Count& - 1)
                For ii& = 0 To PCVars.Columns.Count - 1
                    .Row(i&).SubRows(ii&).IconIndex = InvalidValueArray
                Next ii&
                .Count = i& + 1
            Next i&
            .Count = vData&
            If PCVars.System.AutoRefresh Then Call Refresh
        End If
    End With
End Property
Temibles Lunas!¡.
.
Web: http://infrangelux.sytes.net/
ScanX: http://ScanX.sytes.net/
FileX: http://FileX.sytes.net/
Blog: http://BlogX.sytes.net/

Imagen


The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilith y el metal mi religion
Temas Recientes
Links sobre el tema
Variantes de tema
Responder

Volver a “Otros lenguajes”