将控件添加到集合并从集合更新

Question

我有一个 ASP.NET 应用程序，页面上有很多文本框，需要在程序执行的各个点进行更新。

这些文本框实际上属于某个类，因此为了方便更新，我想我可以创建一个字典（字符串，对象）并将 control.ID 和 control 添加到然后进行更新，执行如下操作：（

在更新 textbox.text 的情况下）：

for each kv as KeyValuePair(Of string, object) in mytextboxes
      if (kv.Key.Contains("textboxid")) then
             DirectCast(kv.Value, TextBox).Text = mystring
      end if
next

但是，文本框的 text 属性实际上并未更新。我主要是想避免每次更新文本框时都必须手动执行 textbox.text = somestring 。

这是一个可行的解决方案吗？ 如果是的话，我做错了什么？

Answer 1

您的函数需要直接转换控件，而不是 KeyValuePair 集合。尝试这样的事情......

Private Sub SetTextboxText(ByVal strTextBoxID As String, ByVal strText As String)

    Dim txtChangeThisOne As TextBox = CType(Page.FindControl(strTextBoxID), TextBox)

    If Not txtChangeThisOne Is Nothing Then

        txtChangeThisOne.Text = strText

    End If

End Sub

然后打电话......

SetTextboxText("TextboxID", "Text you wish to set.")

Answer 2

如果您必须使用字典，请尝试以下操作：

Dim mytextboxes As New Dictionary(Of String, TextBox)
Dim mystring As String = "A Input String."
Dim myTextBoxName As String = "TextBox1"
Dim t As TextBox
For Each c As Object In Me.Controls
    If (TypeOf c Is TextBox) Then
        t = CType(c, TextBox)
        mytextboxes.Add(t.Name, t)
    End If
Next

Try
    mytextboxes(myTextBoxName).Text = mystring
Catch ex As Exception
    MsgBox("There is no " & myTextBoxName)
End Try

Answer 3

我有一个使用 100 个按钮的项目，它们共享一个事件处理程序。如果您可以在数组中创建所有文本框，您也许能够定义一个公共事件处理程序。以下片段将用作参考。希望VB代码仍然有帮助。
如果您想测试代码，您需要有一个表单和 10 X 10 的布局。如果有帮助，请告诉我。

Public Class Form1
    Private NRow As Integer = 10
    Private NCol As Integer = 10
    Private BtnArray(NRow * NCol - 1) As Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TableLayoutPanel1.Size = Me.ClientSize
        For i As Integer = 0 To BtnArray.Length - 1
            BtnArray(i) = New Button()
            BtnArray(i).Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
            BtnArray(i).Text = CStr(i)
            TableLayoutPanel1.Controls.Add(BtnArray(i), i Mod NCol, i \ NCol)
            AddHandler BtnArray(i).Click, AddressOf ClickHandler
        Next
    End Sub
    Public Sub ClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
        MsgBox("I am button #" & CType(sender, Button).Text)
    End Sub
End Class