[VB.Net]DataGridView 某欄 限制只能輸入數字
'限制不能輸入數字以外的字元 Private Sub DataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing bt_Save.Text = DataGridView1.CurrentCell.ColumnIndex If DataGridView1.CurrentCell.ColumnIndex = 3 Then '欄位索引3 Dim EditCell As DataGridViewTextBoxEditingControl EditCell = CType(e.Control, DataGridViewTextBoxEditingControl) EditCell.SelectAll() AddHandler EditCell.KeyPress, AddressOf Cells_KeyPress End If End Sub Private Sub Cells_KeyPress(ByVal sender As System.Object, ByVal e As KeyPressEventArgs) If e.KeyChar <> Chr(8) And e.KeyChar <> Chr(13) And (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) Then Beep() Beep() e.KeyChar = Chr(0) End If End Sub