26-07-17, 01:04 PM
السلام عليكم هذه طريقتي
Dim c As Char
c = e.KeyChar
If Not (Char.IsDigit© Or Char.IsControl©) Then
If Not Textbox1.Text.Contains(".") And c = "." Then
e.Handled = False
Else
e.Handled = True ' annler
End If
End If
Dim c As Char
c = e.KeyChar
If Not (Char.IsDigit© Or Char.IsControl©) Then
If Not Textbox1.Text.Contains(".") And c = "." Then
e.Handled = False
Else
e.Handled = True ' annler
End If
End If