Работа с Frame

[GWolf]

Добрый день, знатоки VBA!

Имеем следующее: На форме размешена рамка Frame. В эту рамку нужно программно вписать Label, ScrollBar и Label. Все три объекта в строку, один за другим. Затем эта группа повторяется 50 раз. Как это сделать?
И второй вопрос: Пятьдесят групп непомещается в границы рамки. Рамку расширять нельзя. Можно ли организовать размещение групп со скроллингом их?
Если путанно написал - пишите. Уточню.
И заранее всем спасибо! Оч. нужно сделать! А как незнаю. Помогите!

[Viper]

Добрый день, знатоки VBA!

Имеем следующее: На форме размешена рамка Frame. В эту рамку нужно программно вписать Label, ScrollBar и Label. Все три объекта в строку, один за другим. Затем эта группа повторяется 50 раз.

Единственный вопрос: нафига нужно повторять такую группу 50 раз, особенно сомнительным видится факт наличия скролла в этой группе.

[RayShade]

Используй GridView и да пребудет с тобой щасье.

[GWolf]

Конкретно в MultiPage вот этот код неустраивает:

Код: Выделить всё

Private Sub MultiPage1_Change()
   
    nStr = Me.MultiPage1.SelectedItem.Index
    s = Me.lbx02.ListCount
'Stop
    If s = 0 And nStr = 1 Then
        MsgBox "Невыбран ни один кандидат!", , "Переход невозможен!"
    ElseIf s > 0 And s < 5 And nStr = 1 Then
        Me.frame_page2.ScrollBars = fmScrollBarsNone
        MsgBox "" & s, , ""
    ElseIf s > 0 And s > 4 And nStr = 1 Then
        Me.frame_page2.ScrollBars = fmScrollBarsVertical
        MsgBox "" & s, , ""
    End If
End Sub

т.е. идея такая: при клике на ярлычке листа "Задание %", машина
проверяет правое окно на листе "Формирование группы".

Если оно пустое, то
пользователь остается на листе "Формирование группы" и выдается
сооющение "Невыбран ни один кандидат", "Переход невозможен"

если выбрано <5 человек, то
открывается лист "Задание %" и на нем, во
Frame, формируется набор из четырех групп элементов управления (одна группа,
это Labrl + ScrollBar + Label);

если выбор >4 человек, то
открывается лист "Задание %" и на нем
формируется набор из групп элементов управления (одна группа,
это Labrl + ScrollBar + Label) и перемещение по ним (группам) по
вертикальному скроллбару на Frame;

вот такая идея. Но как ее осуществить?
[Viper] :: И еще раз напоминаю про необходимость использования тэга CODE!

[GWolf]

Выкладываю пример.
А на тему: "нафига". Ответ такой:

Пользователь на странице "Формирование группы", выбрал ~ 50 кандидатов. Заатем перешел на страницу "Задание %", а здесь он видит набор из списка фамилий против каждой скроллбар и окно в котором отображается "выдвинутый" %. 50 кандидатов - это конечно перебор, но ... чем юзер не шутит!

Так что, помогите если возможно!? СРОЧНО нужно!

[alibek]

Ну и глупость.
Значит слева делай список, в котором будет хоть 100 кандидатов. А при выборе элемента в списке в основной части формы редактируются его свойства.

[GWolf]

Ну и глупость.
Значит слева делай список, в котором будет хоть 100 кандидатов. А при выборе элемента в списке в основной части формы редактируются его свойства.

Насчет "глупость" - это Вы погорячились. А вот остальное: нельзя ли на примере - поподробнее?

[Viper]

Насчет "глупость" - это Вы погорячились. А вот остальное: нельзя ли на примере - поподробнее?

Допустим не глупость а неправильное проектирование интерфейса программы.

[GWolf]

Допустим не глупость а неправильное проектирование интерфейса программы.

Уважаемые корифеи! Пример у Вас перед глазами! Подскажите, как правильно?

[Viper]

Правильно