-7

数字のみを入力したいのですが、数字以外は許可されていません。これで私を助けてください。

このコードはTextBoxにありますが、PasswordBoxでは機能しません

        Dim textBox As TextBox = TryCast(sender, TextBox)
        Dim selectionStart As Int32 = textBox.SelectionStart
        Dim selectionLength As Int32 = textBox.SelectionLength
        Dim newText As [String] = [String].Empty
        Dim count As Integer = 0
        For Each c As [Char] In textBox.Text.ToCharArray()
            If [Char].IsDigit(c) OrElse [Char].IsControl(c) Then
                newText += c
            End If
        Next
        textBox.Text = newText
        textBox.SelectionStart = If(selectionStart <= textBox.Text.Length, selectionStart, textBox.Text.Length)

ありがとうございました

4

1 に答える 1