VB 版 (精华区)

发信人: zhaowei (还珠格格), 信区: VisualBasic
标  题: VB中软件封面技术探秘4
发信站: 紫 丁 香 (Tue Jun  1 18:22:34 1999), 转信

         载入封面的代码放在主窗体的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

         定时器时间到后关闭定时器，同时卸载封面窗体，使用户可以
         继续操作主窗体。程序如下：

         Sub Timer1_Timer ()

         　

         frmmain.Timer1.Enabled = False ‘关闭定时器

         Unload frmcover ‘卸载封面

         screen.MousePointer = 0 ‘鼠标恢复原样

         　

         End Sub

         这样就实现了一个标准的软件封面，整个程序设计思路简单清
         晰，较好的解决了上述三个问题。它也充分体现了使用VB开发
         WINDOWS应用程序的方便和高效性，希望对VB程序员和爱好者有
         所启发。

         　



--
----------------------
        %-%      身  人
      % * * %    不  在 
      %  .  % /   由 江
         \\--/     己湖              
-----------------------

※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.243.47]