form1.frm

屏保爱迪生飞屏保爱迪生飞屏保爱迪生飞屏保爱迪生飞屏保爱迪生飞

        p.Line -(wid1, hei1 - pos1), color1
        Case 12  '天地之吻
        If pos1 * 2 > hei Then lihe = False
        If pos1 < 25 Then lihe = True
        If lihe = False Then pos1 = pos1 - 20 Else pos1 = pos1 + 20
        p.Line (0, 0 + pos1)-(wid, 0 + pos1), color1
        p.Line (wid, hei - pos1)-(0, hei - pos1), color1
        Case 13  '堕落天使
        If pos1 < hei Then pos1 = pos1 + 5 Else pos1 = 0
        rnd1 = wid * Rnd
        p.Line (rnd1, pos1)-(rnd1, pos1 + (500 * Rnd)), color1
        p.Line (0, pos1 - 800)-(wid, pos1 - 800), p.BackColor
        Case 14  '地狱之火
        If pos1 < hei Then pos1 = pos1 + 7 Else pos1 = 0
        wid1 = wid / 2
        If pos1 > hei / 2 Then    '绘制火山
            pos2 = pos1
        Else
            p.Line (wid1 - 800, hei)-(wid1, hei - 500), color1
            p.Line -(wid1 + 800, hei), color1
        End If
        pos2 = pos2 + 1
        p.PSet (wid1 + (pos2 * (Rnd - 0.5)), hei - 500 - (pos2 * (Rnd + 0.4))), color1
        p.PSet (wid1 + (pos1 * (Rnd - 0.5)), hei - 500 - (pos1 * (Rnd + 0.4))), color1
        Case 15  '流金岁月
        If pos1 > -hei Then pos1 = pos1 - 5 Else pos1 = 0
        rnd1 = wid * Rnd
        rnd2 = hei * Rnd
        p.Line (rnd1, hei + pos1)-(rnd1, hei + pos1 - (Rnd * 500)), color1
        p.Line (rnd1, rnd2)-(rnd1, rnd2 + (Rnd * 500)), p.BackColor
        Case 16  '光环之舞
        If pos1 < 300 Then pos1 = pos1 + 15 Else pos1 = 0: If pos2 < 299 Then pos2 = 300
        wid1 = wid / 2
        hei1 = hei / 2
        p.Line (pos1, pos1)-(wid - pos1, hei - pos1), color1, B
        If pos2 < 299 Then
            p.Circle (wid1, hei1), pos1, color1, , , 1
        Else
            pos2 = pos2 + 15
            If pos2 > hei Then pos2 = 0: pos1 = 0: p.Cls
            p.Circle (wid1, hei1), pos2, color1, , , 1
        End If
        Case 17  '成长衰亡
        wid1 = wid / 2
        hei1 = hei / 2
        If pos1 > hei1 Then lihe = False
        If pos1 < 10 Then lihe = True
        If lihe = False Then
            p.Circle (wid1, hei1), pos1, p.BackColor
            pos1 = pos1 - 10
        Else
            pos1 = pos1 + 10
            p.Circle (wid1, hei1), pos1, color1, , , Abs(Rnd + 0.5)
        End If
        Case 18  '光之冲撞
        wid1 = wid / 2
        hei1 = hei / 2
        rnd1 = Rnd * 200
        If pos1 < wid Then pos1 = pos1 + 20 Else p.Cls: pos1 = 0: pos2 = 0
        If rnd1 < 100 Then rnd1 = -(rnd1 - 50) Else rnd1 = rnd1 - 50
        p.Line (pos1, hei1 + rnd1)-(pos1 + 100, hei1 + rnd1), color1
        p.Line (wid - pos1, hei1 + rnd1)-(wid - pos1 - 100, hei1 + rnd1), -color1
        If pos1 > wid / 2 Then pos2 = pos2 + 20: p.Circle (wid1, hei1), pos2, color1, , , Rnd
        Case 19  '生命繁衍
        p.Cls
        pos1 = pos1 + 1
        If pos1 Mod 50 = 0 And UBound(xx) < 500 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(xx)
            If hei - yy(i) < 150 Then jiaY(i) = False
            If wid - xx(i) < 150 Then jiaX(i) = False
            If yy(i) < 150 Then jiaY(i) = True
            If xx(i) < 150 Then jiaX(i) = True
            If jiaY(i) = True Then yy(i) = yy(i) + 50 Else yy(i) = yy(i) - 50
            If jiaX(i) = True Then xx(i) = xx(i) + 50 Else xx(i) = xx(i) - 50
            p.Circle (xx(i), yy(i)), 200, color1
        Next
        Case 20  '起起落落
        If pos1 < 20 Then lihe = True
        If pos1 > hei - 2500 Then lihe = False
        If lihe = False Then pos1 = pos1 - 30 Else pos1 = pos1 + 30
        p.Cls
        wid1 = wid / 2
        hei1 = hei / 2
        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
        If jiaY(i) = True Then yy(0) = yy(0) + 500 Else yy(0) = yy(0) - 500
        If lihe = False Then
            p.Line (xx(0), yy(0))-(xx(0), yy(0)), color1
            lihe = True
        Else
            p.Line -(xx(0), yy(0)), color1
        End If
        Case 32  '旋转回忆
        If InStr(App.Path, "\") = Len(App.Path) Then path1 = App.Path Else path1 = App.Path & "\"
        str1 = path1 & "甩哥.jpg"
        Set pic1 = LoadPicture(str1)
        p.Cls
        wid1 = wid / 2
        hei1 = hei / 2
        If pos1 < wid Then pos1 = pos1 + 10 Else pos1 = 0
        If pos1 Mod 4000 = 0 Then
            lihe = False
        ElseIf pos1 Mod 2000 = 0 Then
            lihe = True
        End If
        If lihe = True Then
            pos2 = pos2 - 30
            If pos2 < 40 Then lihe = False
        Else
            pos2 = pos2 + 30
        End If
        p.PaintPicture pic1, pos1, hei1 - (pic1.Height / 4), pos2
        p.PaintPicture pic1, wid1 - (pic1.Width / 4), pos1 / 2, , (pos2 / 2)
        p.PaintPicture pic1, wid - pos1, hei1 - (pic1.Height / 4), -pos2
        p.PaintPicture pic1, wid1 - (pic1.Width / 4), hei - (pos1 / 2), , -(pos2 / 2)
        Case 33  '阿基米一
        wid1 = wid / 2
        hei1 = hei / 2

        If pos2 = 0 Then pos2 = Round(Rnd * 8) + 1
        If pos1 < wid1 - (wid1 - hei1) Then pos1 = pos1 + 30 Else pos1 = 1: pos2 = 0: p.Cls: Exit Sub
        For i = 0 To pos1 Step pos2
            i = i + pos2
            p.PSet (i * Cos(i) + wid1, i * Sin(i) + hei1), color1
        Next
        Case 34  '阿基米二
        wid1 = wid / 2
        hei1 = hei / 2

        If pos1 < wid1 Then pos1 = pos1 + 10 Else pos1 = 1: pos2 = 0: p.Cls: Exit Sub
        p.Line (wid1, hei1)-(pos1 * Cos(pos1) + wid1, pos1 * Sin(pos1) + hei1), color1
        Case 35  '阿基米三
        wid1 = wid / 2
        hei1 = hei / 2
        If pos1 < wid1 Then pos1 = pos1 + 10 Else pos1 = 20: p.Cls: Exit Sub
        p.Circle (wid1, hei1), pos1, color1
        p.Line (wid1, hei1)-(pos1 * Cos(pos1) + wid1, pos1 * Sin(pos1) + hei1), -color1, BF
        Case 36  '声波探测
        hei1 = hei / 2
        If Rnd * 100 < 20 Then rnd1 = Rnd * hei1
        If pos1 < wid Then pos1 = pos1 + 50 Else pos1 = 50: p.Cls
        If pos1 = 50 Then
            p.Line (pos1, rnd1 * Cos(rnd1) + hei1)-(pos1 + 50, rnd1 * Sin(rnd1) + hei1), color1
        Else
            p.Line -(pos1, rnd1 * Cos(rnd1) + hei1), color1
        End If
        Case 37  '光辉四射
        wid1 = wid / 2
        hei1 = hei / 2
        rnd1 = Rnd * wid1
        rnd2 = hei1 / 5
        If pos1 < wid1 Then pos1 = pos1 + (Rnd * 10) Else pos1 = 0
        p.Line (rnd1 * Cos(pos1) + wid1, rnd1 * Sin(pos1) + hei1)-((Cos(pos1) * rnd2) + wid1, (Sin(pos1) * rnd2) + hei1), color1
        p.FillColor = color1
        p.Circle (wid1, hei1), rnd2, color1
        Case 38  '网状距阵
        If pos1 < wid Then pos1 = pos1 + 10 Else pos1 = 0: p.Cls
        color2 = 0
        If pos1 = 0 Then
            pos2 = Round(Rnd * 7)
            pos3 = color1
        ElseIf pos1 Mod 100 = 0 Then
            pos2 = Round(Rnd * 7)
            pos3 = color1
            p.Cls
        End If
        While pos2 = 0
            pos2 = Round(Rnd * 7)
        Wend
        p.FillStyle = pos2
        p.FillColor = pos3
        p.Line (0, 0)-(wid, hei), pos3, B
        Case 39  '圆形光线
        wid1 = wid / 2
        hei1 = hei / 2
        If pos1 < wid1 Then pos1 = pos1 + 10 Else pos1 = 10: p.Cls
        If pos1 = 10 Then
            p.Line (wid1, hei1)-(wid1, hei1), color1
        Else
            p.Line -(pos1 * Sin(pos1) + wid1, pos1 * Cos(pos1) + hei1), color1
        End If
    End Select
End Sub