屏保.frm

下载即可运行

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000007&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   10170
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15360
   DrawWidth       =   2
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   10170
   ScaleWidth      =   15360
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   1080
      Top             =   1200
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000FF&
      X1              =   3000
      X2              =   3000
      Y1              =   6600
      Y2              =   7080
   End
   Begin VB.Line Line4 
      BorderColor     =   &H000000FF&
      X1              =   14160
      X2              =   14160
      Y1              =   480
      Y2              =   2160
   End
   Begin VB.Line Line3 
      BorderColor     =   &H000000FF&
      X1              =   13080
      X2              =   13080
      Y1              =   7440
      Y2              =   9240
   End
   Begin VB.Line Line2 
      BorderColor     =   &H000000FF&
      X1              =   4920
      X2              =   4920
      Y1              =   1080
      Y2              =   1440
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim k1%, k2%, u1%, u2%, j1%, j2%, h1%, h2%, b%
Private Sub Form_KeyPress(KeyAscii As Integer)
    End
End Sub
Private Sub Form_Load()
    Line1.Visible = False
    Line2.Visible = False
    Line3.Visible = False
    Line4.Visible = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    End
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    b = b + 1
    If b = 100 Then
        End
    End If
End Sub
Private Sub Timer1_Timer()
    If k1 = 0 Then
        Line2.X1 = Line2.X1 - 80
        Line2.X2 = Line2.X2 - 80
    Else
        Line2.X1 = Line2.X1 + 80
        Line2.X2 = Line2.X2 + 80
    End If
    If Line2.X1 < 0 Then
        k1 = 1
    End If
    If Line2.X1 > 15360 Then
        k1 = 0
    End If
    If k2 = 0 Then
        Line2.Y1 = Line2.Y1 - 30
        Line2.Y2 = Line2.Y2 - 30
    Else
        Line2.Y1 = Line2.Y1 + 30
        Line2.Y2 = Line2.Y2 + 30
    End If
    If Line2.Y1 < 0 Then
        k2 = 1
    End If
    If Line2.Y2 > 11520 Then
        k2 = 0
    End If
    If u1 = 0 Then
        Line3.X1 = Line3.X1 - 10
        Line3.X2 = Line3.X2 - 10
    Else
        Line3.X1 = Line3.X1 + 10
        Line3.X2 = Line3.X2 + 10
    End If
    If Line3.X1 < 0 Then
        u1 = 1
    End If
    If Line3.X1 > 15360 Then
        u1 = 0
    End If
    If u2 = 0 Then
        Line3.Y1 = Line3.Y1 - 30
        Line3.Y2 = Line3.Y2 - 30
    Else
        Line3.Y1 = Line3.Y1 + 30
        Line3.Y2 = Line3.Y2 + 30
    End If
    If Line3.Y1 < 0 Then
        u2 = 1
    End If
    If Line3.Y2 > 11520 Then
        u2 = 0
    End If
    If j1 = 0 Then
        Line1.X1 = Line1.X1 - 40
        Line1.X2 = Line1.X2 - 40
    Else
        Line1.X1 = Line1.X1 + 40
        Line1.X2 = Line1.X2 + 40
    End If
    If Line1.X1 < 0 Then
        j1 = 1
    End If
    If Line1.X1 > 15360 Then
        j1 = 0
    End If
    If j2 = 0 Then
        Line1.Y1 = Line1.Y1 - 60
        Line1.Y2 = Line1.Y2 - 60
    Else
        Line1.Y1 = Line1.Y1 + 60
        Line1.Y2 = Line1.Y2 + 60
    End If
    If Line1.Y1 < 0 Then
        j2 = 1
    End If
    If Line1.Y2 > 11520 Then
        j2 = 0
    End If
    If h1 = 0 Then
        Line4.X1 = Line4.X1 - 50
        Line4.X2 = Line4.X2 - 50
    Else
        Line4.X1 = Line4.X1 + 40
        Line4.X2 = Line4.X2 + 40
    End If
    If Line4.X1 < 0 Then
        h1 = 1
    End If
    If Line4.X1 > 15360 Then
        h1 = 0
    End If
    If h2 = 0 Then
        Line4.Y1 = Line4.Y1 - 20
        Line4.Y2 = Line4.Y2 - 20
    Else
        Line4.Y1 = Line4.Y1 + 20
        Line4.Y2 = Line4.Y2 + 20
    End If
    If Line4.Y1 < 0 Then
        h2 = 1
    End If
    If Line4.Y2 > 11520 Then
        h2 = 0
    End If
    Cls
    For i = 0 To 10
    Line (Line1.X1, Line1.Y1 + Int(1200 * i / 8))-(Line2.X1, Line2.Y1 + Int(1200 * i / 8)), vbRed
    Line (Line2.X1, Line2.Y1 + Int(1200 * i / 8))-(Line3.X1, Line3.Y1 + Int(1200 * i / 8)), vbBlue
    Line (Line4.X1, Line4.Y1 + Int(1200 * i / 8))-(Line3.X1, Line3.Y1 + Int(1200 * i / 8)), vbYellow
    Line (Line4.X1, Line4.Y1 + Int(1200 * i / 8))-(Line1.X1, Line1.Y1 + Int(1200 * i / 8)), vbGreen
    Next i
End Sub