处理多个文本框 [英] Handling Multiple Textboxes

问题描述

这是我的代码

Here is my code

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

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Label2.Text = TextBox2.Text
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        Label3.Text = TextBox3.Text
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        Label4.Text = TextBox4.Text
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        Label5.Text = TextBox5.Text
    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
        Label6.Text = TextBox6.Text
    End Sub

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        Label7.Text = TextBox7.Text
    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
        Label8.Text = TextBox8.Text
    End Sub

    Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
        Label9.Text = TextBox9.Text
    End Sub

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged
        Label10.Text = TextBox10.Text
    End Sub

有没有更简单，更不笨拙的方法呢？

Is there an easier, less clumsy way of doing this?

推荐答案

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged,TextBox2.TextChanged,TextBox3.TextChanged,TextBox4.TextChanged 'Do same for all ten textboxes...
    Dim txt as new TextBox
    txt = DirectCast(sender,TextBox)
    Dim No as string = txt.Name.ToString().Replace("TextBox","") 'No will contain 1,2,3...
    DirectCast (Me.Controls.Find("Label" & No,True).GetValue(0),Label).Text = txt.Text    ' this is similar to Label1.Text = TextBox1.Text, Label2.Text = TextBox2.Text...
End Sub

快乐编码！

：）

Happy Coding!
:)

使用一个TextChanged事件。

并在此事件中将发件人转发给TextBox。

然后使用它的名称将值分配给适当的标签。

Use one TextChanged Event.
And cast the sender to TextBox with in that event.
Then with it''s name assign the values to appropriate labels.

这篇关于处理多个文本框的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！