TextBox1.Text(Vb.net)

[1nterSE]

как в TextBox1.Text (Vb.net) разрешить ввод только чисел?
Варианты из visual basic 6 не подходят
Заранее благодарен

[DemonSoft]

вариант 1:
1. Создать массив цифр 1,2,3,4,5,6,7,8,9,0,-.
2. По событию нажатия клавиши проверять входит ли вводимый символ в этот массив, если входит, значит можно вводить

вариант 2: использовать ключевые слова is и as для проверки того, является ли введенное значение числом определенного типа.

[fleming_7]

В следующем примере определяется, была ли нажата клавиша, не представляющая цифру. Если такая клавиша была нажата, событие KeyPress отменяется с помощью свойства Handled.
Язык Visual Basic
код

//
Язык Visual Basic Копировать код
' Boolean flag used to determine when a character other than a number is entered.
Private nonNumberEntered As Boolean = False


' Handle the KeyDown event to determine the type of character entered into the control.
Private Sub textBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) _
Handles textBox1.KeyDown
' Initialize the flag to false.
nonNumberEntered = False

' Determine whether the keystroke is a number from the top of the keyboard.
If e.KeyCode < Keys.D0 OrElse e.KeyCode > Keys.D9 Then
' Determine whether the keystroke is a number from the keypad.
If e.KeyCode < Keys.NumPad0 OrElse e.KeyCode > Keys.NumPad9 Then
' Determine whether the keystroke is a backspace.
If e.KeyCode <> Keys.Back Then
' A non-numerical keystroke was pressed.
' Set the flag to true and evaluate in KeyPress event.
nonNumberEntered = True
End If
End If
End If
End Sub 'textBox1_KeyDown


' This event occurs after the KeyDown event and can be used
' to prevent characters from entering the control.
Private Sub textBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) _
Handles textBox1.KeyPress
' Check for the flag being set in the KeyDown event.
If nonNumberEntered = True Then
' Stop the character from being entered into the control since it is non-numerical.
e.Handled = True
End If
End Sub 'textBox1_KeyPress

Пример из MDSN. Сорри сразу не заметил, что требуется реализация на VB.Net, но в МДСН есть пример и для бейсика.

[vadym_ua]

Можно использовать MaskedText и маску

[shad0w]

Если в ASP.NET то можно использовать AJAX Controll Toolkit для этого

[Vagrod]

Это решается одной строчкой на событие KeyPress:

If Not IsNumeric(e.KeyChar) AndAlso Asc(e.KeyChar) <> 8 Then e.Handled = True

P.S. 8 - код backspace по ASCII)

[Бегем0т]

Вот пример текстбокса с парой добавленных свойств, включая нужное. Написано на C#, но нетрудно понять и переписать на VB при желании

Код:

public class v_TextBox : System.Windows.Forms.TextBox
{
private bool _EnterMoveNextControl = false;
//private bool m_NumericOnly = false;
private bool m_DigitsOnly = false;

#region Public members

[Category("Behavior")]
public bool DigitsOnly
{
get { return m_DigitsOnly; }
set { m_DigitsOnly = value; }
}

public v_TextBox()
: base()
{

}

[Category("Behavior")]
public bool EnterMoveNextControl
{
get { return _EnterMoveNextControl; }
set { _EnterMoveNextControl = value; }
}

#endregion

protected override void OnKeyPress(System.Windows.Forms.KeyPressEventArgs e)
{
if (m_DigitsOnly)
{
if (!(char.IsDigit(e.KeyChar) || (e.KeyChar == (Char)13) || (e.KeyChar == (Char)8)))
e.Handled = true;
}
base.OnKeyPress(e);
}

protected override void OnKeyDown(System.Windows.Forms.KeyEventArgs e)
{
if (_EnterMoveNextControl)
if (e.KeyCode == Keys.Enter)
this.FindForm().SelectNextControl(this, true, true, false, false);
base.OnKeyDown(e);
}
}