窗体控件属性介绍怎么写？窗体控件属性介绍

窗体控件属性介绍怎么写？窗体控件属性介绍fmSpecialEffectFlat说明 Object.SpecialEffect [= fmButtonEffect ]常量值

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

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

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 Range Set R = Range("C3:C7") Dim xobj As Object For 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 If Next xobj Set xobj = Nothing Set R = Nothing Set xR = Nothing

最终效果如下图所示：

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

欢迎关注、收藏

---END---