多页控件是容器的 Page 对象的集合。 每个 Page 对象包含自己的一组控件,并不一定依赖其他的 Page 对象的信息。例如对于您可以在该多页控件中的每个 Page 对象的客户端区域中添加不同的控件。默认状态下,多页控件中包含两个页面,您可以添加或删除页面,根据需要。
向用户窗体中添加一个多页控件
将多页控件添加到用户窗体 Visual Basic 编辑器中,请按照下列步骤:
1.单击用户窗体以将其激活。
2.在视图菜单上单击工具箱以显示工具箱,如果尚未显示。
3.单击多页控件按钮。
4.绘制控制多页控件在窗体上。
使用多页控件中的单个页
要在多页控件中选择一个单独的网页首先单击在多页控件,然后单击页面。
注:当您单击多页控件时,前面的控件在页面中会自动选中。
选择一个页面后,您可以更改其属性、 删除它,添加新的网页或移动页面,右键单击页,然后单击快捷菜单上适当的命令。
对于如果创建了一个名为 MultiPage1 的多页控件可以使用以下语句来显示所选页的标题:
MsgBox MultiPage1.SelectedItem.Caption
示例
下面的示例说明如何创建简单实现多页控件的用户窗体。
1.在新工作簿在 Excel 中中, 指向工具菜单上的宏,然后单击 Visual Basic 编辑器。
2.在插入菜单上单击用户窗体。请按 F4 以激活的用户窗体的属性窗口。键入窗体的名称属性旁边的 图像 并键入标题旁边的 客户信息 属性。
3.单击窗体,以将其选中。单击工具箱的控制多页控件窗口和绘制控制多页窗体上的。多页控件被选定的情况下,请按 F4 以激活属性窗口。键入 mpgCustomer 多页控件的名称属性旁边。
4.单击在第一页,然后按 F4 激活属性窗口。键入 pgName 名称属性旁边,并键入标题属性旁边的 名称。
5.单击第二页,然后按 F4 激活属性窗口。键入 pgLocation 名称属性旁边,键入标题属性旁边的 位置。
6.单击名称页,然后使用列出的属性设置中添加下列控件:
Control Type Property Value
----------------------------------------------------------
Label Name lblFirstName
Caption First Name
TextBox Name txtFirstName
Label Name lblLastName
Caption Last Name
TextBox Name txtLastName
7.单击位置页,具有列出的属性设置中添加下列控件:
Control Type Property Value
----------------------------------------------------------
Label Name lblRegion
Caption Region
TextBox Name txtRegion
8.单击工具箱窗口上的命令按钮,然后添加一个多页控件外部的窗体上的命令按钮控件。 在窗体的右上角绘制命令按钮控件。 标题属性旁边的 确定 键入的命令按钮,然后键入 cmdOK 旁边 Name 属性。
9.用鼠标右键单击确定命令按钮控件,然后单击查看代码。键入下列代码:
Private Sub cmdOK_Click()
' Save the data in the TextBox controls to the
' active worksheet.
With ActiveSheet
.Range("A1") = Me.txtLastName.Text
.Range("B1") = Me.txtFirstName.Text
.Range("C1") = Me.txtRegion.Text
End With
' Unload the form.
Unload Me
End Sub
10.在插入菜单上单击模块,插入到项目中的模块。
11.在新模块的代码窗口中键入以下过程:
Public Sub ShowForm()
' This procedure displays the form named frmMain.
frmMain.Show
End Sub
12.在 ShowForm 的过程中,插入点按 f5 键运行该宏。
在两个页上,文本框中键入值完成后单击确定。文本框中的值将在该的工作表中相应的单元格中插入和用户窗体将被关闭。