通过

当用户在窗体上的 Frame 或 MultiPage 控件中循环访问控件时控制焦点

  • 项目

以下示例为 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。