frmsplash.frm

简单时间程序,可以定时执行任务,显示当前时间到前台窗口

VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H00FF0000&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   2220
   ClientLeft      =   4785
   ClientTop       =   3525
   ClientWidth     =   3150
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2220
   ScaleWidth      =   3150
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   2820
      Top             =   1380
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00C00000&
      BorderStyle     =   0  'None
      Height          =   1950
      Left            =   195
      TabIndex        =   0
      Top             =   135
      Width           =   2760
      Begin VB.Timer Timer2 
         Interval        =   800
         Left            =   60
         Top             =   120
      End
      Begin VB.Label Label1 
         BackColor       =   &H00400000&
         BackStyle       =   0  'Transparent
         Caption         =   "    欢迎使用本程序，它可以显示当前系统运行的时间，以及当前的系统时间。"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   1425
         Left            =   240
         TabIndex        =   1
         Top             =   300
         Width           =   2325
      End
      Begin VB.Label Label2 
         BackColor       =   &H8000000D&
         Height          =   915
         Left            =   450
         TabIndex        =   2
         Top             =   570
         Width           =   1935
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim wz As Integer

Private Sub Form_Click()
 Unload Me '单击窗体退出
 主窗体.Show
 Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
 Unload Me '击任意键退出
 主窗体.Show
End Sub

Private Sub Form_Load()
Label1.Top = 1949
End Sub
Private Sub Frame1_Click()
 Unload Me
 主窗体.Show
End Sub

Private Sub Label1_Click()
 Unload Me
 主窗体.Show
End Sub

Private Sub Label2_Click()
 Unload Me
 主窗体.Show
End Sub

Private Sub Timer1_Timer()
 'label1移动程序
 wz = Label1.Top
If wz > -Label1.Height And wz < 1950 Then
  wz = wz - 15
  Label1.Top = wz
Else
 Unload Me '自动退出
 主窗体.Show
End If
End Sub

Private Sub Timer2_Timer()
Label2.BackColor = RGB(Rnd() ^ 4 * 80, Rnd() ^ 4 * 80, Rnd() ^ 4 * 80) '变色程序
frmSplash.BackColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
Frame1.BackColor = RGB(Rnd() ^ 0.5 * 100, Rnd() ^ 0.5 * 100, Rnd() ^ 3 * 100)
End Sub