VB_CLS_GRID

Public Class GRID


#Region "COLORES"
    Private BLANCO As Color = Color.White
    Private NEGRO As Color = Color.Black
    Private VERDE As Color = Color.LimeGreen
    Private ROJO As Color = Color.Red
    Private TOMATE As Color = Color.Tomato
    Private ROJO_OSCURO As Color = Color.DarkRed
    Private NARANJA As Color = Color.Orange
    Private AZUL As Color = Color.Navy
    Private AZUL_MENU As Color = Color.DodgerBlue
    Private GRIS As Color = Color.DarkGray
    Private AMARILLO As Color = Color.Yellow
    Private GOLD As Color = Color.Gold
    Private LEMON As Color = Color.LemonChiffon

#End Region


#Region "ALINEACIONES"

    Public CENTRO As DataGridViewContentAlignment = DataGridViewContentAlignment.MiddleCenter
    Public IZQUIERDA As DataGridViewContentAlignment = DataGridViewContentAlignment.MiddleLeft
    Public DERECHA As DataGridViewContentAlignment = DataGridViewContentAlignment.MiddleRight

#End Region


#Region "FUENTES"

    Public ARIAL As Integer
    Public ARIAL_BLACK As Integer
    Public VERDANA As Integer
    Public COMIC_SANS As Integer

#End Region

    Public Grid As DataGridView
    Public L_Columnas As List(Of GRID_COLUMNA)

    Public Sub New(ObjGrid As DataGridView)

        Grid = ObjGrid
        L_Columnas = New List(Of GRID_COLUMNA)
        ' L_Columnas.Clear()
        Call CargaFuentes()

    End Sub

#Region "PROPIEDADES"

    Private _Grid As DataGridView
    'Public Property Grid() As DataGridView
    '    Get
    '        Return _Grid
    '    End Get
    '    Set(value As DataGridView)
    '        _Grid = value
    '    End Set
    'End Property

    Private _nColumnas As Integer
    Public Property nColumnas() As Integer
        Get
            Return _nColumnas
        End Get
        Set(ByVal value As Integer)
            _nColumnas = value
        End Set
    End Property

    Private _Titulo As String
    Public Property Titulo() As String
        Get
            Return _Titulo
        End Get
        Set(ByVal value As String)
            _Titulo = value
        End Set
    End Property

#End Region


#Region "MÉTODOS PÚBLICOS"

    Public Sub Vaciar()
        Grid.Rows.Clear()
    End Sub

    Public Sub Refresca()
        Grid.Refresh()
    End Sub

    Public Sub Cabeceras()

        For i As Integer = 0 To Grid.Columns.Count - 1
            Grid.Columns.Remove(Grid.Columns(0))
        Next

        _nColumnas = L_Columnas.Count

        For i = 0 To L_Columnas.Count - 1
            With L_Columnas(i)
                Grid.Columns.Add(.Nombre, .Texto)
                'Grid.Columns(i).Width = .Ancho
                Grid.Columns(i).Width = DameAnchoCol(.Ancho)
                Grid.Columns(i).DefaultCellStyle.Alignment = .Alineacion
                Grid.Columns(i).Visible = .bVisible ' 1= True:0= False
                Grid.Columns(i).SortMode = .bOrdenable


            End With
        Next

        'For i = 0 To Grid.Columns.Count - 1
        '    MsgBox(i & " : " & Grid.Columns(i).Name)
        'Next


    End Sub

    Public Sub FilaSelecciona(iFila As Integer, bUnica As Boolean)

        With Grid
            If bUnica Then .ClearSelection() : .CurrentCell = Nothing
            If iFila < 0 Then Exit Sub
            .Rows(iFila).Selected = True
        End With

    End Sub

    Public Sub FilaAgregar(Arr_Fila() As String)

        Grid.Rows.Add(Arr_Fila)

    End Sub


    Public Sub CeldaValor(iFila As Integer, iCol As Integer, Valor As String)

        Grid.Rows(iFila).Cells(iCol).Value = Valor

    End Sub

    Public Sub EstiloCabecera(Estilo As String)

        Dim COLOR_FONDO As Color, COLOR_FUENTE As Color

        Select Case Estilo
            Case "BLANCO"
                COLOR_FONDO = BLANCO : COLOR_FUENTE = NEGRO
            Case "VERDE"
                COLOR_FONDO = VERDE : COLOR_FUENTE = BLANCO
            Case "ROJO"
                COLOR_FONDO = ROJO : COLOR_FUENTE = BLANCO
            Case "NARANJA"
                COLOR_FONDO = NARANJA : COLOR_FUENTE = BLANCO
            Case "NEGRO"
                COLOR_FONDO = NEGRO : COLOR_FUENTE = BLANCO
            Case Else
                COLOR_FONDO = BLANCO : COLOR_FUENTE = NEGRO
        End Select

        With Grid
            .ColumnHeadersDefaultCellStyle.BackColor = COLOR_FONDO
            .ColumnHeadersDefaultCellStyle.ForeColor = COLOR_FUENTE
            .ColumnHeadersDefaultCellStyle.Font = New Font(FontFamily.Families(ARIAL_BLACK), 10, FontStyle.Bold, GraphicsUnit.Point)
            .ColumnHeadersHeight = 30
            .RowHeadersDefaultCellStyle.SelectionBackColor = AZUL_MENU
            .EnableHeadersVisualStyles = False
        End With

    End Sub

    Public Sub EstiloGrid(Estilo As String)

        Dim COLOR_FONDO As Color, COLOR_FUENTE As Color

        Select Case Estilo
            Case "BLANCO"
                COLOR_FONDO = BLANCO : COLOR_FUENTE = NEGRO
            Case "VERDE"
                COLOR_FONDO = VERDE : COLOR_FUENTE = BLANCO
            Case "ROJO"
                COLOR_FONDO = ROJO : COLOR_FUENTE = BLANCO
            Case "NARANJA"
                COLOR_FONDO = NARANJA : COLOR_FUENTE = BLANCO
            Case "NEGRO"
                COLOR_FONDO = NEGRO : COLOR_FUENTE = BLANCO
            Case Else
                COLOR_FONDO = BLANCO : COLOR_FUENTE = NEGRO
        End Select

        With Grid
            .DefaultCellStyle.BackColor = COLOR_FONDO
            .DefaultCellStyle.ForeColor = COLOR_FUENTE
            .DefaultCellStyle.Font = New Font(FontFamily.Families(VERDANA), 8, FontStyle.Bold, GraphicsUnit.Point)
            .DefaultCellStyle.SelectionBackColor = AZUL_MENU
            .EnableHeadersVisualStyles = False
            .RowTemplate.Height = 12
            ' .RowTemplate.Height = DameAnchoFilas(.Rows.Count)

        End With

    End Sub

    Public Sub EstiloFila(iFila As Integer, sEstilo As String)

        Dim COLOR_FONDO As Color, COLOR_FUENTE As Color

        Select Case sEstilo
            Case "BLANCO"
                COLOR_FONDO = BLANCO : COLOR_FUENTE = NEGRO
            Case "AMARILLO"
                COLOR_FONDO = AMARILLO : COLOR_FUENTE = NEGRO
            Case "GOLD"
                COLOR_FONDO = GOLD : COLOR_FUENTE = NEGRO
            Case "LEMON"
                COLOR_FONDO = LEMON : COLOR_FUENTE = NEGRO
            Case "VERDE"
                COLOR_FONDO = VERDE : COLOR_FUENTE = BLANCO
            Case "ROJO"
                COLOR_FONDO = ROJO : COLOR_FUENTE = BLANCO
            Case "TOMATE"
                COLOR_FONDO = TOMATE : COLOR_FUENTE = BLANCO
            Case "NARANJA"
                COLOR_FONDO = NARANJA : COLOR_FUENTE = BLANCO
            Case "NEGRO"
                COLOR_FONDO = NEGRO : COLOR_FUENTE = BLANCO
            Case Else
                COLOR_FONDO = BLANCO : COLOR_FUENTE = NEGRO
        End Select

        With Grid
            .Rows(iFila).DefaultCellStyle.BackColor = COLOR_FONDO
            .Rows(iFila).DefaultCellStyle.ForeColor = COLOR_FUENTE
            .Font = New Font(.Font, FontStyle.Bold)
        End With


    End Sub


#End Region

#Region "MÉTODOS PRIVADOS"

    Private Sub CargaFuentes()

        For i = 0 To FontFamily.Families.Count - 1
            'Debug.Print(i & "  " & FontFamily.Families(i).Name)
            'Console.Write(FontFamily.Families(i).Name)

            Select Case FontFamily.Families(i).Name
                Case "Arial" : ARIAL = i
                Case "Arial Black" : ARIAL_BLACK = i
                Case "Verdana" : VERDANA = i
                Case "Comic Sans MS" : COMIC_SANS = i
            End Select

        Next

    End Sub

    Private Function DameAnchoCol(Porcentaje As Integer) As Integer
        DameAnchoCol = 10

        If Porcentaje = 0 Then DameAnchoCol = 0 : Exit Function

        Dim AnchoGrid As Integer = Grid.Width - 44.8


        DameAnchoCol = (Porcentaje * AnchoGrid) / 100

    End Function

    Private Function DameAnchoFilas(nFilas As Integer) As Integer

        DameAnchoFilas = 10

        If nFilas < 1 Then Exit Function

        Dim AltoGrid As Integer = Grid.Height - Grid.ColumnHeadersHeight


        DameAnchoFilas = AltoGrid / nFilas

    End Function

#End Region

End Class


Public Class GRID_COLUMNA

    Public Sub New(sNombre As String, sTexto As String, iAncho As Integer, Alinea As DataGridViewContentAlignment, Optional bEsVisible As Boolean = True, Optional bOrdena As Integer = 1)
        _Nombre = sNombre : _Texto = sTexto : _Ancho = iAncho : _Alineacion = Alinea : _bVisible = bEsVisible : _bOrdenable = bOrdena
    End Sub

#Region "PROPIEDADES"


    Private _Nombre As String
    Public Property Nombre() As String
        Get
            Return _Nombre
        End Get
        Private Set(ByVal value As String)
            _Nombre = value
        End Set
    End Property

    Private _Texto As String
    Public Property Texto() As String
        Get
            Return _Texto
        End Get
        Private Set(ByVal value As String)
            _Texto = value
        End Set
    End Property

    Private _Ancho As String
    Public Property Ancho() As String
        Get
            Return _Ancho
        End Get
        Private Set(ByVal value As String)
            _Ancho = value
        End Set
    End Property

    Private _Alineacion As DataGridViewContentAlignment
    Public Property Alineacion() As DataGridViewContentAlignment
        Get
            Return _Alineacion
        End Get
        Private Set(ByVal value As DataGridViewContentAlignment)
            _Alineacion = value
        End Set
    End Property

    Private _bOrdenable As Integer
    Public Property bOrdenable() As Integer
        Get
            Return _bOrdenable
        End Get
        Private Set(ByVal value As Integer)
            _bOrdenable = value
        End Set
    End Property

    Private _bVisible As Boolean
    Public Property bVisible As Boolean
        Get
            Return _bVisible
        End Get
        Private Set(ByVal value As Boolean)
            _bVisible = value
        End Set
    End Property

#End Region


End Class