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

VB如何动态创建一个groupbox来显示和分组数组中的单选按钮?

  •  0
  • rwan  · 技术社区  · 9 年前

    我有一个2的数组 RadioButtons 一个显示文本“真”,另一个显示“假”,当用户选择真/假样式问题时,它们会出现。

    但是,如果选择了多个真/假样式的问题,则 单选按钮 它们似乎都是相互关联的,而不是在它们出现的成对中相互关联。E、 g.如果一个3个问题的测验有两个真/假类型的问题,那么当您选择一个问题的答案时,它会删除另一个真/假的类型的问题的答案。

    参考代码:(在for循环(k)内和选择案例内(当选择truefalse样式问题时))

    grpTrueFalse(k) = New GroupBox 
    grpTrueFalse(k).Location = New Point((X - 10), (Y - 10))
    grpTrueFalse(k).BackColor = Color.Transparent
    grpTrueFalse(k).Visible = False
    grpTrueFalse(k).Width = 250 : grpTrueFalse(k).Height = 50
    frmQuizBuild.Controls.Add(grpTrueFalse(k))
    
    rdbtrue(k) = New RadioButton : rdbtrue(k).Location = New Point((X + 120), Y)
    rdbtrue(k).Text = "TRUE" : rdbtrue(k).Font = New Font("Arial", 15)
    rdbtrue(k).BackColor = Color.Transparent
    frmQuizBuild.Controls.Add(rdbtrue(k))
    
    rdbfalse(k) = New RadioButton : rdbfalse(k).Location = New Point(X, Y)
    rdbfalse(k).Text = "TRUE" : rdbfalse(k).Font = New Font("Arial", 15)
    rdbfalse(k).BackColor = Color.Transparent
    frmQuizBuild.Controls.Add(rdbfalse(k))
    

    记录在案 GroupBox 出现在 单选按钮 现在什么也没做。

    2 回复  |  直到 9 年前
        1
  •  1
  •   David Huthaifah Kholi    9 年前

    您的代码需要是这样的:

    Dim arrRButton(1) As RadioButton
    arrRButton(0) = New RadioButton
    arrRButton(1) = New RadioButton
    
    Dim GroupBox1 As New GroupBox
     With GroupBox1
      .Controls.Add(rdbTrue(k))
      .Controls.Add(rdbFalse(k))
     End With
    

    也可以使用类似的 With 块(例如; With arrRButton(0) 然后 .Location = x , .Text = x 等)

        2
  •  0
  •   Dajan3    9 年前

    如果我的理解是正确的,您可以使用复选框。

    如果不是这样的话 您是否尝试将事件处理程序添加到radiobuttons? 因此:

     Addhandler.radioButton1_CheckedChanged , AddressOf EventHandler
    

    EventHandler是您使用的子类或类。

    这有什么意义吗?