frmmsg.frm

小小图书管理系统是功能完善,已经可以实用于小型单位或科室的图书管理.系统界面美观,操作方便,代码带有详尽的注释,相信大家一定会喜欢

VERSION 5.00
Begin VB.Form frmMsg 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   Caption         =   "注意"
   ClientHeight    =   2130
   ClientLeft      =   6090
   ClientTop       =   4320
   ClientWidth     =   4080
   LinkTopic       =   "Form8"
   ScaleHeight     =   142
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   272
   ShowInTaskbar   =   0   'False
   Begin Project1.xp_canvas Msgbox 
      Height          =   2055
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3975
      _extentx        =   7011
      _extenty        =   3625
      caption         =   "注意"
      icon            =   "frmMsg.frx":0000
      Begin VB.TextBox Text1 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H80000013&
         BeginProperty Font 
            Name            =   "新宋体"
            Size            =   11.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   720
         TabIndex        =   2
         Top             =   720
         Width           =   3135
      End
      Begin Project1.xpcmdbutton xpcmdbutton1 
         Height          =   375
         Left            =   1680
         TabIndex        =   1
         Top             =   1440
         Width           =   1095
         _extentx        =   1931
         _extenty        =   661
         caption         =   "确定"
         font            =   "frmMsg.frx":57F4
      End
      Begin Project1.xptopbuttons xptopbuttons1 
         Height          =   315
         Left            =   3600
         Top             =   120
         Width           =   315
         _extentx        =   556
         _extenty        =   556
      End
      Begin VB.Image info 
         Height          =   480
         Left            =   120
         Picture         =   "frmMsg.frx":5820
         Top             =   720
         Visible         =   0   'False
         Width           =   480
      End
      Begin VB.Image error 
         Height          =   480
         Left            =   120
         Picture         =   "frmMsg.frx":64EA
         Top             =   720
         Visible         =   0   'False
         Width           =   480
      End
      Begin VB.Image notice 
         Height          =   480
         Left            =   120
         Picture         =   "frmMsg.frx":71B4
         Top             =   720
         Visible         =   0   'False
         Width           =   480
      End
   End
End
Attribute VB_Name = "frmMsg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub xpcmdbutton1_Click()
Unload Me
End Sub

Private Sub xptopbuttons1_Click()
Unload Me
End Sub