11-3r.frm

vb6.0编程实例详解,很详细的介绍,对学习VB有帮助

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmRead 
   Caption         =   "阅读"
   ClientHeight    =   4995
   ClientLeft      =   3735
   ClientTop       =   2370
   ClientWidth     =   6720
   LinkTopic       =   "Form1"
   ScaleHeight     =   4995
   ScaleWidth      =   6720
   Begin MSComctlLib.Toolbar tbrRead 
      Align           =   1  'Align Top
      Height          =   615
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   6720
      _ExtentX        =   11853
      _ExtentY        =   1085
      ButtonWidth     =   1455
      ButtonHeight    =   926
      Appearance      =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   5
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "答复"
            Key             =   "reply"
            Description     =   "答复"
            Object.ToolTipText     =   "答复"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Style           =   4
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "全部答复"
            Key             =   "ReplyAll"
            Description     =   "全部答复"
            Object.ToolTipText     =   "答复所有收到的邮件"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Style           =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "转发"
            Key             =   "forward"
            Description     =   "转发信息"
            Object.ToolTipText     =   "转发信息"
         EndProperty
      EndProperty
   End
   Begin VB.TextBox txtRead 
      Height          =   2805
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   3
      Top             =   2010
      Width           =   6375
   End
   Begin VB.Label Label2 
      Caption         =   "收件人"
      Height          =   210
      Left            =   120
      TabIndex        =   9
      Top             =   1065
      Width           =   855
   End
   Begin VB.Label lblTo 
      BackColor       =   &H80000009&
      BorderStyle     =   1  'Fixed Single
      Height          =   285
      Left            =   1080
      TabIndex        =   8
      Top             =   1050
      Width           =   5535
   End
   Begin VB.Label lblCC 
      BackColor       =   &H80000009&
      BorderStyle     =   1  'Fixed Single
      Height          =   285
      Left            =   1080
      TabIndex        =   6
      Top             =   1365
      Width           =   5535
   End
   Begin VB.Label lblFrom 
      BackColor       =   &H80000009&
      BorderStyle     =   1  'Fixed Single
      Height          =   300
      Left            =   1080
      TabIndex        =   5
      Top             =   720
      Width           =   5535
   End
   Begin VB.Label lblSubject 
      BackColor       =   &H80000009&
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   1080
      TabIndex        =   4
      Top             =   1680
      Width           =   5535
   End
   Begin VB.Label Label3 
      Caption         =   "主题"
      Height          =   210
      Left            =   120
      TabIndex        =   2
      Top             =   1725
      Width           =   855
   End
   Begin VB.Label lbl 
      Caption         =   "抄送"
      Height          =   210
      Left            =   120
      TabIndex        =   1
      Top             =   1425
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "发件人:"
      Height          =   210
      Left            =   120
      TabIndex        =   0
      Top             =   765
      Width           =   855
   End
End
Attribute VB_Name = "frmRead"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private intMsgIndex As Integer


Private Sub Form_Load()
    ' 在发生错误的情况下存储在这。
    intMsgIndex = frmMain.mapMess.MsgIndex
End Sub

Private Sub tbrRead_ButtonClick(ByVal Button As MSComCtlLib.Button)
    On Error GoTo SendErr
    
    Select Case Button.Key
    Case "reply"
        With frmMain.mapMess
            .Copy
            .Reply
            .AddressResolveUI = True
            .Send True
        End With

    Case "ReplyAll"
        With frmMain.mapMess
            .ReplyAll
            .Send True
        End With
    Case "forward"
        With frmMain.mapMess
            .Forward
            .AddressResolveUI = True
            .Send True
        End With
    Case Else
        Debug.Print Button.Key
    End Select
    Exit Sub
SendErr:
    If Err.Number = mapInvalidComposeBufferAction Then
        frmMain.mapMess.MsgIndex = intMsgIndex ' 重新设置阅读缓冲区
        Resume
    Else '其他情况
        MsgBox Err.Number & ": " & Err.Description
    End If
End Sub