如何把VB程序应用到屏保程序中

首先你得保证你的程序没有错误。是一个能够脱离VB窗口运行的可执行文件。如果你程序都没写好，怎么能当屏保？

先编成xxx.EXE程序，然后改成xxx.SCR后缀名，放到c:\windows\system32\文件夹下面，然后在windows的屏幕保护里面就可以看到你的那个文件了。你的怎么不行，我用系统的cmd.exe都能当屏保。

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

Const MaxSize As Long = 5

Const MaxSpeed As Long = 25

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

Unload Me

End Sub

Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single)

' 判断鼠标是否移动

Static currentX， currentY As Single

Dim orignX， orignY As Single

orignX = X

orignY = Y

If currentX = 0 And currentY = 0 Then

currentX = orignX

currentY = orignY

Exit Sub

End If

If Abs(orignX - currentX)>1 Or Abs(orignY - currentY)>1 Then

X = ShowCursor(True)

End

End If

End Sub

Private Sub Form_Load()'窗体载入

Dim I As Long

Randomize

' 产生100个小星星

For I = LBound(Stars) To UBound(Stars)

Stars(I).X = Me.ScaleWidth * Rnd + 1

Stars(I).Y = Me.ScaleHeight * Rnd + 1

Stars(I).Size = MaxSize * Rnd + 1

Stars(I).Speed = MaxSpeed * Rnd + 1

Stars(I).Color = RGB(Rnd * 255 + 1， Rnd * 255 + 1， Rnd * 255 + 1)

Next I

End Sub

Private Sub Timer1_Timer()

Dim I As Long

' 清屏

BitBlt Me.hdc， 0， 0， Me.ScaleWidth， Me.ScaleHeight， 0， 0， 0， vbBlackness

For I = 0 To UBound(Stars)

' 移动小星星

Stars(I).Y = (Stars(I).Y Mod Me.ScaleHeight) + Stars(I).Speed

' 重定位X位置

If Stars(I).Y >Me.ScaleHeight Then

Stars(I).X = Me.ScaleWidth * Rnd + 1

Stars(I).Speed = MaxSpeed * Rnd + 1

End If

' 设置小星星颜色

Me.FillColor = Stars(I).Color

Me.ForeColor = Stars(I).Color

' 绘制小星星颜色

Ellipse Me.hdc， Stars(I).X， Stars(I).Y， Stars(I).X + Stars(I).Size， Stars(I).Y + Stars(I).Size

Next I

Me.Refresh

End Sub

在Windows XP中制作屏保

在Windows XP中增加了许多个性化设置，就说它的屏保吧，也不再像Win9x那样死板，利用Windows XP的屏保程序我们可以自己制作个性化的屏保，不信请跟我来。

1、确保在您的计算机的一个文件夹中有两张或更多的图片。您可以从数码相机或扫描仪上传图片，或者从Internet上下载自己喜欢的图片。把欲作为屏保的图片保存在同一个文件夹中，比如将它们存放在“我的文档”中的“图片收藏夹”文件夹中。

2、在桌面上点击鼠标右键，在d出的快捷菜单中选择“属性”，打开“显示”属性对话框，然后选择“屏幕保护程序”标签，在“屏幕保护程序”下拉框中选择“图片收藏幻灯片”，点击“设置”按钮，进入“图片收藏屏幕保护程序选项”对话框。

3、在“图片收藏屏幕保护程序选项”中，点击“浏览”按钮，找到“我的文档”中的“图片收藏夹”文件夹，点击“确定”按钮。

4、接下来我们开始设置显示效果，拖动“更换图片的频率”下的滑块以设置屏幕上转换图片的快慢，可选择的时间范围在6～180秒之间；拖动“图片的尺寸”下的滑块，可以设置图片占用屏幕空间的百分比，最小为25%，最大为全屏；选中“拉伸尺寸小的图片”复选框，则可以使得较小的图片占用更多的屏幕空间，但有时会出现图片失真现象；选中“显示文件名”复选框，则在图片的左上角同时标明文件的路径和名称；选中“图片间使用过渡效果”复选框，则在更换图片时使用动画效果或稍有停顿；选中“允许使用键盘滚动图片”复选框，则屏幕保护处于启动状态时，可以使用方向键“←”、“→”或“↓”来快速查看图片，而不撤消屏幕保护状态。

5、设置好之后，点击“确定”按钮，退出设置窗口。你可以马上点击“预览”按钮察看一下效果。怎么样，还比较满意吧

---