welcome.frm

来自「独一无二的数据库编程例程」· FRM 代码 · 共 69 行

VERSION 5.00
Begin VB.Form Welcome 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   2100
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2820
   LinkTopic       =   "Form1"
   ScaleHeight     =   2100
   ScaleWidth      =   2820
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   720
      Top             =   1440
   End
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   2115
      Index           =   0
      Left            =   0
      Picture         =   "Welcome.frx":0000
      ScaleHeight     =   2115
      ScaleWidth      =   2820
      TabIndex        =   0
      Top             =   0
      Width           =   2820
   End
End
Attribute VB_Name = "Welcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Form_Load()
For i = 1 To 2
Load Picture1(i)
Picture1(i).Picture = LoadPicture(App.Path & "\welcome\" & Trim(Str(i + 1)) & ".jpg")
Picture1(i).Top = 0
Picture1(i).Left = Picture1(0).ScaleWidth
Picture1(i).ZOrder 0
Picture1(i).Visible = True
Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
MainForm.LoadData
Sleep 1000
MainForm.Show
End Sub

Private Sub Timer1_Timer()
Picture1(x).Left = Picture1(x).Left - 150
If Picture1(x).Left <= 0 Then
If x = 2 Then
Unload Me
Else
x = x + 1
End If
End If
End Sub