frmback.frm

来自「本系统可用于医院和专业体检中心的健康体检管理」· FRM 代码 · 共 55 行

VERSION 5.00
Begin VB.Form frmBack 
   AutoRedraw      =   -1  'True
   BorderStyle     =   0  'None
   Caption         =   "背景"
   ClientHeight    =   6000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7290
   Icon            =   "frmBack.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6000
   ScaleWidth      =   7290
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox picBackground 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1935
      Left            =   2220
      ScaleHeight     =   1935
      ScaleWidth      =   2835
      TabIndex        =   0
      Top             =   1980
      Visible         =   0   'False
      Width           =   2835
   End
End
Attribute VB_Name = "frmBack"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Activate()
    Me.ZOrder 1
End Sub

Private Sub Form_Resize()
On Error Resume Next
    '在窗体大小改变时，重新绘制背景图
    '尝试两种绘制方式
    Me.PaintPicture Me.picBackground.PICTURE, 0, 0, Me.ScaleWidth, Me.ScaleHeight
    If Err.Number <> 0 Then
        Err.Clear
        Me.PaintPicture Me.picBackground.PICTURE, 0, 0, Me.ScaleWidth, Me.ScaleHeight, , , , , vbSrcCopy
    End If
End Sub