如何高效控制多文本框可见性？矩阵维度适配代码优化方案

核心思路 #

把所有矩阵文本框存入二维数组，通过遍历数组统一控制可见性，彻底消除冗余的条件判断代码。

具体实现步骤 #

1. 初始化二维数组存储控件
   在窗体初始化（比如Form_Load）时，把所有文本框按行列顺序存入二维数组，对应它们的命名规则（Ta行号列号）：

Dim matrixTextBoxes(4, 4) As TextBox ' 因为是1-5行/列，索引从0开始所以是4

Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 按行填充数组
    matrixTextBoxes(0, 0) = Ta11
    matrixTextBoxes(1, 0) = Ta21
    matrixTextBoxes(2, 0) = Ta31
    matrixTextBoxes(3, 0) = Ta41
    matrixTextBoxes(4, 0) = Ta51

    matrixTextBoxes(0, 1) = Ta12
    matrixTextBoxes(1, 1) = Ta22
    matrixTextBoxes(2, 1) = Ta32
    matrixTextBoxes(3, 1) = Ta42
    matrixTextBoxes(4, 1) = Ta52

    matrixTextBoxes(0, 2) = Ta13
    matrixTextBoxes(1, 2) = Ta23
    matrixTextBoxes(2, 2) = Ta33
    matrixTextBoxes(3, 2) = Ta43
    matrixTextBoxes(4, 2) = Ta53

    matrixTextBoxes(0, 3) = Ta14
    matrixTextBoxes(1, 3) = Ta24
    matrixTextBoxes(2, 3) = Ta34
    matrixTextBoxes(3, 3) = Ta44
    matrixTextBoxes(4, 3) = Ta54

    matrixTextBoxes(0, 4) = Ta15
    matrixTextBoxes(1, 4) = Ta25
    matrixTextBoxes(2, 4) = Ta35
    matrixTextBoxes(3, 4) = Ta45
    matrixTextBoxes(4, 4) = Ta55
End Sub

2. Load按钮点击事件逻辑
   获取用户输入的行列数，遍历数组判断每个文本框的可见性：

Private Sub LoadButton_Click(sender As Object, e As EventArgs) Handles LoadButton.Click
    ' 解析用户输入的行列数，添加异常处理避免非数字输入
    Dim targetRows As Integer
    Dim targetCols As Integer
    If Not Integer.TryParse(RowDisplay.Text, targetRows) Or Not Integer.TryParse(ColumnDisplay.Text, targetCols) Then
        MessageBox.Show("请输入有效的行列数")
        Return
    End If

    ' 限制行列数在1-5范围内（可根据实际控件总数调整）
    targetRows = Math.Clamp(targetRows, 1, 5)
    targetCols = Math.Clamp(targetCols, 1, 5)

    ' 遍历所有文本框设置可见性
    For row As Integer = 0 To matrixTextBoxes.GetUpperBound(0)
        For col As Integer = 0 To matrixTextBoxes.GetUpperBound(1)
            ' 数组索引+1对应控件的行/列号，判断是否在目标维度内
            matrixTextBoxes(row, col).Visible = (row + 1 <= targetRows) AndAlso (col + 1 <= targetCols)
        Next
    Next
End Sub

优势 #

• 代码量大幅减少：不管是5x5还是更大的矩阵，核心逻辑只需几行遍历代码，无需新增大量If-Else分支
• 扩展性强：后续要增加矩阵维度（比如到10x10），只需在数组初始化时添加对应控件，核心逻辑无需修改
• 可读性更高：逻辑清晰，一眼就能看出是根据目标维度控制控件可见性

内容的提问来源于stack exchange，提问作者Daniel Tolentino