0

这是我仅在文本框中接受数字的代码:

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的单元格中使用这些代码吗?以及如何限制编号。单元格中的字符数自动显示,这意味着不会有 msgbox 来提示用户。

谢谢你。

4

1 回答 1

1

您可以在 datagridview 的 Editing Control 上尝试这段编码

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 

结束子

   Sub TextNumberKeypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
   'Put the validations for your cell
    End Sub 
于 2013-08-30T07:29:45.620 回答