frmabout.frm

图书管理系统需求规格说明书.doc

VERSION 5.00
Begin VB.Form frmAbout 
   BackColor       =   &H00E0E0E0&
   Caption         =   "关于"
   ClientHeight    =   5385
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7395
   LinkTopic       =   "Form1"
   ScaleHeight     =   5385
   ScaleWidth      =   7395
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00E0E0E0&
      Height          =   3015
      Left            =   840
      ScaleHeight     =   2955
      ScaleWidth      =   5595
      TabIndex        =   1
      Top             =   1320
      Width           =   5655
      Begin VB.Label Label3 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   "         胡斌  汤赟峰"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   495
         Left            =   480
         TabIndex        =   4
         Top             =   1440
         Width           =   5535
      End
      Begin VB.Label Label2 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   "团队成员：王硕  陈磊"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   495
         Left            =   360
         TabIndex        =   3
         Top             =   960
         Width           =   5535
      End
      Begin VB.Label Label1 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   "程序设计: 计算机一班101组"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   495
         Left            =   360
         TabIndex        =   2
         Top             =   360
         Width           =   5055
      End
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   5520
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   4800
      Width           =   1335
   End
   Begin VB.Label lblvote 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H00E0E0E0&
      Caption         =   "中国地质大学图书馆管理系统"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   300
      Left            =   1560
      TabIndex        =   5
      Top             =   600
      Width           =   4125
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "User32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Const F_DIA As Integer = 7000

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Activate()
    Call popup
End Sub

Private Sub Form_Load()
    '在屏幕中央显示窗口
    Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    Me.Top = Screen.Height - 1400
    Picture1.Visible = False
    Call frmNewsBar.Show
End Sub
  Private Sub popup()
    Picture1.Visible = True
    Dim i As Integer
    i = Me.Height
    Me.Height = 0
    While Me.Height < i
        Me.Height = Me.Height + 50
        Me.Top = Me.Top - 50
        DoEvents
    Wend
End Sub

Private Sub popdown()
    i = Me.Height
    While Me.Height > 0
        Me.Height = Me.Height - 50
        Me.Top = Me.Top + 50
        DoEvents
    Wend
End Sub