起始页.frm

钢筋混凝土框架结构设计计算源程序

VERSION 5.00
Begin VB.Form frmSplash 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   6690
   ClientLeft      =   2160
   ClientTop       =   2775
   ClientWidth     =   5175
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "起始页.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "起始页.frx":030A
   ScaleHeight     =   6690
   ScaleWidth      =   5175
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   6000
      Top             =   2520
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub Form_Click()
    Unload frmSplash
    MDIForm1.Show
End Sub
Private Sub Timer1_Timer()
    Dim gointo As Integer, gotoval As Single, i As Integer
    GoTo chui
'   Timer1.Interval = 2000   ' 设置计时器时间间隔
'   Unload frmSplash
'   Form1.Show
'   Timer1.Enabled = False
chui:
    gotoval = Me.Height / 2 '动画退出效果
    For gointo = 1 To gotoval
        DoEvents
        Me.Height = Me.Height - 10
        Me.Top = Me.Top + 5
        If Me.Height <= 11 Then GoTo horiz
    Next gointo
horiz:
    Me.Height = 30
    gotoval = Me.Width / 2
    For gointo = 1 To gotoval
        DoEvents
        Me.Width = Me.Width - 10
        Me.Left = Me.Left + 5
        If Me.Width <= 11 Then End
        Next gointo
    Unload frmSplash
    MDIForm1.Show
End Sub