VB 版 (精华区)

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

         3. 还要保证主窗体载入完毕后，封面窗体自动卸出。这主要靠
         在主窗体中使用定时器控件，在激活主窗体的Activate事件中
         激活定时器，设置定时器属性，在定时器控件的事件Timer中，
         关闭定时器，卸出封面。

         下面给出的程序实例是一个完整的封面设计，供VB程序开发者
         参考。

         假设封面窗体名为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 

         　

         在主窗体的激活过程中激活定时器，并设置定时器的Interval
         属性，程序如下：

         Sub Form_Activate ()

         　

         Timer1.Interval = 3000 ’封面存在时间为3秒

         Timer1.Enabled = True ’打开定时器

         　

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

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