文件名称：让整个屏幕雪花飘飘.rar
文件大小：11KB
文件格式：RAR
更新时间：2022-09-19 15:22:41
屏幕雪飘 VB屏保程序例子 屏幕保护程序
V = 18 '修改此数字，可改变雪花整体飘荡的速度 Randomize '初始化随机发生器 ' WinInTop Me.hWnd, True '使雪花（窗口）显示在最前，包括显示到任务栏上面 ' WinInTop Form2.hWnd, True Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), Me.BackColor, BF For I = 1 To ctSnowS ctSnow(I).X = ctSnow(I).X + ctSnow(I).xV * V ctSnow(I).Y = ctSnow(I).Y + ctSnow(I).yV * V If Rnd * 20 < 1 Then ctSnow(I).xV = Rnd - 0.5 '改变水平移动速度，模拟随风飘荡
【文件预览】：
Form1.frm
工程1.vbp
MSSCCPRJ.SCC
Form2.frm
工程1.vbw
屏幕雪花飘飘.scr