frmflash.frm

一个vb的mis系统

VERSION 5.00
Begin VB.Form frmflash 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "LOAD..."
   ClientHeight    =   2175
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5250
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmflash.frx":0000
   ScaleHeight     =   2175
   ScaleWidth      =   5250
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   10
      Left            =   4080
      Top             =   2640
   End
   Begin VB.Image Image1 
      Height          =   210
      Index           =   7
      Left            =   1005
      Picture         =   "frmflash.frx":25420
      Top             =   1440
      Width           =   60
   End
   Begin VB.Image Image1 
      Height          =   210
      Index           =   6
      Left            =   4095
      Picture         =   "frmflash.frx":2550C
      Top             =   1440
      Width           =   75
   End
   Begin VB.Image Image1 
      Height          =   210
      Index           =   4
      Left            =   1065
      Picture         =   "frmflash.frx":2562E
      Stretch         =   -1  'True
      Top             =   1440
      Width           =   15
   End
   Begin VB.Image Image2 
      Height          =   210
      Left            =   1080
      Picture         =   "frmflash.frx":256E2
      Stretch         =   -1  'True
      Top             =   1440
      Width           =   3015
   End
End
Attribute VB_Name = "frmflash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Me.Height = 2175
    Me.Width = 5250
End Sub

'实现原理：两边各一个小图片，中间两张图片，一张固定长度，代表白色背景，一张很窄的柱形图片，计时器每10毫秒增加柱形图的长度，并设定柱形图的状态为拉伸。当柱形图的长度等于空白背景图时跳出。
Private Sub Timer1_Timer()
    Image1(4).Width = Image1(4).Width + 600 * Int((Rnd) + 0.08)
    While Image1(4).Width > 2919
        Timer1.Enabled = False
        frmLogin.Show
        Unload Me
        Exit Sub
    Wend
End Sub