对广大编程爱好者来说，不仅希望自己写出的程序实用、性能稳定，更希望软件的界面豪华、漂亮。但界面设计往往费时、费力，而且多数程序员在这方面并不擅长。怎么办呢？如果您使用的是以下开发工具，
- Microsoft Visual Basic 4-6
- Microsoft Visual C++ 5-6
-Inprise/Borland Delphi 2-4
那么恭喜你，您有福气享受softshape公司开发的ActiveSkin控件带给您的方便与快捷了。利用ActiveSkin控件您可以设计出任意形状的窗口界面，连软件的其他设定画面、菜单、按钮、对话框等等也都可以依照你的意思来设计，半透明、阴影等效果都可以。你还可以把软件设计得像是MAC、UNIX等其他操作系统的软件的样子。可以使你开发的软件具备“换肤”功能，可以更换软件的外观，形状、颜色等。图一为ActiveSkin提供的两个界面例子，怎么样？

上述形式的界面中，按钮、滚动条等均具有颜色渐变及动画效果，你不仅可以利用ActiveSkin提供的SkinBuilder很容易的设计出以上效果的界面，而且也可以直接在程序中引用ActiveSkin提供的20几个（包括上述两个）界面方案，快速高效的开发出界面漂亮、豪华的应用软件。下面我就结合实例（开发环境为Visual Basic 6.0）讲一下运用ActiveSkin 控件开发程序界面的方法。首先运行ActiveSkin控件包中的Setup程序安装控件并自动完成注册（ActiveSkin控件包下载网址为: http://www.softshape.com/activeskin ，也可到华军软件园的编程工具中下载）。然后运行VB并新建一工程，然后选择菜单中的“工程(P)”、“部件”，从控件列表中选择ActiveSkin 1.0 type library 然后确定，这时VB的工具栏中会出现6个控件依次为SkinForm、SkinButton、SkinPanel、SkinLabel、SkinScrollBar、SkinStorage，首先选取SkinStorage，把它放到新建工程的Form1上，然后在该控件上单击鼠标右键，在弹出的菜单中选择Load Skin，然后在弹出的对话框中选择ActiveSkin安装目录下的Skins目录里的任意一个界面方案，在本例中选择Military 文件。然后在新建工程的Form1窗体中依次放入SkinForm、SkinButton（三个，并分别命名为按钮一、按钮二、按钮三）

然后在代码输入框中依次输入以下代码：
----------------------------------------------------------------------------
Private Sub Command1_Click()
Dim skobj As SkinObject
Set skobj = SkinForm.SkinObject
While Not skobj Is Nothing ' scan for all SkinObjects in the skin
If skobj.Transparency <> 0 And skobj.Transparency <> 255 Then
Dim test As SkinObject
Set test = skobj
While Not test Is Nothing
If test.Transparency = 0 Then GoTo t1
Set test = test.Parent
Wend
t1: If test Is Nothing Then skobj.Transparency = 0
End If
Set skobj = skobj.GetUpperObject
Wend
End Sub
----------------------------------------------------------------------------
Private Sub Form_Load()
ApplySkin SkinStorage1.SkinSource
End Sub
----------------------------------------------------------------------------
Private Sub Animate()
If Not SkinButton1.SkinObject Is Nothing Then
t = SkinButton1.SkinObject.Top
SkinButton1.SkinObject.TopString = CStr(t - 60)
SkinButton1.SkinObject.ExecuteScript "wait 500; moveto - " + CStr(t) + " - - - - 1000_ decel"
End If
If Not SkinButton2.SkinObject Is Nothing Then
t = SkinButton2.SkinObject.Top
SkinButton2.SkinObject.TopString = CStr(t - 60)
SkinButton2.SkinObject.ExecuteScript "wait 500; moveto - " + CStr(t) + " - - - - 1000_ decel"
End If
If Not SkinButton3.SkinObject Is Nothing Then
t = SkinButton3.SkinObject.Top
SkinButton3.SkinObject.TopString = CStr(t - 60)
SkinButton3.SkinObject.ExecuteScript "wait 500; moveto - " + CStr(t) + " - - - - 1000_ decel"
End If
End Sub
----------------------------------------------------------------------------
Private Sub ApplySkin(SkSrc As SkinSource)
Set SkinForm.SkinSource = SkSrc
SkinButton1.ApplySkin SkinForm
SkinButton2.ApplySkin SkinForm
SkinButton3.ApplySkin SkinForm
Animate
Refresh
End Sub
----------------------------------------------------------------------------
' 按钮一代码
Private Sub SkinButton1_Click()
SkinButton1.ApplySkin SkinForm
Animate
End Sub
----------------------------------------------------------------------------
' 按钮二代码
Private Sub SkinButton2_Click()
SkinButton2.ApplySkin SkinForm
Animate
End Sub
----------------------------------------------------------------------------
' 按钮三代码
Private Sub SkinButton3_Click()
SkinButton3.ApplySkin SkinForm
Animate
End Sub
然后按F5运行，

此程序运行后，该不规则窗体为半透明（设计时可调），点击按钮有动画效果，左上角三个小按钮依次为最小化、最大化、关闭按钮，均带特效。如果在选择界面方案时，选择其它方案，并将以上代码稍加修改即可做出风格各异的程序界面。
当然，如果你觉得输入以上代码太麻烦，那你也可以这样做。在新建的窗体上只放一个SkinForm，然后在该控件上单击右键，在弹出的菜单中选择Load Skin，然后在弹出的对话框中选择ActiveSkin安装目录下的Skins目录里的任意一个界面方案，在本例中仍然选择Military 文件，确定后你会发现窗体已经变成图四的样子，只是没有按钮的动画效果。不过这么简单几步就可以拥有奇形怪状的窗体，你会不满意吗？
限于篇幅，ActiveSkin 控件的使用方法及技巧就先写到这里，ActiveSkin 控件的强大功能一定会让你着迷，以后我会再向大家介绍图二形式的界面的设计方法，也欢迎大家来信切磋，共同进步。