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

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

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

设置方法：

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

背景图片设置

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

使用方法如下:

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

其中注意一点Item(i),item表示Page页字母ｉ代表下标或索引值.索引值从0开始,也就是说第一个Page页用item(0)来代表,最后一个用item(pages.count-1)来表示.

改变按钮宽度

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

使用方法

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

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

使用方法:

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

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

使用方法:

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

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

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

关注江觅
学习更多vba编程技术