about.frm

图书管理系统,用vb语言编成,希望大家可以试用一下.很方便哦.

VERSION 5.00
Begin VB.Form Form3 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "帮助主题"
   ClientHeight    =   2415
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4110
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   161
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   274
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   2040
      Picture         =   "about.frx":0000
      ScaleHeight     =   1440
      ScaleWidth      =   1440
      TabIndex        =   6
      Top             =   3480
      Visible         =   0   'False
      Width           =   1440
   End
   Begin VB.PictureBox Picture1 
      Height          =   2295
      Left            =   120
      Picture         =   "about.frx":0666
      ScaleHeight     =   2235
      ScaleWidth      =   1515
      TabIndex        =   0
      Top             =   75
      Width           =   1575
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "http://www.xhstudio.net"
      Height          =   375
      Left            =   1800
      TabIndex        =   5
      Top             =   2040
      Width           =   2415
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "我联系 [e-mail]"
      Height          =   375
      Left            =   1800
      TabIndex        =   4
      Top             =   1560
      Width           =   2415
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "有任何意见或要求，请与我"
      Height          =   375
      Left            =   1800
      TabIndex        =   3
      Top             =   1080
      Width           =   2295
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "新海设计制作@2000-12-26"
      Height          =   375
      Left            =   1800
      TabIndex        =   2
      Top             =   600
      Width           =   2175
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "图书管理系统1.00版"
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Top             =   120
      Width           =   1815
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Form_Load()
Me.Icon = Form1.Icon
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
End Sub

Private Sub Form_Paint()
Const PIXEL = 3
    Picture2.ScaleMode = PIXEL
    Me.ScaleMode = PIXEL
    x = 0: y = 0
    nWidth = Picture2.Width
    nHeight = Picture2.Height
    dwRop& = &HCC0020
    Do While y < ScaleHeight
        Do While x < ScaleWidth
            Suc = BitBlt(Me.hDC, x, y, nWidth, nHeight, Picture2.hDC, 0, 0, dwRop&)
            x = x + nWidth
        Loop
        x = 0
        y = y + nHeight
    Loop
End Sub