form2.frm

解压后可以在vb中运行

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   5370
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7185
   LinkTopic       =   "Form2"
   Picture         =   "Form2.frx":0000
   ScaleHeight     =   5370
   ScaleWidth      =   7185
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   80
      Left            =   5640
      Top             =   1440
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "LZ 78 编码"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   2160
      TabIndex        =   2
      Top             =   960
      Width           =   2415
   End
   Begin VB.Image ImgPic 
      Appearance      =   0  'Flat
      Height          =   1200
      Index           =   3
      Left            =   4800
      Picture         =   "Form2.frx":7E942
      Top             =   2400
      Visible         =   0   'False
      Width           =   1200
   End
   Begin VB.Image ImgPic 
      Height          =   1200
      Index           =   2
      Left            =   2640
      Picture         =   "Form2.frx":7F258
      Top             =   3840
      Visible         =   0   'False
      Width           =   1200
   End
   Begin VB.Image ImgPic 
      Height          =   1200
      Index           =   1
      Left            =   1440
      Picture         =   "Form2.frx":7FB44
      Top             =   3000
      Visible         =   0   'False
      Width           =   1200
   End
   Begin VB.Image ImgPic 
      Height          =   1200
      Index           =   0
      Left            =   840
      Picture         =   "Form2.frx":80412
      Top             =   1800
      Visible         =   0   'False
      Width           =   1200
   End
   Begin VB.Image ImgWork 
      Height          =   1200
      Left            =   3000
      Picture         =   "Form2.frx":80C4C
      Top             =   480
      Width           =   1200
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "点击进入"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   4920
      TabIndex        =   1
      Top             =   3840
      Width           =   1335
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "作者:朱飞"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   4200
      TabIndex        =   0
      Top             =   4440
      Width           =   1935
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Image1_Click()

End Sub

Private Sub Label2_Click()
Form2.Hide
Form1.Show
End Sub

Private Sub Timer1_Timer()
    Static Forward, Down As Boolean, num As Integer
    Dim NewLeft, NewTop As Long
    If (((ImgWork.Left + ImgWork.Width) > Form2.ScaleWidth) And Forward) Or ((ImgWork.Left < 0) And Not Forward) Then
       Forward = Not Forward
    End If
    If Forward Then
       NewLeft = ImgWork.Left + 10
    Else
       NewLeft = ImgWork.Left - 10
    End If
    If (((ImgWork.Top + ImgWork.Height) > Form2.ScaleHeight) And Down) Or ((ImgWork.Top < 0) And Not Down) Then
       Down = Not Down
    End If
    If Down Then
       NewTop = ImgWork.Top + 7
    Else
       NewTop = ImgWork.Top - 7
    End If
    '------
    ImgWork.Move NewLeft, NewTop
    If num > 3 Then num = 0
    ImgWork.Picture = ImgPic(num).Picture
    num = num + 1
End Sub