formwait.frm

来自「通信专业的电路测试应用程序。 在通信的大批量电路拨打测试中使用。可以极大提高效」· FRM 代码 · 共 45 行

VERSION 5.00
Begin VB.Form FormWait 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   390
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2070
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   390
   ScaleWidth      =   2070
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer TimerWait 
      Interval        =   500
      Left            =   1560
      Top             =   240
   End
   Begin VB.Label LabelDialing 
      AutoSize        =   -1  'True
      Caption         =   "正在拨号..."
      Height          =   180
      Left            =   480
      TabIndex        =   0
      Top             =   120
      Width           =   990
   End
End
Attribute VB_Name = "FormWait"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
TimerWait.Enabled = True
End Sub

Private Sub TimerWait_Timer()
TimerWait.Enabled = False
Unload FormWait
End Sub