作者：佚名    文章来源：不详    点击数：    更新时间：2008-4-28           

<% if request("infoid")<>"" then set rs=conn.execute("select * from nproduct where id="&request("infoid")) if not (rs.eof and rs.bof) then proname=rs("proname") content=rs("proinfo") end if rs.close set rs=nothing end if %>

这一段时间做程序，一直在做界面方面的工作，刚开始是简单的贴图操作，后来感觉不通用，代码重用性不好，并且要做很多基本工作（要在界面上添加图片，此外还要设定叠放顺序）。后来，把它封装成类，代码重用性提高了，可是界面上还要自己添好多控件，此外窗体变化和放缩，也得添好多代码。后来突然想到VB可以实现控件的自动添加，一试，果然好使，后来有把一些事件也集成到类中了。       目前又把类封装成了控件，使用更加简单了，仅需一条指令就可完成界面换肤和多语言版本      Private Sub Form_Load()            YFSkin1.SkinInit Me   '仅需这一行代码               End Sub      这是我已经设计好的几个界面截图（皮肤和语言文件可自定义，可无限扩充）               控件使用源码下载地址：http://www.bjjr.com.cn/yefan/yfskins.rar 叶子树:www.webshu.net