vb.net - 如何将输入形式从选中的列表框转换为索引并让该索引跨两种形式工作？

Question

我的选中列表框有 200 个需要转换为索引的东西。该索引必须适用于两种形式。因此，在模块化中处理变量将是一个合乎逻辑的操作。但是，在模块化中，选中的列表框不存在，因此出现错误。我试图实现的是在选定的文本框上改变颜色并流动

Select Case Row
                Case 0
                    TxtA1.BackColor = Color.Red
                Case 1
                    TxtA2.BackColor = Color.Red
                Case 2
                    TxtA3.BackColor = Color.Red
                Case 3
                    TxtA4.BackColor = Color.Red
                Case 4
                    TxtA5.BackColor = Color.Red
               ...
               case 200
                    TxtB67.BackColor = Color.Red
                  end select 

Answer 1

1.) 在模块中，您可以访问所有表单及其公共成员，例如使用Form1.CheckedListBox1。或者Form1.Controls("CheckedListBox1")
2.) 当程序员做超过 201 个案例的单调、重复性工作时，就会出现问题。您应该考虑另一种方法来将检查的索引与这些标签映射。您可以使用名称本身或Tag属性对其进行迭代（例如Form1.Controls("txtColored_" & i.ToString)在循环中）（尽管仍有更好的解决方案，具体取决于您的设计细节）。3.) 如果未
选择 标签，您可能希望重置标签的颜色，在这种情况下，您必须为 201 个案例中的每个标签设置颜色。