用vb怎么做个简单的屏幕保护

很简单。

一个Timer
将Form1的BorderStyle属性设为NONE、WindowState设为2-Max..
Dim i As Integer
Private Sub Form_Click()
End
End Sub

Private Sub Form_Load()
Me.BackColor = vbBlack
Me.ForeColor = vbWhite
Me.Font.Size = 100
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Randomize Timer
Me.CurrentX = Rnd * Width
Me.CurrentY = Rnd * Height
Print Chr(41455)
i = i + 1
If i = 13000 Then Cls: i = 0
End Sub

生成的文件后缀改成.scr就可以了。

本实例的项目文件SCRNSAVE.MAK中包括两个文件: SCRNSAVE.BAS、BLANK.FRM。这两个文件的作用分别说明如下。

一、SCRNSAVE.BAS

此模块文件包含四个子程序: HideMouse,ShowMouse,EndScrnsave,Main。前三个子程序分别用于隐藏鼠标光标、重新显示鼠标光标和结束屏幕保护程序返回Windows。当在Windows控制面板的桌面对话框中对屏幕保护程序进行“设置”时，Windows会传给相应的屏幕保护程序一个命令行参数Command＄，此命令行参数含有“/c”开关，要求屏幕保护程序提供自己的设置对话框。当在桌面对话框中对屏幕保护程序进行“测试”或在设定的时间内无键盘和鼠标操作而激活屏幕保护程序时，Command＄中含有“/s”开关，要求屏幕保护程序立即开始运行。本文提供的屏幕保护程序实例在启动时首先执行Main子程序，Main子程序通过检查Command＄来决定后续操作。若Comma