form1.frm

在多媒体软件中

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "电影胶片特效"
   ClientHeight    =   1530
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5370
   LinkTopic       =   "Form1"
   ScaleHeight     =   1530
   ScaleWidth      =   5370
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer2 
      Left            =   150
      Top             =   2475
   End
   Begin VB.PictureBox Picture1 
      Height          =   1560
      Index           =   3
      Left            =   1755
      Picture         =   "Form1.frx":0000
      ScaleHeight     =   1500
      ScaleWidth      =   1800
      TabIndex        =   3
      Top             =   1755
      Width           =   1860
   End
   Begin VB.PictureBox Picture1 
      Height          =   1560
      Index           =   2
      Left            =   3675
      Picture         =   "Form1.frx":44B4
      ScaleHeight     =   1500
      ScaleWidth      =   1800
      TabIndex        =   2
      Top             =   0
      Width           =   1860
   End
   Begin VB.PictureBox Picture1 
      Height          =   1560
      Index           =   1
      Left            =   1830
      Picture         =   "Form1.frx":8968
      ScaleHeight     =   1500
      ScaleWidth      =   1800
      TabIndex        =   1
      Top             =   0
      Width           =   1860
   End
   Begin VB.PictureBox Picture1 
      Height          =   1560
      Index           =   0
      Left            =   -15
      Picture         =   "Form1.frx":CE1C
      ScaleHeight     =   1500
      ScaleWidth      =   1800
      TabIndex        =   0
      Top             =   0
      Width           =   1860
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Left            =   795
      Top             =   1755
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x As Integer
Private Sub Form_Load()
    Picture1(0).Left = 0
    Picture1(1).Left = Picture1(0).Width
    Picture1(2).Left = Picture1(0).Width + Picture1(0).Width
    Picture1(3).Left = -Picture1(3).Width
    Picture1(3).Top = Picture1(0).Top
    x = 10
    Timer1.Enabled = False
    Timer1.Interval = 10
    Timer2.Interval = 60
End Sub
Private Sub Timer1_Timer()
   For i = 0 To 3
     Picture1(i).Left = Picture1(i).Left + x
       If Picture1(i).Left >= Form1.ScaleWidth Then
          Picture1(i).Left = -Picture1(i).Width
       End If
   Next i
End Sub
Private Sub Timer2_Timer()
    For i = 0 To 3
    Dim k As Integer
    k = Int(1 + 11 * Rnd(10))
    Picture1(i).Picture = LoadPicture(App.Path & "\图片\" & k & ".jpg")
    Next i
    Timer1.Enabled = True
End Sub