百货/超市行业

开发平台：

Visual Basic

frmFlash.frm：源码内容

							VERSION 5.00
Begin VB.Form frmFlash 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   1020
   ClientLeft      =   4980
   ClientTop       =   5145
   ClientWidth     =   6090
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmFlash.frx":0000
   KeyPreview      =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   1020
   ScaleWidth      =   6090
   ShowInTaskbar   =   0   'False
   Begin VB.Label lbtxt 
      Caption         =   "请稍候..."
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   840
      TabIndex        =   0
      Top             =   360
      Width           =   4095
   End
End
Attribute VB_Name = "frmFlash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/01/21
'描    述：汽车维修管理系统SQL2000版
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub Form_Load()
    Move frmMain.Width / 2 - Me.Width / 2, frmMain.Height / 3
    SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
    frmMain.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
    frmMain.Enabled = True
End Sub

						