validate decimal group by with union
the idea is to perform the validation of decimal nuemros within a TextBox. If there is a better idea please comuniquenmela. Public Sub
Num_digits (ByVal string As String, ByVal e As System.Windows.Forms.KeyPressEventArgs) Dim f = cadena.Length
If AscW (e.KeyChar) = 46 Then
If f = 0 Then
e.KeyChar = Nothing
e.Handled =
False Else Dim fg = Convert.ToString (string). Contains (".") Dim
sdf = Convert.ToString (e.KeyChar)
fg = False Then If
e.KeyChar = e.KeyChar
e.Handled = False Else
e.KeyChar = Nothing
e.Handled = False End If End If
AscW
Else If (e.KeyChar) = 8 Then
e.KeyChar = e.KeyChar
e.Handled = False Select Case Else
AscW (e.KeyChar) Case 48 To 57
e.KeyChar = e.KeyChar
e.Handled = False Case Else
e.KeyChar = Nothing
e.Handled = False End If End Select
End If End Sub
0 comments:
Post a Comment