loadpictureform.frm

内窥镜图案工作站有说明 有文档 有应用程序

VERSION 5.00
Begin VB.Form LoadPictureForm 
   BorderStyle     =   0  'None
   ClientHeight    =   8070
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   10740
   LinkTopic       =   "Form1"
   Picture         =   "LoadPictureForm.frx":0000
   ScaleHeight     =   8070
   ScaleWidth      =   10740
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer TimerInLoad 
      Interval        =   1
      Left            =   0
      Top             =   0
   End
End
Attribute VB_Name = "LoadPictureForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'初始化界面,具体做法:
'    1. 想在LoadPictureForm初始化的时候就对MainForm初始化,但无法在Form_Load事件中运行Load MainForm命令,因此使用了一个技巧
'       在窗体上添加了Timer控件,在窗体初始化的时候打开Timer控件,同时还定义了LoadTime变量计数,也就是在Timer控件运行时,根据
'       LoadTime的值判断是否可以加载MainForm

Option Explicit

Dim LoadTime As Integer    '计数变量

Private Sub Form_Load()
    LoadTime = 0
    TimerInLoad.Enabled = True    '打开计时器
End Sub

Private Sub TimerInLoad_Timer()    '当计数变量达到门限时加载主窗体
    If LoadTime > 1 Then
        TimerInLoad.Enabled = False
        Load MainForm
    Else
        LoadTime = LoadTime + 1
    End If
End Sub