四川 虞东海

    Netants是国人洪以容先生开发的一款用来实现多线程下载文件的工具，它支持断点续传、拖放下载等功能，深受国人喜爱，实属一款国产软件精品。不过我们今天在这里所要讲述的不是它实现多线程下载的原理，而是其中的一个“任务完成”窗体的实现。
不知道有没有细心的读者发现在Netants的最新版本中，随着下载完成时那一声清脆的“Job finished!”弹出的“任务完成"窗口不再像以前一样倏地一下就弹出了，而是渐渐的由小变大地弹出。那么这是怎样实现的呢？
实现原理：
其实实现这个的原理很简单。我们可以在窗口显示之前，在显示的背景上利用Rectangle函数画出一系列由小到大的矩形，当最大矩形的大小是窗口的大小时，再显示窗口。这时只要画出矩形的时间间隔满足上面的条件，完全可以使窗口在视觉上达到由小到大地弹出。
编程实例：
新建一工程，为了突出效果，我们在工程中添加两个窗体Form1、Form2，其中Form1就是启动时的窗体，在Form1中添加一CommandButton及一Timer控件。我们要实现在点击Command1后，Form2将于5秒后由小到大弹出。
在Form1中添加以下代码：
Private Sub Command1_Click()
Timer1.Enabled = True　注释：注意在设计时将Timer1.Enabled设为False；Timer1.Interval=100
End Sub

Private Sub Timer1_Timer()
Static a
a=a＋1
If a=50 Then
Form2.Show
End If
End Sub    　
在Form2中添加以下代码：
首先添加RECT类型的定义以及GetWindowRect、Rectangle、SetWindowPos、DeleteDC、GetDC几个API函数。
注释：以下声明用来实现使窗口总在最前，为便于使用，特将其加至窗体属性中
Private Property Let OnTop(Setting As Boolean)
    If Setting Then
         SetWindowPos hwnd, －1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
      Else
         SetWindowPos hwnd, －2, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
      End If
      mbOnTop = Setting
End Property

Private Property Get OnTop() As Boolean
     OnTop = mbOnTop
End Property
注释：以上为窗体通用部分，以下为窗体代码

Private Sub Form_Load()
Dim Size As RECT
GetWindowRect Me.hwnd,Size
Dim FormWidth, FormHeight As Integer  注释：定义窗体的宽度和高度
FormWidth=(Size.Right－Size.Left)
FormHeight=(Size.Bottom－Size.Top)
Dim TempDC
TempDC=GetDC(ByVal 0＆)  注释：获取整个屏幕的DC
Dim increment As Integer
increment=1000 注释：通过调节此数可以调节画出矩形的时间间隔，其值越大，时间间隔越长，其值越小，时间间隔越短
Dim Count,LeftPoint,TopPoint,nWidth,nHeight As Integer
For Count=1 To increment
    nWidth=FormWidth＊(Count/increment)
    nHeight=FormHeight＊(Count/increment)
    LeftPoint=Size.Left＋(FormWidth－nWidth)/2
    TopPoint=Size.Top＋(FormHeight－nHeight)/2
    Rectangle TempDC,LeftPoint,TopPoint,LeftPoint＋nWidth,TopPoint＋nHeight 注释：画矩形
Next Count
DeleteDC (TempDC) 注释：释放设备DC
OnTop=True 注释：使窗口总在最前
End Sub
大功告成，要说明的一点是这种特效并不适合于非常大的窗体，因为如果窗体过大的话，我们就会发现在窗体显示之前，其背景为一白色的慢慢变大的矩形，这样就容易露馅了。个人觉得窗体的大小为屏幕大小的九分之一时最为合适，而此时increment的值为1000时效果最佳。
以上程序在Windows98SE中文版、Visual Basic6.0中文企业版下运行通过。