标题跟我一起玩个性──用VB制作动画屏保

　　在前面，我们学习了如何在Windows 98中实现Windows XP的某些个性化功能和一些有关系统、软件的个性化设置。那么，对于我们编程爱好者而言，能够自己动手制作才算“真英雄”。OK，就请你跟着来一起制作动画屏保吧，相信你一定能从中学到不少好东西！
　　我们知道，Windows系统中的屏幕保护程序扩展名为.scr，千万别以为这是微软的什么秘密文件格式，它只不过是一种在系统控制下的可执行文件(.exe文件)被换名存放在C盘Windows目录下罢了。因此，用VB的动画设计方法也可以做出同样精彩的屏保来。现在，就让我们来一起动手，在你的屏幕上做个“星空”吧！本例的重点在于学习在VB中如何控制图片。
　　启动VB 6.0后，新建一个工程，在窗体上放置三个计时器，timer1的interval值设为90，timer2 和timer3的interval值均设为500，再设置两个图片组：Picture2到picture9为一组，Picture0和picture1为一组。其中，除picture1和picture2的可视化属性(visible)设为TRUE外，其它图片的visible属性一律设为FALSE。
　　好了，现在双击窗体，写入以下代码：
　　Private Declare Function ShowCursor Lib“user32”(ByVal bShow As Long)As Long
　　Private Declare Function SystemParametersInfo Lib “user32” Alias “systemparametersinfoa” () As Long
　　Dim z As Integer
　　Private Sub form_load()
　　temp = ShowCursor(0)
　　'隐藏鼠标
　　DrawWidth = 1
　　'在背景上画小点
　　Picture1.Left = 0: Picture1.Top = 0.3 * form1.Width
　　Picture1.Width = 600: Picture1.Height = 800
　　z = 0
　　End Sub
　　Private Sub timer2_timer()
　　Select Case z
　　Case 0
　　Picture2.Picture = Picture3.Picture: z = 1
　　Case 1
　　Picture2.Picture = Picture2.Picture: z = 2
　　Case 2
　　Picture2.Picture = Picture5.Picture: z = 3
　　Case 3
　　Picture2.Picture = Picture6.Picture: z = 4
　　Case 4
　　Picture2.Picture = Picture8.Picture: z = 5
　　Case 5
　　Picture2.Picture = Picture9.Picture: z = 6
　　z = 0
　　End Select
　　'交替显示图片，形成动画效果
　　For i = 0 To 100
　　i = i + 1
　　Next
　　Picture2.Left = Picture2.Left + i
　　'通过不断增加图片的左边距来达到移动图片的目的
　　If Picture2.Left >= form1.Width Then
　　Picture2.Left = 0
　　Picture2.Top = Rnd * form1.Height
　　form1.Cls
　　form1.Show
　　'设置图片移出界面后的处理方法：图片回到左边界，清屏后再显示背景
　　End If
　　End Sub
　　Private Sub timer3_timer()
　　Select Case z
　　Case 0
　　Picture1.Picture = Picture7.Picture: z = 1
　　Case 1
　　Picture1.Picture = Picture0.Picture: z = 2
　　Case 2
　　Picture1.Picture = Picture7.Picture: z = 3
　　z = 0
　　End Select
　　For i = 1 To 90
　　i = i + 1
　　Next
　　Picture1.Left = Picture1.Left + i
　　Picture1.Top = Picture1.Top + 0.5 * i
　　If Picture1.Left = 0 Or Picture1.Left >= form1.Width - Picture1.Width Then
　　Picture1.Left = 0
　　form1.Cls
　　form1.Show
　　End If
　　If Picture1.Top = 0 Or Picture1.Top>= form1.Height Then
　　form1.Cls
　　form1.Show
　　Picture1.Top = Rnd * form1.Height + i
　　End If
　　End Sub
　　Private Sub timer1_timer()
　　Call radpoint
　　'在计时器控制下产生小点
　　End Sub
　　Sub radpoint()
　　r = Rnd * 255
　　g = Rnd * 255
　　xpos = Rnd * ScaleWidth
　　ypos = Rnd * ScaleHeight
　　PSet (xpos， ypos)， RGB(r， 255， 0)
　　'设置小点的颜色和发生位置
　　If Picture1.Left >= form1.Width Then
　　form1.Cls
　　Picture1.Left = Rnd * form1.Width: Picture1.Top = Rnd * form1.Height
　　form1.Show
　　End If
　　End Sub
　　Private Sub form_keypress(keycode As Integer)
　　temp = ShowCursor(1)
　　'当键盘按下时，显示鼠标光标
　　Unload Me '退出程序
　　End Sub
　　Private Sub form_mousedown(button As Integer， shift As Integer， x As Single， y As Single)
　　temp = ShowCursor(1)
　　Unload Me
　　'鼠标按下时，退出
　　End Sub
　　Private Sub form_mousemove(button As Integer， shift As Integer， x As Single， y As Single)
　　Static xlast， ylast As Single
　　Dim xnow， ynow As Single
　　'确定鼠标移动前后的坐标变量，通过比较两者之间的差来判断鼠标的移动
　　xnow = x:ynow = y
　　If xlast = 0 And ylast = 0 Then
　　xlast = xnow: ylast = ynow
　　Exit Sub
　　End If
　　If Abs(xnow - xlast) > 1 Or Abs(ynow - ylast) > 1 Then
　　temp = ShowCursor(1)
　　Unload Me
　　'鼠标移动后，退出屏保
　　End If
　　End Sub
　　此程序尚未添加有关屏保退出时的密码和屏保音效设置方面的代码，熟悉VB的朋友可以自行编写(再另加一两个窗体)。