正在阅读：Visual Basic中软件封面技术探秘Visual Basic中软件封面技术探秘

2004-02-14 09:34 出处：eNet学院作者：刘强责任编辑：zwg

3. 还要保证主窗体载入完毕后，封面窗体自动卸出。 　　这主要靠在主窗体中使用定时器控件，在激活主窗体的activate事件中激活定时器，设置定时器属性，在定时器控件的事件timer中，关闭定时器，卸出封面。　　下面给出的程序实例是一个完整的封面设计，供Visual Basic程序开发者参考。　　假设封面窗体名为frmcover，主窗体名为frmmain，其中封面窗体可以用绘图指令绘出,下面的程序给出了绘制三维窗体的方法，在封面窗体载入过程中，窗体上可根据用户需要绘制三维面板或图片框等。 sub form_load () dim fwidth as integer dim i as integer, t as integer, l as integer dim w as integer, h as integer 　 frmcover.backcolor = &hc0c0c0 frmcover.left = (screen.width - width) / 2 frmcover.top = (screen.height - height) / 2 frmcover.scalemode = 3: fwidth = 4 frmcover.autoredraw = -1 　 for i = 1 to fwidth t = i l = i h = scaleheight w = scalewidth line (l, t)-(l, h - i), rgb(255, 255, 255) line (l, t)-(w - i, t), rgb(255, 255, 255) line (w - l, t)-(w - l, h - t), rgb(64, 64, 64) line (l, h - l)-(w - l, h - l), rgb(64, 64, 64) next i 　 end sub