frmFlash.frm
上传用户:yexiandon
上传日期:2022-07-12
资源大小:895k
文件大小:2k
- 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