frmcanceexport.frm

智能邮件管理信息系统

VERSION 5.00
Object = "{6DBB85FE-F54E-4433-B477-681829F5D97A}#1.0#0"; "Progressbar.ocx"
Object = "{DC17E999-2772-4D62-B0E9-F92F530B8D71}#1.0#0"; "Frame.ocx"
Begin VB.Form FrmCancelExport 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   795
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4710
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   795
   ScaleWidth      =   4710
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin Frame.ctlFrame ctlFrame1 
      Height          =   735
      Left            =   30
      TabIndex        =   0
      Top             =   30
      Width           =   4665
      _ExtentX        =   8229
      _ExtentY        =   1296
      Begin VB.CommandButton btnCancel 
         Appearance      =   0  'Flat
         Caption         =   "中断"
         Height          =   315
         Left            =   1770
         TabIndex        =   1
         Top             =   390
         Width           =   1155
      End
      Begin ProgressBar.XpProgressBar ProgressBar1 
         Height          =   255
         Left            =   0
         TabIndex        =   2
         Top             =   0
         Width           =   4635
         _ExtentX        =   8176
         _ExtentY        =   450
         Picture         =   "FrmCanceExport.frx":0000
         ForeColor       =   0
         BarPicture      =   "FrmCanceExport.frx":001C
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Segments        =   -1  'True
      End
   End
End
Attribute VB_Name = "FrmCancelExport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub btnCancel_Click()
    blnExportCancelled = True
    Unload Me
End Sub

Private Sub Form_Load()
    blnExportCancelled = False
    
    
    ProgressBar1.BarPictureMode = epbpStretch
    ProgressBar1.Segments = True
End Sub