| 在主窗体的激活过程中激活定时器，并设置定时器的interval属性，程序如下： sub form_activate () timer1.interval = 3000 ’封面存在时间为3秒 timer1.enabled = true ’打开定时器 end sub 载入封面的代码放在主窗体的load事件中，可以改变鼠标形状以示用户等待。首先在通用过程中声明常量： const hwnd_topmost = -1 const swp_nomove = &h10 const swp_nosize = &h40 const flags = swp_nomove or swp_nosize 程序中使用setwindowpos 函数实现浮动效果： sub form_load () screen.mousepointer = 11 ’鼠标呈沙漏状 frmcover.show ’显示封面 frmcover.refresh setwindowpos frmcover.hwnd, hwnd_topmost, 0, 0, 0, 0, flags end sub |
正在阅读：Visual Basic中软件封面技术探秘Visual Basic中软件封面技术探秘
2004-02-14 09:34
出处：eNet学院
责任编辑：zwg
键盘也能翻页，试试“← →”键
