Label控件鲜为人知的两个实用功能

清风_ll · 发表于 2013-7-18 16:34

Label控件鲜为人知的两个实用功能

1、文本垂直居中

在VBA 用户窗体中，Label控件的文本不能实现垂直居中一直是一个遭人诟病的缺陷。通常使用两个Label控件来实现，这种方法在需要的控件数量不多的时候，还是勉强可以接受的，但是如果数量多了，就会觉得比较麻烦了。在长期的实践中，发现使用单个Label控件也可以实现文本的垂直居中功能。实现方法如下：

通常Label控件被放置在UserForm、Frame、MultiPage等容器中，使用容器的背景色创建一幅大小合适的图片（如64*24），并保存为Bmp图片，如下图所示：

在用户窗体中插入Label对象，设置Picture属性为上面BMP图片，PicturePosition属性值为12。此时文本居中显示（水平居中&垂直居中），如下图所示。下来只需要复制控件即可立即得到居中显示的Label标签控件。

2、显示透明背景的BMP图片

众所周知，BMP图片没有透明背景，在需要使用透明背景图片时，在VBA中，通常只能使用具有透明背景的Gif图片。在实践中发现，将图片指定为Label标签对象的Picture属性图片，对于某些具有特殊背景的图片能够实现透明显示，如下面图片。

在Label标签中分别显示如下。

下面附件为上面使用的BMP图片。

示例BMP.rar (1.69 KB, 下载次数: 343)

VBA中还有很多尚未被发现的功能，还需要大家用心去发现、去挖掘，来分享！

该贴已经同步到清风_ll的微博

aman1516 · 发表于 2013-7-18 22:46

透明只相对于Label的，可否相对于窗体呢？

liucqa · 发表于 2013-7-19 00:22

支持分享

走近EXCEL · 发表于 2013-7-19 09:33

支持分享 ...................

AVEL · 发表于 2013-8-1 09:12

感谢分享。。

gjxk999 · 发表于 2013-12-17 16:05

谢谢分享！

一指禅62 · 发表于 2014-4-2 16:50

收藏了！谢谢版主！

aman1516 · 发表于 2014-4-2 19:32

利用Label的透明性，其实还有不少另类又有趣的用法：

Label另类用法－相机及延时.rar (43.69 KB, 下载次数: 248)

aman1516 · 发表于 2014-4-2 19:37

启用宏，点击任一个Label控件；　或双击Ｂ２或Ｂ４单元格，就能看到效果了。

看天的小树 · 发表于 2014-4-15 15:56

楼主技术很厉害啊

		自动登录	找回密码
密码			免费注册

[分享] Label控件鲜为人知的两个实用功能