在Multipage控件中动态添加页面

时间:2011-07-24 12:58:25

标签: excel vba excel-vba

我希望在初始化表单时以多页面添加一些页面。我用这段代码做了:

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)

所以我想为该代码中添加的每个页面添加一个名称,但我不知道如何....添加名称之后我想在每个页面上添加一些其他控件但这是一个不同的故事而我希望我能做到这一点! 非常感谢!

1 个答案:

答案 0 :(得分:2)

您可以通过Me.Controls("main").Pages.Count访问页面计数信息,该信息是您添加pagini后的最新信息。

因此,请转到Me.Controls("main").Pages(Me.Controls("main").Pages.Count)并更改您想要的任何属性。