frmsendmailstate.frm

智能邮件管理信息系统

VERSION 5.00
Object = "{752B049B-B196-405E-9393-43374192F393}#1.0#0"; "StatusBar.ocx"
Object = "{D2A0DB9A-4AE3-4CDD-8D26-8D349175F83E}#1.0#0"; "Progressbar.ocx"
Begin VB.Form FrmSendMailState 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "发送邮件"
   ClientHeight    =   2580
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   5970
   Icon            =   "FrmSendMailState.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2580
   ScaleWidth      =   5970
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin StatusBar.XpStatusBar sbrStatus 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   7
      Top             =   2265
      Width           =   5970
      _ExtentX        =   10530
      _ExtentY        =   556
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   -2147483633
      SimpleStyle     =   0
   End
   Begin ProgressBar.XpProgressBar ProgressBar1 
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   930
      Width           =   5655
      _ExtentX        =   9975
      _ExtentY        =   450
      Picture         =   "FrmSendMailState.frx":0ECA
      ForeColor       =   0
      BarPicture      =   "FrmSendMailState.frx":0EE6
      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
   Begin VB.ListBox txtMessages 
      Height          =   960
      Left            =   120
      TabIndex        =   5
      Top             =   1290
      Width           =   5685
   End
   Begin VB.CommandButton CommandClose 
      Caption         =   "关闭"
      Height          =   345
      Left            =   4380
      TabIndex        =   0
      Top             =   420
      Width           =   1425
   End
   Begin VB.CommandButton CommandStop 
      Caption         =   "停止"
      Height          =   345
      Left            =   4380
      TabIndex        =   1
      Top             =   60
      Width           =   1425
   End
   Begin VB.Label MsgProgress 
      Alignment       =   2  'Center
      Height          =   195
      Left            =   60
      TabIndex        =   4
      Top             =   690
      Width           =   4125
   End
   Begin VB.Label MsgCount 
      Alignment       =   2  'Center
      Height          =   195
      Left            =   60
      TabIndex        =   3
      Top             =   420
      Width           =   4125
   End
   Begin VB.Label MsgTop 
      Alignment       =   2  'Center
      Height          =   195
      Left            =   60
      TabIndex        =   2
      Top             =   120
      Width           =   4125
   End
End
Attribute VB_Name = "FrmSendMailState"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

DefInt A-Z

Dim StartTime As Variant
Dim WithEvents mCTimer As SubClass.CTimer
Attribute mCTimer.VB_VarHelpID = -1






Private Sub CommandClose_Click()
    CommandStop_Click
    If Not frmMain.m_CPop3Interface Is Nothing Then
        frmMain.m_CPop3Interface.BlnCancel (True)
        frmMain.m_CSmtpInterface.BlnCancel (True)
    End If
    Unload Me
End Sub

Private Sub CommandStop_Click()
    mCTimer.Interval = 0.01
    If Not frmMain.m_CPop3Interface Is Nothing Then
        frmMain.m_CPop3Interface.BlnCancel (True)
        frmMain.m_CSmtpInterface.BlnCancel (True)
    End If
    
End Sub

Private Sub Form_Load()
    Set mCTimer = New SubClass.CTimer
    StartTime = Now
    mCTimer.Interval = 0.01
    txtMessages.Text = ""
    sbrStatus.AddPanel StatusBar.estbrStandard, SoftName, "SmartMail", 0, 150
    sbrStatus.AddPanel StatusBar.estbrStandard, "正在联机工作", "", 0, 200, , , , , "ConnectTime"
    ProgressBar1.BarPictureMode = epbpStretch
    ProgressBar1.Segments = True
End Sub




Private Sub Form_Unload(Cancel As Integer)
    mCTimer.Interval = 0
    Set mCTimer = Nothing
End Sub

Private Sub mCTimer_ThatTime()
    '显示连接时间
    sbrStatus.PanelText("ConnectTime") = "耗时:" & Format(Now - StartTime, "hh:nn:ss") & " "
End Sub