frmfresh.frm

一套鞋厂的仓库管理系统

VERSION 5.00
Begin VB.Form frmfresh 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   2745
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4290
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmfresh.frx":0000
   ScaleHeight     =   2745
   ScaleWidth      =   4290
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Height          =   8895
      Left            =   -240
      Picture         =   "frmfresh.frx":7AE6
      ScaleHeight     =   8835
      ScaleWidth      =   8715
      TabIndex        =   0
      Top             =   -120
      Width           =   8775
      Begin VB.Timer Timer1 
         Left            =   600
         Top             =   4920
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "库存管理系统"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   615
         Left            =   840
         TabIndex        =   1
         Top             =   1080
         Width           =   3375
      End
   End
End
Attribute VB_Name = "frmfresh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
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
Private Sub Form_Load()
    Dim hr&, dl&
    Dim usew&, useh&
    usew& = Me.Width / Screen.TwipsPerPixelX
    useh& = Me.Height / Screen.TwipsPerPixelY
    hr& = CreateEllipticRgn(0, 0, usew, useh)
    dl& = SetWindowRgn(Me.hWnd, hr, True)
End Sub