[a.ahmed]

PHP كود :

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.GotFocus
    sender.ShortcutsEnabled = False
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
    If sender.SelectionLength = sender.Text.Length Then sender.Clear()
    If Not (Char.IsControl(e.KeyChar) Or Char.IsNumber(e.KeyChar) Or e.KeyChar = "." And Not sender.Text.Contains(".")) Then e.Handled = True
    If sender.Text.Length = 0 And e.KeyChar = "." Then sender.Text = "0." : sender.SelectionStart = sender.Text.Length : e.Handled = True
End Sub
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.LostFocus
    sender.Text = Val(sender.Text)
End Sub