VB.NET GUI--按钮单击不执行任务

我运行这个程序。 我在textbox1中输入带数字的字符串。 单击按钮1。 MaskedTextBox1中未显示任何内容。 有什么想法吗？ 我不知所措。

---

据我所知，我尝试了一切。

在您的

按钮1中。单击
事件处理程序实际上并不是要它做任何事情来设置
掩码文本框的值。您似乎已放置在
MaskedTextBox1.MaskInputRejected
处理程序中的那行代码。试着像这样重构代码：

Public Class Form1
Public digits As String = "0123456789"
Public userInput As String
Public digitCount As Integer = 0

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    userInput = TextBox1.Text
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    digitCount = userInput.Count(Function(c) Char.IsDigit(c))


End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub


Private Sub MaskedTextBox1_MaskInputRejected(sender As Object, e As MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected
    MaskedTextBox1.Text = digitCount.ToString
End Sub

问题是您没有将数字计数逻辑的输出分配给屏蔽文本框，如下所示：

Public Class Form1
    Public digits As String = "0123456789"
    Public userInput As String
    Public digitCount As Integer = 0

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        userInput = TextBox1.Text
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        digitCount = userInput.Count(Function(c) Char.IsDigit(c))

        MaskedTextBox1.Text = digitCount.ToString
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub


    Private Sub MaskedTextBox1_MaskInputRejected(sender As Object, e As MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected

    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    MaskedTextBox1.Text = userInput.Count(Function(c) Char.IsDigit(c)).ToString()
End Sub