aboutct.frm

一套比较齐全的企业人事考勤系统~~有源代码

VERSION 5.00
Begin VB.Form Aboutct 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "管理系统 1.0"
   ClientHeight    =   4350
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4425
   Icon            =   "Aboutct.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4350
   ScaleWidth      =   4425
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "确 定"
      Height          =   375
      Left            =   3120
      TabIndex        =   5
      Top             =   3480
      Width           =   975
   End
   Begin VB.Timer Timer3 
      Left            =   3120
      Top             =   0
   End
   Begin VB.Timer Timer2 
      Interval        =   1
      Left            =   3480
      Top             =   0
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00C0FFC0&
      Height          =   2055
      Left            =   360
      ScaleHeight     =   1995
      ScaleWidth      =   3915
      TabIndex        =   0
      Top             =   960
      Width           =   3975
      Begin VB.TextBox Text1 
         Alignment       =   2  'Center
         BackColor       =   &H00C0FFC0&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF00FF&
         Height          =   1455
         Left            =   -120
         MultiLine       =   -1  'True
         TabIndex        =   1
         Text            =   "Aboutct.frx":08CA
         Top             =   360
         Width           =   3975
      End
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   3840
      Top             =   0
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "版权所有(c)2000-     楼君伟"
      Height          =   180
      Left            =   960
      TabIndex        =   7
      Top             =   720
      Width           =   2430
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "管理系统 1.0"
      Height          =   180
      Left            =   960
      TabIndex        =   6
      Top             =   360
      Width           =   1080
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   360
      Picture         =   "Aboutct.frx":0906
      Top             =   360
      Width           =   480
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "QQ:13453636"
      Height          =   180
      Left            =   240
      TabIndex        =   4
      Top             =   3720
      Width           =   990
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "E-mail:[e-mail]"
      Height          =   180
      Left            =   240
      TabIndex        =   3
      Top             =   3960
      Width           =   2250
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "联系方式："
      Height          =   180
      Left            =   240
      TabIndex        =   2
      Top             =   3480
      Width           =   900
   End
   Begin VB.Line Line1 
      DrawMode        =   1  'Blackness
      X1              =   480
      X2              =   4080
      Y1              =   3360
      Y2              =   3360
   End
End
Attribute VB_Name = "Aboutct"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Backyc.Show
Picture1.Height = 1
Picture1.Width = 1
Picture1.Top = Me.ScaleHeight / 2 - Picture1.ScaleHeight / 2
Picture1.Left = Me.ScaleWidth / 2 - Picture1.ScaleWidth / 2
Text1.Visible = False
Timer1.Interval = 1
Timer2.Interval = 1
Timer3.Interval = 0
End Sub
Private Sub Form_Resize()
If WindowState <> 0 Then
Timer1.Interval = 0
Timer3.Interval = 0
Else
Timer1.Interval = 1
Timer3.Interval = 100
End If
If Picture1.Height > 2000 Then
Timer2.Interval = 0
Else
Timer2.Interval = 1
End If
Picture1.Top = Me.ScaleHeight / 2 - Picture1.ScaleHeight / 2 - 200
Picture1.Left = Me.ScaleWidth / 2 - Picture1.ScaleWidth / 2 - 60
End Sub
Private Sub Form_Unload(Cancel As Integer)
Command1_Click
End Sub
Private Sub Command1_Click()
Unload Backyc
Unload Me
End
End Sub

Private Sub Timer1_Timer()
Backyc.Left = Me.Left + 150
Backyc.Top = Me.Top + 180
Backyc.Height = Height
Backyc.Width = Width
End Sub
Private Sub Timer2_Timer()
Picture1.Height = Picture1.Height + 15
Picture1.Width = Picture1.Width + 27
If Picture1.Height > 2000 Then
Timer2.Interval = 0
Timer3.Interval = 100
Text1.Visible = True
Text1.Top = Picture1.Height
End If
Picture1.Top = Me.ScaleHeight / 2 - Picture1.ScaleHeight / 2 - 200
Picture1.Left = Me.ScaleWidth / 2 - Picture1.ScaleWidth / 2 - 60
End Sub
Private Sub Timer3_Timer()
Text1.Top = Text1.Top - 50
If Text1.Top < -1000 Then Text1.Top = Picture1.Height
End Sub