Thursday, July 23, 2009

Retirement Cake Recipe

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