在VB中利用API实现窗体的平滑显示

Win98的一个新功能是窗体能够平滑显示，那我们是否能编程来实现这种功能呢？答案是肯定的。首先讲述一下原理，其实我并没有让窗体本身平滑地显示，而是在窗体显示之前在窗体的位置上画一系列的矩形，利用视觉暂留让人以为是窗体在从小变大。
　　下面就用VB来实现这种功能。
　　建立两个窗体form1和form2，在form1上添加如下控件：由五个optionbutton控件组成的控件数组，index为0－4,caption属性分别为“从中间扩散”、“右上到左下”、“左上到右下”、“右下到左上”和“左上到右下”,一个commandbutton，caption属性为“显示窗体”, 添加一个模块其中代码如下：
　　 Option Explicit
　　`声明所用的API函数、常量和变量
　　Public Declare Function GetDC Lib “user32” (ByVal hwnd As Long) As Long
　　 Public Declare Function Rectangle Lib “gdi32” (ByVal hdc As Long, _
　　 ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2_
　　 As Long) As Long
　　 Public Declare Function SelectObject Lib “gdi32” (ByVal hdc As Long, _
　　 ByVal hObject As Long) As Long
　　 Public Declare Function DeleteObject Lib “gdi32”(ByVal hObject As _
　　 Long) As Long
　　 Public Declare Function ReleaseDC Lib “user32” (ByVal hwnd As Long,_
　　 ByVal hdc As Long) As Long
　　 Public Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
　　 Public Declare Function CreateSolidBrush Lib “gdi32” (ByVal crColor As_
　　 Long) As Long
　　 Public Declare Function GetBkColor Lib “gdi32” (ByVal hdc As Long) As Long
　　 Public hbrush As Long, hdc5 As Long
　　 Public dx As Long, dy As Long
　　 Public rx1 As Long, rx2 As Long, ry1 As Long, ry2 As Long
　　 Public i As Long, j As Long, bcolor As Long
　　 Public ind As Integer
　　 Public DispCnt As Long
　　
　　Public Sub showform(win As Form, ind)
　　 DispCnt = 60 `画几个矩形后显示窗体
　　 `下面这段代码用来获得窗体颜色,不用me.backcolor的原因是窗体颜色不一定是系统调色板的颜色,如果用me.backcolor的话颜色可能会不准。
　　 hdc5 = GetDC(0)
　　 bcolor = GetBkColor(win.hdc)
　　 hbrush = CreateSolidBrush(bcolor)`设定刷子颜色
　　 Call SelectObject(hdc5, hbrush)
　　 dx = win.Width \ (DispCnt)
　　 dy = win.Height \ (DispCnt)
　　 j = 1
　　 Select Case ind
　　 Case 1
　　 dx = dx \ 2; dy = dy \ 2
　　 For i = DispCnt To 1 Step －1
　　 rx1 = (win.Left ＋ dx ＊ (i － 1)) \ Screen.TwipsPerPixelX
　　 ry1 = (win.Top ＋ dy ＊ (i － 1)) \ Screen.TwipsPerPixelY
　　 rx2 = rx1 ＋ dx ＊ 2 ＊ j \ Screen.TwipsPerPixelX
　　 ry2 = rx1 ＋ dy ＊ 2 ＊ j \ Screen.TwipsPerPixelY
　　 j = j ＋ 1
　　 Call Rectangle(hdc5, rx1, ry1, rx2, ry2)
　　 Sleep (1); Next i
　　Case 2
　　 For i = DispCnt To 1 Step －1
　　 rx1 = (win.Left ＋ win.Width － dx ＊ j) \ Screen.TwipsPerPixelX
　　 ry1 = win.Top \ Screen.TwipsPerPixelY
　　 rx2 = (win.Left ＋ win.Width) \ Screen.TwipsPerPixelX
　　 ry2 = (win.Top ＋ dy ＊ j) \ Screen.TwipsPerPixelY
　　 j = j ＋ 1
　　 Call Rectangle(hdc5, rx1, ry1, rx2, ry2)
　　 Sleep (1); Next i
　　 Case 3
　　 For i = DispCnt To 1 Step －1
　　 rx1 = win.Left \ Screen.TwipsPerPixelX
　　 ry1 = win.Top \ Screen.TwipsPerPixelY
　　 rx2 = rx1 ＋ dx ＊ j \ Screen.TwipsPerPixelX
　　 ry2 = rx1 ＋ dy ＊ j \ Screen.TwipsPerPixelY
　　 j = j ＋ 1
　　 Call Rectangle(hdc5, rx1, ry1, rx2, ry2)
　　 Sleep (1); Next i
　　 Case 4
　　 For i = DispCnt To 1 Step －1
　　 rx1 = (win.Left ＋ dx ＊ (i － 1)) \ Screen.TwipsPerPixelX
　　 ry1 = (win.Top ＋ dy ＊ (i － 1)) \ Screen.TwipsPerPixelY
　　 rx2 = (win.Left ＋ win.Width) \ Screen.TwipsPerPixelX
　　 ry2 = (win.Top ＋ win.Height) \ Screen.TwipsPerPixelY
　　 j = j ＋ 1
　　 Call Rectangle(hdc5, rx1, ry1, rx2, ry2)
　　 Sleep (1); Next i
　　 Case 5
　　 For i = DispCnt To 1 Step －1
　　 rx1 = (win.Left) \ Screen.TwipsPerPixelX
　　 ry1 = (win.Top ＋ win.Height － dy ＊ j) \ Screen.TwipsPerPixelY
　　 rx2 = (win.Left ＋ dx ＊ j) \ Screen.TwipsPerPixelX
　　 ry2 = (win.Top ＋ win.Height) \ Screen.TwipsPerPixelY
　　 j = j ＋ 1
　　 Call Rectangle(hdc5, rx1, ry1, rx2, ry2)
　　 Sleep (1); Next i
　　 End Select
　　Call ReleaseDC(0, hdc5)`释放设备描述表
　　Call DeleteObject(hbrush)`删除刷子
　　End Sub
　　在form1中输入如下代码
　　Private Sub Command1_Click()`显示窗体
　　Unload Form2
　　Load Form2
　　Form2.Show
　　End Sub
　　
　　Private Sub Form_Load()
　　 ind = 1`初始化参数
　　End Sub
　　
　　Private Sub Option1_Click(Index As Integer)
　　Select Case Index
　　 Case 0
　　 ind = 1
　　 Case 1
　　 ind = 2
　　 Case 2
　　 ind = 3
　　 Case 3
　　 ind = 4
　　 Case 4
　　 ind = 5
　　 Case 5
　　 ind = 6
　　 End Select
　　
　　End Sub
　　在form2中输入如下代码
　　Private Sub Form_Load()
　　 Call showform(Me, ind)
　　End Sub
　　本程序调用了一些有关系统和绘图的API函数，有利于大家进一步了解API函数的功能。本程序在vb5企业版，Win98中运行通过。