通过从服务器获取其名称来禁用复选框

Question

很难解释我的想法，但我会尽力而为......

我有一个带有大量复选框的安装程序。每个复选框都是 mod（游戏的修改）。有时模组会干扰游戏并导致游戏崩溃。因此，我必须使用更新的 mod 更新安装程序，或者我必须暂时禁用导致崩溃的一个或多个 mod。

它将连接到一个服务器，检查文​​件是否包含“真或假”，如果它包含“真”，它将执行执行此操作的代码：

连接到不同的服务器，获取复选框的名称，然后执行以下操作：

NameOfCheckBox.Enabled = False

问题是……我知道怎么做，除了最后一部分。

如何告诉我的程序它从服务器获取的文本是位于表单上的复选框名称？

这是我的代码：

Try

        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://docs.google.com/document/d/1G3R0CoRG-LCXy-8jm-LcCJZJ9B0whsOJ64efjL0btc8/edit?usp=sharing")
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim status As String = sr.ReadToEnd()

        Dim request2 As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://docs.google.com/document/d/1cYkhGTDEpxqltOvCSSD0Kw9J_1DG1dyJSV2qQ1Xekto/edit?usp=sharing")
        Dim response2 As System.Net.HttpWebResponse = request2.GetResponse()
        Dim sr2 As System.IO.StreamReader = New System.IO.StreamReader(response2.GetResponseStream())
        Dim checkboxtodisable As String = sr2.ReadToEnd()


        If status.Contains("True") Then
            Dim chk As CheckBox
            chk.Name = checkboxtodisable
            chk.Enabled = False
        Else

        End If
    Catch ex As Exception
        MessageBox.Show("Unable to connect to server!")
        MessageBox.Show(ex.Message)
    End Try

我得到的错误是：

Object reference not set to an instance of an object

错误位于这行代码：

chk.Name = checkboxtodisable

Answer 1

您可以像这样按名称检索控件：

Dim MyCheckBox As Checkbox = Me.Controls("checkbox1")

所以你的代码应该是这样的：

If status.Contains("True") Then
    Dim chk as checkbox = Me.Controls(checkboxtodisable)
    chk.Enabled = False
End If