入力ボックスでハイフン文字と数値を受け入れる方法は?
私は持っている
Private Sub TextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles inputBox_1.KeyDown
Select Case e.KeyCode
Case Keys.D0 To Keys.D9, Keys.NumPad0 To Keys.NumPad9, _
Keys.Back, Keys.Delete, Keys.Left, Keys.Right
If e.Shift = True Then
e.SuppressKeyPress = True
Exit Sub
End If
e.SuppressKeyPress = False
Case Else
e.SuppressKeyPress = True
End Select
End Sub
しかし、行に「-」文字を入力すると失敗します
Keys.D0 To Keys.D9, Keys.NumPad0 To Keys.NumPad9, _
Keys.Back, Keys.Delete, Keys.Left, Keys.Right
ハイフンを書けるようにするには?