什么是分页控件，vba Page分页控件使用方法介绍？-营销圈

什么是分页控件，vba Page分页控件使用方法介绍？

用户投稿 • 2022年6月18日 am2:08 • 网络资讯 • 阅读 685

分页在vba编程中使用，会大大增加程序的整洁度，也是应用程序比较实用的一个功能。

基本说一下，Page分布控件的使用方法，包括添加分页、删除分页、和设置分页属性等几点比较重要的内容。

什么是分页控件，vba Page分页控件使用方法介绍？

一个表单示例，标题分布以按钮形式来显示，默认为标签形式。

设置方法：

With Me.MultiPage1
.Style = fmTabStyleButtons'按钮形式
'.Style = fmTabStyleTabs '默认为标签形式
End With

背景图片用loadpicture(＂图片路径＋文件名＂)加载

什么是分页控件，vba Page分页控件使用方法介绍？

使用方法如下:

Me.MultiPage1.Pages.Item(1).Picture =_
LoadPicture(ThisWorkbook.Path & "\pic\123.jpg")

什么是分页控件，vba Page分页控件使用方法介绍？

图片加载后的效果

这个功能其实就是设置分布标题大小,用TabFixedWidth设置宽,TabFixedHeight设置高.

什么是分页控件，vba Page分页控件使用方法介绍？

使用方法

with Me.MultiPage1
.TabFixedWidth = 80
.TabFixedHeight=28
end with

新建分页也十分简单,一行代码就可以完成. MultiPage1.Pages.Add “分布名”,”标题名”,索引值

什么是分页控件，vba Page分页控件使用方法介绍？

使用方法:

Dim x As Integer
x = Me.MultiPage1.Pages.Count
Me.MultiPage1.Pages.Add "page" & x, "新建 " & x & "#", x

删除分页也是一行代码完成的,
Me.MultiPage1.Pages.Remove 索引

什么是分页控件，vba Page分页控件使用方法介绍？

使用方法:

Dim i As Integer
i = Me.MultiPage1.Pages.Count - 1'取最后一个分布索引号
If i <= 4 Then Exit Sub'判断是否是删除页 不能把自己删除了
Me.MultiPage1.Pages.Remove i'执行删除分页

其实,对分页控件用得不是很熟悉,也是边学边做,所以,存在一些错误的地方,在所难免.

希望大家指出,加以改正.

好了，这篇文章的内容营销圈就和大家分享到这里，如果大家网络推广引流创业感兴趣，可以添加微信：Sum8338 备注：营销圈引流学习，我拉你进直播课程学习群，每周135晚上都是有实战干货的推广引流技术课程免费分享！

好了，这篇文章的内容营销圈就和大家分享到这里，如果大家对网络推广引流和网络创业项目感兴趣，可以添加微信：Sum8338 备注：营销圈引流学习，我拉你进直播课程学习群，每周135晚上都是有实战的推广引流技术和网络创业项目课程分享，当然是免费学！

什么是分页控件，vba Page分页控件使用方法介绍？