frmsplash.frm

通过对空间数据的分析

VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H00C0E0FF&
   Caption         =   "欢迎使用"
   ClientHeight    =   3720
   ClientLeft      =   60
   ClientTop       =   465
   ClientWidth     =   6885
   LinkTopic       =   "Form1"
   ScaleHeight     =   3720
   ScaleWidth      =   6885
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      BackColor       =   &H00C0E0FF&
      Height          =   3615
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6855
      Begin VB.Timer Timer1 
         Interval        =   100
         Left            =   240
         Top             =   2280
      End
      Begin VB.Timer Timer2 
         Interval        =   500
         Left            =   240
         Top             =   1320
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   360
         Picture         =   "frmSplash.frx":0000
         Top             =   600
         Width           =   480
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "开发人员：    任伟"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Index           =   2
         Left            =   1560
         TabIndex        =   3
         Top             =   2520
         Width           =   4095
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "开发环境：Visual Basic 6.0, TopMap"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Index           =   1
         Left            =   720
         TabIndex        =   2
         Top             =   1680
         Width           =   5535
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "降雨量分布图"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   21.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Index           =   0
         Left            =   1680
         TabIndex        =   1
         Top             =   600
         Width           =   4095
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim c2 As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
    
End Sub

Private Sub frame1_Click()
    Unload Me
    
End Sub

Private Sub Image1_Click()
     Unload Me
     
End Sub

Private Sub Label1_Click(Index As Integer)
    Unload Me
   
End Sub
Private Sub Timer1_Timer()
    Label1(0).ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
    Label1(0).Left = Label1(0).Left + 150
    If Label1(0).Left >= Frame1.Width Then Label1(0).Left = -Label1(0).Width
End Sub

Private Sub Timer2_Timer()

    c2 = c2 + 1
    Select Case c2 Mod 4
      Case 0
        Label1(0).FontName = "宋体"
      Case 1
        Label1(0).FontName = "仿宋_GB2312"
      Case 2
        Label1(0).FontName = "黑体"
      Case 3
        Label1(0).FontName = "楷体_GB2312"
    End Select
End Sub
Private Sub Form_Load()

  Dim X0 As Long
   Dim Y0 As Long
   '让窗体居中
   X0 = Screen.Width
   Y0 = Screen.Height
   X0 = (X0 - Me.Width) / 2
   Y0 = (Y0 - Me.Height) / 2
   Me.Move X0, Y0
End Sub