En mi caso yo uso el tipo de columna, por ejemplo si la columna es numérica entonces asignarle el evento de solo números y si es alfa-numérico en mayúsculas le asignas la propiedad CharacterCasing a Upper ya que como sabras, las columnas de textos son simplementes TextBox
C#
/* * Creado por tttony 2010 * http://tttony.blogspot.com/ * * POR FAVOR NO BORRES ESTE COMENTARIO */
private void dataGridView1_EditingControlShowing(object sender, DataGridViewEditingControlShowingEventArgs e)
{
if (e.Control is TextBox)
{
TextBox txt = e.Control as TextBox;
// Si la columna es numerica
if (object.ReferenceEquals(dataGridView1.CurrentCell.ValueType, typeof(System.Int32)))
{
// Asignar el evento de solo numeros a las columnas numericas
txt.KeyPress += OnlyNumbers_KeyPress;
}
else // o texto
{
/*
* Quitar el EventHandler del KeyPress para que permita escribir texto
*/
txt.KeyPress -= OnlyNumbers_KeyPress;
((TextBox)(e.Control)).CharacterCasing = CharacterCasing.Upper;
}
}
}
private void OnlyNumbers_KeyPress(object sender, KeyPressEventArgs e)
{
if (!Char.IsDigit(e.KeyChar) && e.KeyChar != 8) // Si no es numerico y si no es espacio
{
// Invalidar la accion
e.Handled = true;
// Enviar el sonido de beep de windows
System.Media.SystemSounds.Beep.Play();
}
}
VB.NET
Private Sub dataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs)
If TypeOf e.Control Is TextBox Then
Dim txt As TextBox = TryCast(e.Control, TextBox)
' Si la columna es numrica
If Object.ReferenceEquals(dataGridView1.CurrentCell.ValueType, GetType(System.Int32)) Then
' Asignar el evento de solo numeros a las columnas numericas
AddHandler txt.KeyPress, AddressOf OnlyNumbers_KeyPress
Else
' o texto
'
' * Quitar el EventHandler del KeyPress para que permita escribir texto
'
RemoveHandler txt.KeyPress, AddressOf OnlyNumbers_KeyPress
DirectCast(e.Control, TextBox).CharacterCasing = CharacterCasing.Upper
End If
End If
End Sub
Private Sub OnlyNumbers_KeyPress(sender As Object, e As KeyPressEventArgs)
If Not [Char].IsDigit(e.KeyChar) AndAlso e.KeyChar <> 8 Then
' Si no es numerico y si no es espacio
' Invalidar la accion
e.Handled = True
' Enviar el sonido de beep de windows
System.Media.SystemSounds.Beep.Play()
End If
End Sub
FUENTE
Publicado en tttony.blogspot.com
No comments:
Post a Comment