0

ユーザーがアルファベット文字を入力するのを制限する多くの方法を見つけましたが、より具体的にしたいと思います。バイナリ計算機を作成していますが、ユーザーが数字「0」と「1」のみを入力できるようにしたいと考えています。

4

3 に答える 3

1

これを行うには多くの方法がありますが、私は次の方法が好きです。

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    Dim valid_values As String = "01"
    If Not valid_values.Contains(e.KeyChar) Then
        e.Handled = True
    End If
End Sub
于 2013-05-23T17:19:33.050 に答える
0

これにより、押されたキーが 0 または 1 であることを確認します。それ以外の場合は、キーが押されていないかのように動作します。

Private Sub txtBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBox.KeyDown

If Not (e.KeyCode = Keys.0 OR e.KeyCode = Keys.1) Then
   e.Handled = True
EndIf 

End Sub
于 2013-05-23T17:31:29.917 に答える
0

textbox_keypress イベントで適用されます ..

Private Sub txtbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtbox.KeyPress 
  Dim k As Byte = Asc(e.KeyChar)    

  If Not (e.KeyChar = "0" Or e.KeyChar = "1" Or k = 8 Or k = 13) Then e.Handled = True

End Sub
于 2013-05-23T17:32:43.210 に答える