Динамическое добавление страниц в многостраничный элемент управления

Question

Я хочу добавить несколько страниц в многостраничном режиме при инициализации формы. Я сделал это с этим кодом:

Me.Controls("main").Pages.Remove (Page1)
Me.Controls("main").Pages.Remove (Page1)
For Each pagini In ws1.Range("pagini")
    Me.Controls("main").Pages.Add (pagini)
    i=i+1
Next pagini

В диапазоне pagini указаны названия подписей к страницам. Он работает нормально ... он генерирует страницы с этими именами, но теперь я хочу динамически добавлять некоторые другие элементы управления на каждую страницу, и у меня возникает проблема ... Я не знаю имен страниц. Я пытался добавить имена в приведенном выше коде, но я получаю сообщение об ошибке при попытке скомпилировать

Me.Controls("main").Pages.Add ("test" &i,pagini)

Итак, я хочу добавить имя для каждой страницы, добавленной в этот код, но я не знаю, как .... после добавления имени я хочу добавить некоторые другие элементы управления на каждую страницу, но это отдельная история, и я надеюсь, мне удастся это сделать! Большое спасибо!

Answer 1

У вас есть доступ к информации о количестве страниц через Me.Controls("main").Pages.Count, которая является текущей после того, как вы добавили pagini.

Поэтому перейдите на Me.Controls("main").Pages(Me.Controls("main").Pages.Count) и измените любое свойство, которое вам нужно.