代码之家  ›  专栏  ›  技术社区  ›  madlan

以编程方式向面板添加控件

  •  2
  • madlan  · 技术社区  · 14 年前

    我正在尝试将一组四个单选按钮添加到表单中。还有其他的单选按钮,所以我将它们放在面板上进行分组。但是,使用下面的方法,我只需将面板添加到表单中,而不使用单选按钮…我在这里做错什么了吗?

    Dim arrRButton(3) As RadioButton
    arrRButton(0) = New RadioButton
    arrRButton(1) = New RadioButton
    arrRButton(2) = New RadioButton
    arrRButton(3) = New RadioButton           
    
    With arrRButton(0)
      .AutoSize = True
      .Checked = True
      .Location = New System.Drawing.Point(77, 139)
      .Name = "RadioButton5"
      .Size = New System.Drawing.Size(55, 17)
      .TabIndex = 48
      .TabStop = True
      .Text = "NEAR"
      .UseVisualStyleBackColor = True
    End With
    '.... etc
    
    'Panel2
    Dim Panel2 As New Panel
    With Panel2
      .Controls.Add(arrRButton(0))
      .Controls.Add(arrRButton(1))
      .Controls.Add(arrRButton(2))
      .Controls.Add(arrRButton(3))
      .Location = New System.Drawing.Point(61, 130)
      .Name = "Panel2"
      .Size = New System.Drawing.Size(300, 24)
    End With
    
    Me.Controls.Add(Panel2)
    
    3 回复  |  直到 10 年前
        1
  •  3
  •   Oded    14 年前

    如果要向窗体添加一组单选按钮,请使用 RadioButtonGroup ,不是一组单选按钮。

        2
  •  5
  •   Hans Passant    14 年前

    .尺寸=新系统.图纸.尺寸(300,24)

    这是你的问题,你把面板做得太小了。第一个单选按钮的位置是(77139),您必须将面板的高度设置为至少139+17=156才能完全看到它。

    这是一个让这种代码正确的诀窍。在解决方案资源管理器窗口中,找到“显示所有文件”图标并单击它。显示解决方案中的所有文件。一个节点出现在表单旁边。单击它并双击.designer.vb文件。找到InitializeComponent()方法。当您在窗体上删除控件并设置它们的属性时,请观察此代码是如何更改的。从中复制并粘贴代码。

    使用用户控件也很有用。

        3
  •  -1
  •   Wai Ha Lee captain-yossarian from Ukraine    10 年前

    你的问题在这里:

    你的设置是为了 button(0) 只有,纠正它!

    for n=0 to 3
    With arrRButton(n)
      .AutoSize = True
      .Checked = True
      .Location = New System.Drawing.Point((55*n) +5, 5)  '
      .Name = "RadioButton5"+ n.tostring()
      .Size = New System.Drawing.Size(55, 17)
      .TabIndex = 48
      .TabStop = True
      .Text = "NEAR"
      .UseVisualStyleBackColor = True
      End With
    
     next