Работа С Программно Созданными Скроллбарами

[GWolf]

Доброго дня, друзья!

Помогите чайнику. Идея проекта такова: Есть UserForm с двумя MultiPage. На первом MultiPage размещены два окна списка: в левое грузим список сотрудников, в правое проводим отбор группы участников. После чего перемещаемся на второй MultiPage. На втором MultiPage программно размещается, по числу участников группы, связка из Control: Label A + ScrollBar + Label B. ScrollBar имеет диапазон от 0 до 100 с шагом = 1. При перемещении движка любого из созданных ScrollBar - ов в соответствующем ему Label B должна отображаться цифра отражающая положение движка. Фуф! Вроде объяснил.
Что сделано: - список заполняется, группа собирается, связки формируются. А вот как разобраться со скролбарами - не знаю!
Задавал вопрос на других форумах - ТИШИНА! Может здесь услышу глас помощи!!! Очень срочно нужно!

 

[alex77755]

Очень срочно нужно!

Ну, во первых: Option Explicit крайне желательное объявление - помогает находить и избегать ошибки


2. в модуле формы
блок объявлений

Option Explicit
Dim arrSBControl(15) As New SBControl

процедура Private Sub cmb_toProc_Click()

					Set crsB = .Add("Forms.ScrollBar.1", "skb_" & i + 1, True)
ReDim Preserve arrSBControl(i)
Set arrSBControl(i).Sbox = crsB

класс без изменений - допишешь обработчик сам

Public WithEvents Sbox As MSForms.ScrollBar

Private Sub Sbox_Change()
MsgBox Sbox.Value, 64, Sbox.Name
Stop
End Sub

 

[alex77755]

процедура Private Sub cmb_toProc_Click()

					Set crsA = .Add("Forms.Label.1", "lbx_" & i + 1, True)
Set crsC = .Add("Forms.Label.1", "lbx_k" & i + 1, True)

Set crsB = .Add("Forms.ScrollBar.1", "skb_" & i + 1, True)
crsB.Tag = "lbx_k" & i + 1
ReDim Preserve arrSBControl(i)
Set arrSBControl(i).Sbox = crsB

класс

Public WithEvents Sbox As MSForms.ScrollBar

Private Sub Sbox_Change()
frm_wistawimProcenti.Controls(Sbox.Tag).Caption = Sbox.Value
End Sub

Добавлено: Сорри, ошибочка: Массив объявлять безрамерным ()

 

[GWolf]

процедура ... ошибочка: Массив объявлять безрамерным ()

Вас понял. Буду разбираться. СПАСИБО!