以下示例为
MultiPage
中的
Frame
和两个
Page
对象定义
Cycle
属性。
若要使用本示例，请将此示例代码复制到窗体的"脚本编辑器"中。 若要运行本代码，需要打开该窗体，以便激活
Open
事件。 确保该窗体包含：
一个名为"Frame1"的
Frame
。
一个名为"MultiPage1"的
MultiPage
，该控件包含两个名称分别为"Page1"和"Page2"的对象。
两个名称分别为"CommandButton1"和"CommandButton2"的
CommandButton
控件。
在窗体中，
Frame
和
MultiPage
的每个
Page
都放置有几个控件，因此您可以看见
Cycle
如何影响
Frame
和
MultiPage
的键顺序。
用户应遍历这些控件，以观察
Cycle
如何影响键顺序。 按 CommandButton1 展开键顺序，以将
Frame
和
Page
对象中的控件包含在内。 按 CommandButton2 限制键顺序。
Dim Frame1
Dim MultiPage1
Sub Item_Open()
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Frame1
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").MultiPage1
RestrictCycles
End Sub
Sub RestrictCycles()
'Limit tab order for the Frame and Page objects
Frame1.Cycle = 2
MultiPage1.Page1.Cycle = 2
MultiPage1.Page2.Cycle = 2
End Sub
Sub CommandButton1_Click()
'Extend tab order subforms (the Frame and Page objects)
Frame1.Cycle = 0
MultiPage1.Page1.Cycle = 0
MultiPage1.Page2.Cycle = 0
End Sub
Sub CommandButton2_Click()
RestrictCycles
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。
