www.pudn.com > 通用库存管理系统 vb.rar > FrmHY.frm

VERSION 5.00 
Begin VB.Form FrmHY  
   BorderStyle     =   0  'None 
   Caption         =   "Form1" 
   ClientHeight    =   3030 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   4170 
   Icon            =   "FrmHY.frx":0000 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   3030 
   ScaleWidth      =   4170 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.PictureBox Picture1  
      Appearance      =   0  'Flat 
      BackColor       =   &H00FF0000& 
      ForeColor       =   &H00000000& 
      Height          =   375 
      Left            =   0 
      ScaleHeight     =   345 
      ScaleWidth      =   4185 
      TabIndex        =   0 
      Top             =   0 
      Width           =   4215 
      Begin VB.Label Label5  
         BackStyle       =   0  'Transparent 
         Caption         =   "秦通电子有限公司" 
         BeginProperty Font  
            Name            =   "楷体_GB2312" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H0000FFFF& 
         Height          =   255 
         Left            =   960 
         TabIndex        =   1 
         Top             =   120 
         Width           =   2055 
      End 
   End 
   Begin VB.Label Label2  
      BackStyle       =   0  'Transparent 
      Caption         =   "版本：V1.0.1" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000FF& 
      Height          =   375 
      Left            =   1440 
      TabIndex        =   4 
      Top             =   1920 
      Width           =   1455 
   End 
   Begin VB.Label Label1  
      BackStyle       =   0  'Transparent 
      Caption         =   "通用库存管理系统" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   21.75 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H0000FFFF& 
      Height          =   615 
      Left            =   240 
      TabIndex        =   3 
      Top             =   1080 
      Width           =   3735 
   End 
   Begin VB.Label Label4  
      BackStyle       =   0  'Transparent 
      Caption         =   "通用库存管理系统" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   21.75 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   -1  'True 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   615 
      Left            =   120 
      TabIndex        =   2 
      Top             =   960 
      Width           =   3975 
   End 
End 
Attribute VB_Name = "FrmHY" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Form_Initialize() 
If App.PrevInstance Then 
  MsgBox "本程序正在运行，这个副本将自动结束！" 
  End 
End If 
End Sub 
 
Private Sub Form_Load() 
 Call PutWindowOnTop(Me) '调用窗体始终保持最前 
Label4.Top = Label1.Top + 50 
Label4.Left = Label1.Left + 50 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
Dim i As Integer 
        i = Me.Height 
    While i >= Picture1.Height 
        i = i - 10 
        If i > Picture1.Height Then 
            Me.Height = i 
        Else 
            Me.Height = Picture1.Height 
        End If 
         
        DoEvents 
    Wend 
     
    i = Me.Top 
    i = Me.Top 
    While i > 0 
        Me.Move Me.Left, i, Me.Width, Me.Height 
        i = i - 10 
        DoEvents 
         
    Wend 
    i = Me.Left 
    While i < Screen.Width 
        Me.Move i, 0, Me.Width, Me.Height 
        i = i + 20 
        DoEvents 
        
    Wend 
End Sub