这是我的代码,只接受文本框中的数字:
Select Case e.KeyChar
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", vbBack
e.Handled = False
Case Else
e.Handled = True
End Select
我还可以在datagridview的单元格中使用这些代码吗?还有如何限制no。单元格中的字符会自动显示,这意味着没有msgbox可以提示用户。
谢谢。
答案 0 :(得分:1)
您可以在datagridview的编辑控件上尝试这段编码
Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
Try
If 'Set the column/cell
AddHandler e.Control.KeyPress, AddressOf TextNumberKeypress
End If
Catch ex As Exception
'...
End Try
End Sub
Sub TextNumberKeypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
'Put the validations for your cell
End Sub