Windows Forms. DataGridView. Columna que acepta sólo números.

En este artículo voy a mostrar cómo crear un nuevo tipo de columna para el DataGridView para almacenar valores numéricos enteros, de forma que las celdas únicamente admitan la introducción de caracteres numéricos.

Creando la Clase IntegerGridColumn

Voy a crear un nuevo proyecto GridExtension del tipo Biblioteca de Clases.

Al proyecto le agregaré una referencia al ensamblado System.Windows.Forms de forma que tenga acceso a las clases del control DataGridView.

Dentro del proyecto voy a crear un nuevo archivo IntegerGridColumn.cs/IntegerGridColumn.vb en el que voy a definir dos clases. La clase IntegerGridColumn que hereda de DataGridViewColumn y la clase IntegerGridCell que hereda de DataGridViewTextBoxCell.

• C#
• Visual Basic

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace GridExtension
{
    public class IntegerGridColumn : DataGridViewColumn
    {
    }

    public class IntegerGridCell : DataGridViewTextBoxCell
    {
    }
}

Imports System.Windows.Forms

Public Class IntegerGridColumn
    Inherits DataGridViewColumn

End Class

Public Class IntegerGridCell
    Inherits DataGridViewTextBoxCell

End Class

En la clase IntegerGridCell voy a sobreescribir la propiedad ValueType para especificar que el tipo de los valores de la celda es Int32, y el método InitializeEditingControl para añadir un controlador de evento al evento KeyPress del control de edición de la celda.

El controlador de este evento (el método IntegerGridCell_KeyPress) va a ser el responsable de controlar que los caracteres se correspondan con caracteres numéricos. En caso contrario establece la propiedad Handled del objeto KeyPressEventArgs a true para anular el tratamiento de la tecla pulsada.

• C#
• Visual Basic

    public class IntegerGridCell : DataGridViewTextBoxCell
    {

        public IntegerGridCell() : base() { }

        public override Type ValueType
        {
            get { return typeof(Int32); }
        }

        public override void InitializeEditingControl(int rowIndex, object initialFormattedValue, DataGridViewCellStyle dataGridViewCellStyle)
        {
            base.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle);
            Control ctl = DataGridView.EditingControl;
            ctl.KeyPress += new KeyPressEventHandler(IntegerGridCell_KeyPress);
        }

        private void IntegerGridCell_KeyPress(object sender, KeyPressEventArgs e)
        {
            DataGridViewCell currentCell = ((IDataGridViewEditingControl)sender).EditingControlDataGridView.CurrentCell;
            if (currentCell is IntegerGridCell)
                e.Handled = !char.IsControl(e.KeyChar) && !char.IsDigit(e.KeyChar);
        }
    }

Public Class IntegerGridCell
    Inherits DataGridViewTextBoxCell

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overrides ReadOnly Property ValueType As Type
        Get
            Return GetType(Int32)
        End Get
    End Property

    Public Overrides Sub InitializeEditingControl(rowIndex As Integer, initialFormattedValue As Object, dataGridViewCellStyle As DataGridViewCellStyle)
        MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle)
        Dim ctl As Control = DataGridView.EditingControl
        AddHandler ctl.KeyPress, AddressOf IntegerGridCell_KeyPress
    End Sub

    Private Sub IntegerGridCell_KeyPress(sender As Object, e As KeyPressEventArgs)
                Dim currentCell As DataGridViewCell = CType(sender, IDataGridViewEditingControl).EditingControlDataGridView.CurrentCell
        If TypeOf currentCell Is IntegerGridCell Then
            e.Handled = Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar)
        End If
    End Sub

End Class

En el constructor de la clase IntegerGridColumn voy a llamar al constructor de DataGridViewColumn pasándole una instancia de IntegerGridCell como plantilla de celda. Voy a sobreescribir también la propiedad CellTemplate para comprobar que la celda que se establece como plantilla es del tipo IntegerGridCell.

• C#
• Visual Basic

    public class IntegerGridColumn : DataGridViewColumn
    {
        public IntegerGridColumn() : base(new IntegerGridCell()) { }

        public override DataGridViewCell CellTemplate
        {
            get
            {
                return base.CellTemplate;
            }
            set
            {
                if (value != null &&
                    !value.GetType().IsAssignableFrom(typeof(IntegerGridCell)))
                    throw new InvalidCastException("Debe ser del tipo IntegerGridCell");
                base.CellTemplate = value;
            }
        }
    }

Public Class IntegerGridColumn
    Inherits DataGridViewColumn

    Public Sub New()
        MyBase.New(New IntegerGridCell())
    End Sub

    Public Overrides Property CellTemplate As DataGridViewCell
        Get
            Return MyBase.CellTemplate
        End Get
        Set(value As DataGridViewCell)
            If value IsNot Nothing AndAlso _
                Not value.GetType().IsAssignableFrom(GetType(IntegerGridCell)) Then
                Throw New InvalidCastException("Debe ser del tipo IntegerGridCell")
            End If
            MyBase.CellTemplate = value
        End Set
    End Property

End Class

Con esto ya estaría creado el nuevo tipo de columna. Para probarlo voy a añadir a la solución un nuevo proyecto GridTest del tipo Aplicación de Windows Forms.

Al proyecto GridTest le he añadido una referencia al proyecto GridExtension.

En el formulario que Visual Studio crea por defecto le he añadido un control DataGridView al que le he agregado dos columnas: una columna Texto del tipo DataGridViewTextBoxColumn y una columna Entero del tipo IntegerGridColumn.

Ahora ya podemos arrancar la aplicación para comprobar el funcionamiento del nuevo tipo de columna.

El código completo de este artículo, tanto en C# como en Visual Basic, está disponible en:

Códigos de muestra - Ejemplos MSDN