用VB实现“百叶窗”的图形特效

Question

delay 500′延时
Next j
Next i
End Sub

　　其中delay是一个通用子过程，用于延时，以便于能看清楚切换效果。代码如下：

Sub delay(delaytime As Integer)
For i=1 To delaytime
Next i
End Sub

　　通过这样简单的程序就可以实现“百叶窗”的切换特效，其实，只要有合适的算法，运用BitBlt函数能够实现的图形特效是无穷的。有兴趣的读者可以查阅有关VB的参考书。