VB设计——屏保

1.启动VB 6.0，新建一个标准工程。

2.在Form1中添加一个定时器控件(Timer)，把Timer1的Interval属性设置为“1”，然后把Form1的AutoRedraw属性设置为“True”，ScaleMode属性设置为“3”，BorderStyle属性设置为“0”，WindowState属性设置为“2”。

3.程序代码如下：

Option Explicit

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long， ByVal X1 As Long， ByVal Y1 As Long， ByVal X2 As Long， ByVal Y2 As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long， ByVal X As Long， ByVal Y As Long， ByVal nWidth As Long， ByVal nHeight As Long， ByVal hSrcDC As Long， ByVal xSrc As Long， ByVal ySrc As Long， ByVal dwRop As Long) As Long

' 定义小星星

Private Type Star

X As Long

Y As Long

Speed As Long

Size As Long

Color As Long

End Type

Dim Stars(49) As Star

Con