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

  • 常规讨论

  • 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的参考书。  
    2009年5月27日 8:29