Private Sub TextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox.KeyPress 'backspace処理(バックスペースキー押下時) If e.KeyChar = ControlChars.Back Then Return '数字しか入力できないようにする If Not IsNumeric(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "-" Then e.Handled = True Return End If '追加制御処理(エラー制御) If Not e.KeyChar = ".-" AndAlso e.KeyChar = "-." AndAlso e.KeyChar = "--" AndAlso e.KeyChar = ".." Then e.Handled = True Return End If