窗体控件属性是面向对象编程过程中的一个基本学习内容，本文介绍一个控件属性广泛使用的一个外观属性，了解之后，通过设置可以提高控件的美观性。

上图为本文示例，设置不同的属性值，可以获得不同的控件效果。

SpecialEffect 英文翻译为 "特殊效果"，就是说一个控件外观效果，如3D，阴影，平面等等。

语法：

Object.SpecialEffect [= fmButtonEffect ]

常量

值

说明

fmSpecialEffectFlat

0

对象平面显示，通过边框和（或）颜色的变化来与周围的窗体相区别。 Image 和 Label 的默认值，对于所有控件均有效。

fmSpecialEffectRa一

1

对象的左边和顶边加亮显示，右边和底边带有阴影。 对复选框或选项按钮无效。

fmSpecialEffectSunken

2

对象的顶边和左边带阴影，底边和右边加亮显示。 控件及其边框似乎将嵌入其所在的表单。 CheckBox 和 OptionButton 的默认值，对于所有控件均有效（默认）。

fmSpecialEffectEtched

3

控件边缘呈凹入状态。 对复选框或选项按钮无效。

fmSpecialEffectBump

6

对象的底边和右边凸起，顶边和左边平坦。 对复选框或选项按钮无效。

注意：

控件 CheckBox、OptionButton、ToggleButton仅 Flat 和 Sunken (0 和 2)可以设置，其它控件可接受任意值。

代码

Dim R As Range, xR As RangeSet R = Range("C3:C7")Dim xobj As ObjectFor Each xobj In Me.Controls    If TypeName(xobj) = "TextBox" Then        Set xR = R.Find(xobj.SpecialEffect)        If Not xR Is Nothing Then            xobj.Value = xR.Previous.Value        End If    End IfNext xobjSet xobj = NothingSet R = NothingSet xR = Nothing

最终效果如下图所示：

SpecialEffect属性应用是一个很好的习惯，可以对不同控件外观进行特别设置。

欢迎关注、收藏

---END---