数字のみ入力できるテキストボックス
数字のみの入力を有効にするためには、キーボードのボタンが押された時(KeyPress)に文字コードで文字を判断し、数字以外のものは無効にします。以下のコードは、テキストボックス(Text1)に数字のみ入力できるようにするコードです。
| Private Sub Text1_KeyPress(KeyAscii
As Integer) Dim str As String str = Chr(KeyAscii) If str >= "0" And str <= "9" Then '数字の場合は何もしない ElseIf str = Chr(8) Then '[BackSpace]がおされたときも何もしない Else KeyAscii = 0 '文字を無効にする End If End Sub |