【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：利用ActiveSkin控件开发豪华应用程序界面-计算机论文 - 其它论文绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

利用ActiveSkin控件开发豪华应用程序界面-计算机论文 真诚为您服务 单琦 对广大编程爱好者来说不仅希望自己写出的程序实用、性能稳定更希望软件的界面豪华、漂亮。

    但界面设计往往费时、费力而且多数程序员在这方面并不擅长。

    怎么办呢假如您使用的是以下开发工具-MicrosoftVisualBasic4-6-MicrosoftVisualC5-6-Inprise/BorlandDelphi2-4那么恭喜你您有福气享受softshape公司开发的ActiveSkin控件带给您的方便与快捷了。

    利用ActiveSkin控件您可以设计出任意外形的窗口界面连软件的其他设定画面、菜单、按钮、对话框等等也都可以依照你的意思来设计半透明、阴影等效果都可以。

    你还可以把软件设计得像是MAC、UNIX等其他操作系统的软件的样子。

    可以使你开发的软件具备“换肤”功能可以更换软件的外观外形、颜色等。

    图一为ActiveSkin提供的两个界面例子怎么样 上述形式的界面 中按钮、滚动条等均具有颜色渐变及动画效果你不仅可以利用ActiveSkin提供的SkinBuilder很轻易的设计出以上效果的界面而且也可以直接在程序中引用ActiveSkin提供的20几个界面方案快速高效的开发出界面漂亮、豪华的应用软件。

    下面我就结合实例讲一下运用ActiveSkin控件开发程序界面的方法。

    首先运行ActiveSkin控件包中的Setup程序安装控件并自动完成注册。

    然后运行VB并新建一工程然后选择菜单中的“工程”、“部件”从控件列表中选择ActiveSkin1.0typelibrary然后确定这时VB的工具栏中会出现6个控件依次为SkinForm、SkinButton、SkinPanel、SkinLabel、SkinScrollBar、SkinStorage首先选取SkinStorage把它放到新建工程的Form1上然后在该控件上单击鼠标右键在弹出的菜单中选择LoadSkin然后在弹出的对话框中选择ActiveSkin安装目录下的Skins目录里的任意一个界面方案在本例中选择Military文件。

    然后在新建工程 的Form1窗体中依次放入SkinForm、SkinButton见图二 然后在代码输入框中依次输入以下代码----------------------------------------------------------------------------PrivateSubCommand1_ClickDimskobjAsSkinObjectSetskobjSkinForm.SkinObjectWhileNotskobjIsNothing/computer/PCYY/200703/82826.asp/computer/PCYY/200703/82826.aspid2/computer/PCYY/200703/82826.aspid3/computer/PCYY/200703/82826.aspid4/computer/PCYY/200703/82826.aspid5/computer/PCYY/200703/82826.aspid6/computer/PCYY/200703/82826.aspid7/computer/PCYY/200703/82826.aspid8’WhileNottestIsNothingIftest.Transparency0ThenGoTot1Settesttest.ParentWendt1IftestIsNothingThenskobj.Transparency0EndIfSetskobjskobj.GetUpperObjectWendEndSub----------------------------------------------------------------------------PrivateSubForm_LoadApplySkinSkinStorage1.SkinSourceEndSub----------------------------------------------------------------------------PrivateSubAnimateIfNotSkinButton1.SkinObjectIsNothi ngThentSkinButton1.SkinObject.TopSkinButton1.SkinObject.TopStringCStrSkinButton1.SkinObject.ExecuteScript“wait500moveto-“CStr“----1000_decel“EndIfIfNotSkinButton2.SkinObjectIsNothingThentSkinButton2.SkinObject.TopSkinButton2.SkinObject.TopStringCStrSkinButton2.SkinObject.ExecuteScript“wait500moveto-“CStr“----1000_decel“EndIfIfNotSkinButton3.SkinObjectIsNothingThentSkinButton3.SkinObjec t.TopSkinButton3.SkinObject.TopStringCStrSkinButton3.SkinObject.ExecuteScript“wait500moveto-“CStr“----1000_decel“EndIfEndSub----------------------------------------------------------------------------PrivateSubApplySkinSetSkinForm.SkinSourceSkSrcSkinButton1.ApplySkinSkinFormSkinButton2.ApplySkinSkinFormSkinButton3.ApplySkinSkinFormAnimateRefreshEndSub---------------------------------------------------------------------- ------按钮二代码PrivateSubSkinButton2_ClickSkinButton2.ApplySkinSkinFormAnimateEndSub----------------------------------------------------------------------------/computer/PCYY/200703/82826.asp/computer/PCYY/200703/82826.aspid2/computer/PCYY/200703/82826.aspid3/computer/PCYY/200703/82826.aspid4/computer/PCYY/200703/82826.aspid5/computer/PCYY/200703/82826.aspid6/computer/PCYY/200703/82826.aspid7/computer/PCYY/200703/82826.aspid8’/20073.jpg“此程序运行后该不规则窗体为半透明点击按钮有动画效果左上角三个小按钮依次为最小化、最大化、关闭按钮均带特效。

    假如在选择界面方案时选择其它方案并将以上代码稍加修改即可做出风格各异的程序界面。

    当然假如你觉得输入以上代码太麻烦那你也可以这样做。

    在新建的窗体上只放一个SkinForm然后在该控件上单击右键在弹出的菜单中选择LoadSkin然后在弹出的对话框中选择ActiveSkin安装目录下的Skins目录里的任意一个界面方案在本例中仍然选择Military文件确定后你会发现窗体已经变成图四的样子只是没有按钮的动画效果。

    不过这么简单几步就可以拥有奇形怪状的窗体你会不满足吗限于篇幅ActiveSkin控件的使用方法及技巧就先写到这里ActiveSkin控件的强大功能一定会让你着迷以后我会再向大家介绍图二形式的界面的设计方法也欢迎大家来信切磋共同进步。