printerdialog.frm

一个用VB6.0开发的简单餐会管理系统。在WIN2K

VERSION 5.00
Begin VB.Form PrinterDialog 
   AutoRedraw      =   -1  'True
   Caption         =   "打印"
   ClientHeight    =   1620
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3915
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1620
   ScaleWidth      =   3915
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   1200
      Top             =   960
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "正在打印，请稍后！..."
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   2520
   End
End
Attribute VB_Name = "PrinterDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim tmClockflag As Integer

Private Sub Form_Load()
'Me.Label1 = "正在打印，请稍后！......"
Me.Refresh
tmClockflag = 0
End Sub

Private Sub Timer1_Timer()

Select Case tmClockflag
Case 0
Me.Label1 = "正在打印，请稍后！"
Me.Refresh
tmClockflag = 1
Case 1
Me.Label1 = "正在打印，请稍后！..."
Me.Refresh
tmClockflag = 2
Case 2
Me.Label1 = "正在打印，请稍后！......"
Me.Refresh
tmClockflag = 3
Case 3
Me.Label1 = "正在打印，请稍后！........."
Me.Refresh
tmClockflag = 0

End Select

End Sub