单击按钮时，第一个文本框必须等于下一个文本框

Question

如何使单击按钮时第一个文本框等于下一个文本框？我总共有 20 个文本框，第一个文本框必须等于所有 20 个文本框。例如，如果我在第一个 tb 中输入“a”，则第二个 tb 必须等于“a”等，因为我正在尝试制作 Wordle 游戏。还请大家给点建议。谢谢。

示例

Answer 1

• 假设第一个文本框名为

  TextBox1

• 通过输入/更改更新所有文本框

  TextBox1

Option Explicit

Private Sub TextBox1_Change()
    Dim Shp As Shape, sTxt As String
    Const TBOX_NAME = "TextBox1"
    sTxt = Shapes(TBOX_NAME).OLEFormat.Object.Object.Text
    For Each Shp In Shapes
        If Shp.Type = msoOLEControlObject Then
            If Shp.OLEFormat.Object.progID = "Forms.TextBox.1" _
                And Shp.Name <> TBOX_NAME Then
                Shp.OLEFormat.Object.Object.Text = sTxt
            End If
        End If
    Next
End Sub