[C#, VB.NET] Wprowadzanie tylko liczb do TextBoxa

Aby pozwolić użytkownikowi prowadzać w programie tylko liczby w TextBoxie najłatwiej zrealizować to poprzez obsłużenie zdarzenia KeyPress dla TextBoxa.
Jeśli chcemy tylko liczby naturalne, pomoże nam w tym taki kod:

C#

private void TextBox1_KeyPress(object sender, KeyPressEventArgs e)
{
 if(char.IsDigit(e.KeyChar) || e.KeyChar == (char)Keys.Back)
  base.OnKeyPress(e);
 else
  e.Handled = true;
}

VB.NET

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

 If Char.IsDigit(e.KeyChar) Or e.KeyChar = ChrW(Keys.Back) Then
  MyBase.OnKeyPress(e)
 Else
  e.Handled = True
 End If

End Sub

Kod ten po przechwyceniu zdarzenia KeyPress (czyli po prostu naciśnięcie klawisza na klawiaturze) sprawdza w pętli if sprawdza czy wciśnięty klawisz jest liczbą albo backspacem, jeśli tak, obsługujemy zdarzenie naciśnięcia klawisza, jeśli nie jest ustawiamy e.Handled na true, czyli informujemy, że zdarzenie zostało obsłużone i można zakończyć jego obsługę.
Jeśli chcemy obsługiwać też liczby rzeczywiste, dodatnie potrzebujemy czegoś takiego:

C#

private void TextBox1_KeyPress(object sender, KeyPressEventArgs e)
{
 // jeśli chcemy obsługiwać przecinek (Europa) i kropkę (USA)
 // możemy odwrócić znaki, by wyświetlało kropkę lub usunąć
 // te dwie linijki by usunąć kompatybilność tych liczb
 if (e.KeyChar == '.')
  e.KeyChar = ',';
 
 // pozwala na tylko jeden przecinek w słowie
 if (e.KeyChar == ',' && (sender as TextBox).Text.Contains(','))
  e.Handled = true;
 
 // nie pozwala na przecinek na początku
 if(e.KeyChar == ',' && textBox1.SelectionStart == 0)
  e.Handled = true;
 
 if (char.IsDigit(e.KeyChar) || e.KeyChar == ',' || e.KeyChar == (char)Keys.Back)
  base.OnKeyPress(e);
 else
  e.Handled = true;
}

VB.NET

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

 ' jeśli chcemy obsługiwać przecinek (Europa) i kropkę (USA)
 ' możemy odwrócić znaki, by wyświetlało kropkę lub usunąć
 ' te dwie linijki by usunąć kompatybilność tych liczb
 If e.KeyChar = "." Then
  e.KeyChar = ","
 End If
 
 ' pozwala na tylko jeden przecinek w słowie
 If e.KeyChar = "," And TryCast(sender, TextBox).Text.Contains(","c) Then
  e.Handled = True
 End If
 
 ' nie pozwala na przecinek na początku
 If e.KeyChar = "," And TextBox3.SelectionStart = 0 Then
  e.Handled = True
 End If
 
 If Char.IsDigit(e.KeyChar) Or e.KeyChar = "," Or e.KeyChar = ChrW(Keys.Back) Then
  MyBase.OnKeyPress(e)
 Else
  e.Handled = True
 End If

End Sub

Kod jest chyba wystarczająco skomentowany i nie trzeba nic dodawać :)
Jak dodać obsługę liczb ujemnych?

C#

// nie pozwala na minus w innym mijscu niż początek
if (e.KeyChar == '-' && textBox1.SelectionStart != 0)
 e.Handled = true;

// oraz zedytuj ostatni if w taki mniej więcej sposób
if (char.IsDigit(e.KeyChar) || e.KeyChar == '-' || ...

VB.NET

// nie pozwala na minus w innym mijscu niż początek
If e.KeyChar = "," And TextBox3.SelectionStart > 0
 e.Handled = True
End If

// oraz zedytuj ostatni if w taki mniej więcej sposób
If Char.IsDigit(e.KeyChar) Or e.KeyChar = "-" Or ...

Jeśli masz jeszcze jakieś pytania do tego tematu, zapraszam do skomentowania.