2017-01-12 13 views
-1

Когда я динамически создавать GroupBox и добавить 4 RadionButton сек внутри GroupBox это как-то помещает RadionButton S за GroupBox.Изготовление RadionButtons появляются InFront из GroupBox

У меня есть код для GroupBox сперва поэтому почему RadionButton s не показывать на GroupBox?

Код для ссылки:

multichoicegroupbox(Qnum) = New GroupBox : multichoicegroupbox(Qnum).Location = New Point(X, (Y - 5)) 
multichoicegroupbox(Qnum).Width = 230 : multichoicegroupbox(Qnum).Height = 120 
frmQuizForStudents.Controls.Add(multichoicegroupbox(Qnum)) 

For MultichoiceCheckNum = 1 to 4 
    rdbmultichoice(MultichoiceCheckNum) = New RadioButton 
    rdbmultichoice(MultichoiceCheckNum).Location = New Point(multichoicegroupbox(Qnum).Location.X + 10, 
                  (multichoicegroupbox(Qnum).Location.Y + (MultichoiceCheckNum * 24))) 
    rdbmultichoice(MultichoiceCheckNum).Font = New Font("Arial", 9) 
    rdbmultichoice(MultichoiceCheckNum).Text = multichoice(MultichoiceCheckNum) 
    multichoicegroupbox(Qnum).Controls.Add(rdbmultichoice(MultichoiceCheckNum)) 

    Y += 24 
Next MultichoiceCheckNum 

Когда я закомментируйте New Point строку кода для GroupBox, то GroupBox появляется в верхнем левом углу экрана со всеми 4 RadionButton s работает на нем.

ответ

1

Потому что расположение радиобаты относительно их контейнера. Вместо этого вы указываете местоположение относительно формы. Кнопки есть, но скрыты из виду.

Другими словами, вы не должны добавлять местоположение GroupBox в свои расчеты, а просто рассматривайте верхнюю/левую позицию GroupBox как позицию 0,0 координат ваших радиобатов.

For MultichoiceCheckNum = 1 to 4 
    rdbmultichoice(MultichoiceCheckNum) = New RadioButton 
    rdbmultichoice(MultichoiceCheckNum).Location = New Point(10, 
              10 + (MultichoiceCheckNum * 24)) 
    rdbmultichoice(MultichoiceCheckNum).Font = New Font("Arial", 9) 
    rdbmultichoice(MultichoiceCheckNum).Text = multichoice(MultichoiceCheckNum) 
    multichoicegroupbox(Qnum).Controls.Add(rdbmultichoice(MultichoiceCheckNum)) 

Next MultichoiceCheckNum 
+0

Cheers pal, работающий отлично сейчас – rwan