www.pudn.com > chap07.rar > frmAbout.frm

VERSION 5.00 
Begin VB.Form frmAbout  
   Appearance      =   0  'Flat 
   BackColor       =   &H80000005& 
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "关于" 
   ClientHeight    =   4725 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   6450 
   Icon            =   "frmAbout.frx":0000 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   4725 
   ScaleWidth      =   6450 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  '屏幕中心 
   Visible         =   0   'False 
   Begin VB.PictureBox Picture1  
      AutoRedraw      =   -1  'True 
      AutoSize        =   -1  'True 
      Height          =   4725 
      Left            =   -15 
      Picture         =   "frmAbout.frx":000C 
      ScaleHeight     =   4665 
      ScaleWidth      =   6390 
      TabIndex        =   0 
      Top             =   0 
      Width           =   6450 
      Begin VB.Label lblTitleColor  
         Alignment       =   2  'Center 
         BackStyle       =   0  'Transparent 
         Caption         =   "机动车驾驶员考试系统" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   24 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   -1  'True 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C0C0FF& 
         Height          =   555 
         Left            =   195 
         TabIndex        =   2 
         Top             =   1920 
         Width           =   6105 
      End 
      Begin VB.Label Label6  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "浙江大学*******有限公司" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C0C0C0& 
         Height          =   240 
         Left            =   90 
         TabIndex        =   6 
         Top             =   45 
         Width           =   2760 
      End 
      Begin VB.Label Label1  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "Copyright(C) 2002" 
         ForeColor       =   &H00FF0000& 
         Height          =   180 
         Left            =   90 
         TabIndex        =   5 
         Top             =   3840 
         Width           =   1530 
      End 
      Begin VB.Label Label2  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "版权所有 侵权必究" 
         ForeColor       =   &H00FF0000& 
         Height          =   180 
         Left            =   90 
         TabIndex        =   4 
         Top             =   4095 
         Width           =   1530 
      End 
      Begin VB.Label Label5  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "浙江大学*******有限公司" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   240 
         Left            =   75 
         TabIndex        =   1 
         Top             =   60 
         Width           =   2760 
      End 
      Begin VB.Label lblTitleGray  
         Alignment       =   2  'Center 
         BackStyle       =   0  'Transparent 
         Caption         =   "机动车驾驶员考试系统" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   24 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   -1  'True 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   555 
         Left            =   180 
         TabIndex        =   3 
         Top             =   1890 
         Width           =   6105 
      End 
   End 
End 
Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Form_Load() 
    Me.Caption = "关于 " & GS_SYSTEMTITLE 
    lblTitleColor.Caption = GS_SYSTEMTITLE 
    lblTitleGray.Caption = GS_SYSTEMTITLE 
     
    'set the TOPMOST 
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE 
End Sub 
 
Private Sub Picture1_Click() 
    Unload Me 
End Sub