首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

Netants “任务完成”式窗体的实现

(加入日期: 2001-09-16 )

打印文章】【字体:

分享到:
四川 虞东海

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

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章