深圳office培训 深圳excel培训
深圳excel培训 深圳office培训
咨询服务
深圳office培训
深圳office培训
office培训
excel培训
ppt培训
vba培训
access培训
word培训
visio培训
project培训
outlook培训
数据库培训
深圳access培训
深圳sql培训
深圳office培训
 

vba开发中的多页控件如何使用


2016年8月10日 作者: 来源:

如果在窗体开发中需要用到一对多的关系,通过多个数据表反映对应情况,可以使用多页控件。多页控件是容器的 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 键运行该宏。
在两个页上,文本框中键入值完成后单击确定。文本框中的值将在该的工作表中相应的单元格中插入和用户窗体将被关闭。


阅读:2061 上一则:vba如何限制文本框的输入 下一则:如何获取数据到列表框中

返回前页 返回顶部
温馨提示:本中心是深圳较为专业office培训机构、咨询及报名请先预约,电话:0755-82124110。
深圳地址:深圳红荔路四川大厦1109B-1110(3号龙岗线通新岭地铁站A出口10米)
热线:0755-82124110(福田、南山、宝安) 0755-22205758(罗湖、龙岗、龙华) 13510024571(东莞、惠州、珠海、广州)
北京地址:北京清华大学华业大厦三区三楼 版权所有:深圳万博计算机教育 粤ICP备11006947号-1
 
深圳信息系统项目管理师培训
深圳信息系统项目管理师培训 欢迎咨询!
您好!请点击这里咨询万博教育
深圳万博吴老师
您好!请点击这里咨询万博教育
深圳万博史老师
 
深圳信息系统项目管理师培训
深圳信息系统项目管理师培训