vb.net - Vb.net 将所有声明的按钮添加到我的表单

Question

我想将所有声明的按钮添加到我的表单中

就像是：

dim btn1,btn2,btn3 as new button

for each btn as button in declared.buttons
me.controls.add(btn)
next

Answer 1

您可以像这样添加按钮：

For i As Integer = 1 To 150
    Dim btn As New Button()
    btn.Name = "btn" + i.ToString()
    Controls.Add(btn)
Next

稍后，您可以像这样访问按钮：

Dim btn As Button = CType(Controls("btn1"), Button)

但是，如果您需要动态加载这么多控件，您可能需要重新考虑您的设计。在大多数情况下，这听起来是个坏主意。

Answer 2

您可以使用以下方式获取您声明的所有按钮：

Dim buttons = From fi In Me.GetType().GetFields(BindingFlags.Instance Or BindingFlags.NonPublic)
   Where fi.FieldType Is GetType(Button)
   Select CType(fi.GetValue(Me), Button)

在我的头顶上..仍在努力..但你明白了吗？