pub_splash.frm

一个OA办公自动化管理系统

VERSION 5.00
Begin VB.Form pub_Splash 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   4155
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6735
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4155
   ScaleWidth      =   6735
   StartUpPosition =   2  '屏幕中心
   Visible         =   0   'False
   Begin VB.Frame fraMainFrame 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   4290
      Left            =   0
      TabIndex        =   0
      Top             =   -120
      Width           =   6765
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         BackColor       =   &H00800000&
         ForeColor       =   &H80000008&
         Height          =   390
         Left            =   90
         ScaleHeight     =   360
         ScaleWidth      =   3510
         TabIndex        =   6
         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        =   7
            Tag             =   "使用权属于"
            Top             =   90
            Width           =   1080
         End
      End
      Begin VB.Label Label2 
         BackColor       =   &H00FFFFFF&
         Caption         =   " E-Mail："
         Height          =   225
         Left            =   3510
         TabIndex        =   8
         Tag             =   "公司"
         Top             =   3720
         Width           =   2775
      End
      Begin VB.Image Image1 
         Height          =   3585
         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         =   "Smartway ERP软件"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   315
         Left            =   2880
         TabIndex        =   5
         Tag             =   "产品"
         Top             =   1710
         Width           =   2835
      End
      Begin VB.Label lblCompanyProduct 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Caption         =   "新思路软件(深圳)有限公司"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2700
         TabIndex        =   4
         Tag             =   "公司产品"
         Top             =   810
         Width           =   3645
      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            =   4950
         TabIndex        =   3
         Tag             =   "版本"
         Top             =   2250
         Width           =   915
      End
      Begin VB.Label lblCompany 
         BackColor       =   &H00FFFFFF&
         Caption         =   "公   司：新思路软件(深圳)有限公司"
         Height          =   225
         Left            =   3510
         TabIndex        =   2
         Tag             =   "公司"
         Top             =   3360
         Width           =   3045
      End
      Begin VB.Label lblCopyright 
         BackColor       =   &H00FFFFFF&
         Caption         =   "版权(C)：1999-2000"
         Height          =   255
         Left            =   3510
         TabIndex        =   1
         Tag             =   "版权"
         Top             =   3000
         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