我写了一个函数来验证文本字段中的数字输入，即“ txtDiaThick”。我如何才能使该函数通用，使其可以处理所有数字字段？例如，如何使“ txtDiaThick.Focus（）”通用？
这是代码。
Private Sub txtDiaThick_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtDiaThick.Validating
If Not IsNumeric(txtDiaThick.Text) And txtDiaThick.Text <> String.Empty Then
MessageBox.Show("Diameter must be numeric")
e.Cancel = True
txtDiaThick.Focus()
Exit Sub
End If
End Sub
您将使用sender参数，该参数表示引发事件的控件：
Private Sub NumericTextBox_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtDiaThick.Validating, …
Dim numericTextBox As TextBox = DirectCast(sender, TextBox)
If numericTextBox.Text <> String.Empty AndAlso Not IsNumeric(numericTextBox.Text) Then
MessageBox.Show("Diameter must be numeric")
e.Cancel = True
numericTextBox.Focus()
End If
End Sub
不过，如果合适，请考虑使用专用于数字的控件。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句