基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保（完整原程序）[4]

p.line (wid1 - 800, hei - 500)-(wid1 + 800, hei), color1, bf
p.circle (wid1, hei - 1500 - pos1), 1000, -color1, , , 1
case 21  '三维空间
wid1 = wid / 2: hei1 = hei / 2
if pos1 < wid1 then pos1 = pos1 + (wid1 / 200): pos2 = pos2 + (hei1 / 200) else pos1 = 1: pos2 = 1
p.line (wid1 - pos1, hei1 - pos2)-(wid1 + pos1, hei1 - pos2), color1
p.line -(wid1 + pos1, hei1 + pos2), color1
p.line -(wid1 - pos1, hei1 + pos2), color1
p.line -(wid1 - pos1, hei1 - pos2), color1
case 22  '数据阵列
if pos2 >= (rectmax / 2) then pos2 = 0: p.cls: rectmax = round(rnd * 30) + 1
rnd1 = wid / rectmax: rnd2 = hei / (rectmax / 2)
if pos1 <= rectmax then pos1 = pos1 + 1 else pos1 = 0: pos2 = pos2 + 1
p.line (rnd1 - rnd1 * pos1, rnd2 * pos2)-(rnd1 * pos1, rnd2 * pos2 + rnd2), color1, b
case 23  '现代言论
str1 = "命运像宇宙星体的运行一般，是那么的有形无型，灵魂经过许多次的剧烈幢击后，已经是伤痕累累，" & _
"虽然剥去了耀眼的美丽，但却显的那样的脱俗那样的勇敢，它在也不会轻易的流泪|欲望的深渊只有用利益去" & _
"填补，就像饥饿的身体只有食物来满足一样，它实在太可怕也太具诱惑了，没有人是你真正的亲人哪、世上" & _
"根本没有无私的存在、没有真情、没有真爱，总之一切的美都是虚伪的只有欲望是真实的，只有风是你真正的" & _
"亲人，只有阳光是真正无私的。。"
if 100 * rnd > 20 then exit sub
p.forecolor = color1
if pos1 < len(str1) then pos1 = pos1 + 1: pos2 = pos2 + 1 else pos1 = 1: hang = 1: pos2 = 1: p.cls
txt1 = mid(str1, pos1, 1)
if txt1 = "，" or txt1 = "、" then
pos2 = 0: hang = hang + 1
elseif txt1 = "|" then
pos2 = 0: hang = 1: p.cls
else
p.currentx = p.font.size * 20 * pos2: p.currenty = p.font.size * 20 * hang
p.print txt1
end if
case 24  '旋转光环
if pos1 > hei / 10 then lihe = false
if pos1 < 20 then lihe = true
if lihe = true then
pos1 = pos1 + 10: col1 = color1: col2 = -color1
else
pos1 = pos1 - 10: col1 = -color1: col2 = color1
end if
p.cls: wid1 = wid / 2: hei1 = hei / 2
temp1 = hei / 3 - pos1
p.circle (wid1, hei1 - (temp1 / 3) + (pos1 * 3.5)), temp1, col1, , , pos1 / (hei / 10)
p.circle (wid1, hei1 + (temp1 / 3) - (pos1 * 3.5)), temp1, col2, , , pos1 / (hei / 10)
case 25  '密集电网
if pos1 < hei then pos1 = pos1 + 20 else pos1 = 1
p.line (0, hei - pos1)-(wid, hei), color1
p.line (0, 0)-(wid, pos1), color1
p.line (0, hei)-(wid, hei - pos1), color1
p.line (wid, 0)-(0, pos1), color1
case 26  '滚动台词
str1 = "鱼儿失去了池塘，蚊虫困在了蛛网，抹不去的痕迹逃不掉的结局，无力的挣扎绝望的将近，虽然“静”" & _
"给我指引了迷途，让我勇敢的走下去，但内心实在太空虚太劳累，一次一次的痛强忍过后，灵魂的创伤却无法" & _
"愈合|我曾选择过睡觉、玩游戏逃避所有的痛，但却不忘告戒自己“最后一次”，不知多少次的“最后一次”，" & _
"逃避之后更难以忍受自己所做的行为，自责甚至骂自己是懦夫是邪恶的战俘，但具诱惑的解脱堕落最终我没有" & _
"去尝试，最中我还是选择了继续的压抑和勇敢的走下去，这种选择希望是属于每个人的"
if pos1 < hei + (p.fontsize * 20 * pos2) then pos1 = pos1 + 10 else pos1 = 1: pos2 = 0
p.cls: p.forecolor = color1
if pos2 = 0 then        '计算逗号个数,为了增加滚动时限
i = 1
while instr(i, str1, "，") <> 0
temp1 = instr(i, str1, "，")
pos2 = pos2 + 1: i = temp1 + 1
wend
end if
p.currenty = hei - pos1: p.print replace(replace(str1, "，", vbcrlf), "|", vbcrlf & vbcrlf)
case 27  '夜空流星
p.cls
if ubound(xx) < 200 then
temp1 = ubound(xx) + 1: redim preserve xx(temp1): redim preserve yy(temp1)
redim preserve jiax(temp1): redim preserve jiay(temp1)
xx(temp1) = wid * rnd: yy(temp1) = hei * rnd
end if
for i = 0 to ubound(yy)
if yy(i) > hei + 500 then yy(i) = 0
if xx(i) < -500 then xx(i) = wid * rnd + hei
yy(i) = yy(i) + 30: xx(i) = xx(i) - 30
p.line (xx(i), yy(i))-(xx(i) + 500, yy(i) - 500), color1
next
case 28  '随机变形
if 100 * rnd < 80 then exit sub
wid1 = wid / 2: hei1 = hei / 2: rnd1 = round(rnd * 3) + 1: p.cls
for i = 0 to rnd1
if i = 0 then
p.line (wid1 - 500, hei1 - 500)-(wid1 + 500, hei1 - 500), color1
elseif i = rnd1 then
p.line -(wid1 + 500, hei1 + 500), color1
p.line -(wid1 - 500, hei1 + 500), color1: p.line -(wid1 - 500, hei1 - 500), color1
else
p.line -(wid * rnd, hei * rnd), color1
end if
next
case 29  '天狼啄月
wid1 = wid / 2: hei1 = hei / 2
if pos1 = 0 then
p.cls
for i = 1 to 20
p.circle (wid1, hei1), hei1 / 1.5 - (i * (hei1 / 32)), color1
next
end if
if pos1 > wid1 / 2 then pos1 = 0 else pos1 = pos1 + 20
p.circle (wid1 - (hei1 / 1.7), hei - (hei1 / 1.7)), pos1, p.backcolor
case 30  '旋转光线
pos1 = pos1 + 5: wid1 = wid / 2: p.cls
if pos2 >= wid1 then pos1 = 0: pos2 = 0
if pos1 mod 600 = 0 then
lihe = false
elseif pos1 mod 300 = 0 then
lihe = true
end if
if lihe = false then pos2 = pos2 + ((pos1 / 250) * 10) else pos2 = pos2 - ((pos1 / 250) * 10)
p.line (wid1 - pos2, 0)-(wid1 - pos2, hei), color1
p.line (wid1 + pos2, 0)-(wid1 + pos2, hei), -color1
case 31  '光之轨迹
if xx(0) < 500 then jiax(0) = true
if yy(0) < 500 then jiay(0) = true
if wid - xx(0) < 500 then jiax(0) = false
if hei - yy(0) < 500 then jiay(0) = false
if jiax(i) = true then xx(0) = xx(0) + 500 else xx(0) = xx(0) - 500