pub_splash.frm

一套鞋厂的销售管理系统

VERSION 5.00
Begin VB.Form pub_Splash 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   4695
   ClientLeft      =   15
   ClientTop       =   15
   ClientWidth     =   7500
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4695
   ScaleWidth      =   7500
   StartUpPosition =   2  '屏幕中心
   Visible         =   0   'False
   Begin VB.Frame fraMainFrame 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   4890
      Left            =   -90
      TabIndex        =   0
      Top             =   -180
      Width           =   7605
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         BackColor       =   &H00800000&
         ForeColor       =   &H80000008&
         Height          =   390
         Left            =   90
         ScaleHeight     =   360
         ScaleWidth      =   3510
         TabIndex        =   7
         Top             =   180
         Width           =   3540
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            AutoSize        =   -1  'True
            BackColor       =   &H00800000&
            Caption         =   "使用权属于："
            ForeColor       =   &H00FFFFFF&
            Height          =   180
            Left            =   2145
            TabIndex        =   8
            Tag             =   "使用权属于"
            Top             =   90
            Width           =   1080
         End
      End
      Begin VB.Label Label2 
         BackColor       =   &H00FFFFFF&
         Caption         =   " E-Mail：[e-mail]"
         Height          =   225
         Left            =   4680
         TabIndex        =   9
         Tag             =   "公司"
         Top             =   3600
         Width           =   2775
      End
      Begin VB.Image Image1 
         Height          =   2985
         Left            =   90
         Picture         =   "pub_Splash.frx":0000
         Stretch         =   -1  'True
         Top             =   600
         Width           =   2355
      End
      Begin VB.Label lblProductName 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Caption         =   "销售回报系统"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   21.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   435
         Left            =   3000
         TabIndex        =   6
         Tag             =   "产品"
         Top             =   1800
         Width           =   2700
      End
      Begin VB.Label lblCompanyProduct 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Caption         =   "珍兴鞋业有限公司"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   2520
         TabIndex        =   5
         Tag             =   "公司产品"
         Top             =   810
         Width           =   2640
      End
      Begin VB.Label lblVersion 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Caption         =   "版本1.0"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   4770
         TabIndex        =   4
         Tag             =   "版本"
         Top             =   2340
         Width           =   915
      End
      Begin VB.Label lblWarning 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Caption         =   "警告：本产品为我公司所有，非法使用者，追究其法律责任。"
         Height          =   180
         Left            =   240
         TabIndex        =   1
         Tag             =   "警告"
         Top             =   3975
         Width           =   4860
      End
      Begin VB.Label lblCompany 
         BackColor       =   &H00FFFFFF&
         Caption         =   "公   司：珍兴鞋业有限公司。"
         Height          =   225
         Left            =   4680
         TabIndex        =   3
         Tag             =   "公司"
         Top             =   3330
         Width           =   2415
      End
      Begin VB.Label lblCopyright 
         BackColor       =   &H00FFFFFF&
         Caption         =   "版权(C)：1999-2000"
         Height          =   255
         Left            =   4680
         TabIndex        =   2
         Tag             =   "版权"
         Top             =   3060
         Width           =   2415
      End
   End
End
Attribute VB_Name = "pub_Splash"
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