
19/02/2008, 06:19
|
 | | | Fecha de Ingreso: agosto-2007
Mensajes: 80
Antigüedad: 17 años, 7 meses Puntos: 0 | |
Re: Permitir numeros, bloquear letras Ya encontre la solucion, os la muestro a acontinuacion por si algun dia os hace falta. Hacen falta lo siguiente:
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
' Verificar columna actual
If columna = 2 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
End Sub
Saludos!! |