制作屏幕保护程序

制作屏幕保护程序

Windows自带的屏幕保护程序挺好的。其实我们也可以自己制作屏幕保护程序。

打开VB，新建标准EXE工程。

将BorderStyle设置为None，将WindowState设置为Maximized

打开代码窗口，加上这几行代码：

Private Sub Form_Load()

Form1.WindowState = 2 '开始运行的时候把窗口最大化

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End '点击鼠标退出屏保

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

End '按任意键退出屏保

End Sub

点击运行，你会发现程序全屏显示白屏；点击鼠标，会退出程序。

这时，你可以在代码界面编程，你可以加一些图形(Shape)和动画，你也可以弄图片。

我的例子和效果：

生成EXE，然后把exe的后缀名改成.scr

然后右键你的屏保程序，点击安装。