Sección vb.net

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones empresariales sobre base de datos

59 - Sólo números en columna de DataGridView

Ejemplo para limitar la edición de datos de una o varias columnas de un control DataGridview para ingresar solo valores de tipo numérico

En el ejemplo se llena la grilla con cuatro columnas, donde la columna 1 y la columna 3 es para entrada de solo números.

Nota: en el evento KeyPress donde se verifca el caracter, ahi se debe indicar el índice de columna en el cual solo se ingresarán números.

Crear un nuevo proyecto, añadir un windows Form, un control DataGridView llamado DataGridview1

Código fuente

Option Explicit On Option Strict On Public Class Form1 Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' llenar la cuadricula con valores With DataGridView1 .Columns.Clear() ' agregar cabeceras .Columns.Add("Productos", "Productos") .Columns.Add("stock", "stock Actual") .Columns.Add("Fecha", "Fecha") .Columns.Add("Id", "Id Proveedor") Dim random_stock As New Random ' agregar filas For i As Integer = 1 To 20 .Rows.Add("Producto n° " & i, _ random_stock.Next(25, 500), _ Date.Now.AddDays(i).ToShortDateString, _ i) Next ' Bloquear la Columna fecha .Columns("fecha").ReadOnly = True End With End Sub Private Sub dataGridView1_EditingControlShowing( _ ByVal sender As Object, _ ByVal e As DataGridViewEditingControlShowingEventArgs) _ Handles DataGridView1.EditingControlShowing ' referencia a la celda Dim validar As TextBox = CType(e.Control, TextBox) ' agregar el controlador de eventos para el KeyPress AddHandler validar.KeyPress, AddressOf validar_Keypress End Sub ' evento Keypress ' ''''''''''''''''''' Private Sub validar_Keypress( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyPressEventArgs) ' obtener indice de la columna Dim columna As Integer = DataGridView1.CurrentCell.ColumnIndex ' comprobar si la celda en edición corresponde a la columna 1 o 3 If columna = 1 Or columna = 3 Then ' Obtener caracter Dim caracter As Char = e.KeyChar ' comprobar si el caracter es un número o el retroceso If Not Char.IsNumber(caracter) And (caracter = ChrW(Keys.Back)) = False Then 'Me.Text = e.KeyChar e.KeyChar = Chr(0) End If End If End Sub End Class

Ejemplo para poder aceptar el separador decimal para los números

Dim columna As Integer = DataGridView1.CurrentCell.ColumnIndex ' verificar columna actual If columna = 1 Or columna = 3 Then Dim caracter As Char = e.KeyChar ' referencia a la celda Dim txt As TextBox = CType(sender, TextBox) ' comprobar si es un número con isNumber, si es el backspace, si el caracter ' es el separador decimal, y que no contiene ya el separador If (Char.IsNumber(caracter)) Or _ (caracter = ChrW(Keys.Back)) Or _ (caracter = ",") And _ (txt.Text.Contains(",") = False) Then e.Handled = False Else e.Handled = True End If End If

Buscar en Recursos vb