| 2. 浮动窗体的实现。 由于主窗体先载入，然后激发封面的事件(event),使封面窗体成为当前活动窗体，所以必须保证窗体总是浮在主窗体的上面，在Visual Basic中，这个问题主要依靠调用windows的api函数setwindowpos来实现。setwindowpos函数的声明如下： declare sub setwindowpos lib "user" (byval hwnd as integer, byval hwndinsertafter as integer, byval x as integer, byval y as integer, byval cx as integer, byval cy as integer, byval wflags as integer) 其中： hwnd为作为封面窗体的句柄； hwndinsertafter 指示为封面窗体前载入的窗体； x为封面窗体左上角的x坐标; y为封面窗体左上角的y坐标; cx为窗体新宽度； cy为窗体新高度； wflags影响窗体大小和位置的16位值。 其中，hwndinsertafter设为hwnd_topmost，wflags设为swp_nomove （不移动窗体，即忽略cx和cy）或swp_nosize（不改变窗体大小，即忽略x和y），就可以实现将hwnd标识的窗体置于所有非最顶窗体之上。 |
正在阅读：Visual Basic中软件封面技术探秘Visual Basic中软件封面技术探秘
2004-02-14 09:34
出处：eNet学院
责任编辑：zwg
键盘也能翻页，试试“← →”键
