四川 虞东海

    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中文企业版下运行通过。