【VB开源代码栏目提醒】:网学会员,鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“MailLst.frm”一文,供大家参考学习!
VERSION 5.00
Begin VB.Form MailLst
Caption = "邮件列表"
ClientHeight = 7080
ClientLeft = 60
ClientTop = 345
ClientWidth = 8010
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7080
ScaleWidth = 8010
Begin VB.ListBox Mlist
Height = 4545
Left = 720
TabIndex = 0
Top = 1800
Width = 6615
End
Begin VB.Label Label2
Caption = "收信人:"
Height = 315
Left = 720
TabIndex = 2
Top = 1200
Width = 4335
End
Begin VB.Label Label1
Caption = "发信人:"
Height = 315
Left = 720
TabIndex = 1
Top = 480
Width = 4305
End
End
Attribute VB_Name = "MailLst"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute
VB_Exposed = False
Private Sub Form_Load()
Label1.Caption = "发信人:"
Label2.Caption = "收信人:"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'如果不是MDI窗体关闭和邮件对话未结束,则取消关闭
If UnloadMode = 4 Then
Else
If VBMail.MAPIMess.SessionID <> 0 Then
Me.WindowState = 1
Cancel = True
End If
End If
End Sub
Private Sub Form_Resize()
'当窗体大小发生改变时,调整
列表框的大小
If WindowState <> 1 Then
Mlist.Width = ScaleWidth - Mlist.Left - 50
Mlist.Height = ScaleHeight - Mlist.Top
End If
End Sub
Private Sub Mlist_Click()
'根据选择的邮件索引确定相关菜单项和工具栏按扭的可用状态
Select Case Mlist.ListIndex
Case 0
VBMail.Toolbar1.Buttons("Previous1").Enabled = False
If Mlist.ListCount > 0 Then
VBMail.Toolbar1.Buttons("Next1").Enabled = True
End If
Case Mlist.ListCount - 1
VBMail.Toolbar1.Buttons("Next1").Enabled = False
If Mlist.ListCount > 0 Then
VBMail.Toolbar1.Buttons("Previous1").Enabled = True
End If
Case Else
VBMail.Toolbar1.Buttons("Previous1").Enabled = True
VBMail.Toolbar1.Buttons("Next1").Enabled = True
End Select
VBMail.MAPIMess.MsgIndex = Mlist.ListIndex
'显示当前邮件收信人和发信人的
Label1.Caption = "发信人:" + VBMail.MAPIMess.MsgOrigDisplayName
Label2.Caption = "收信人:" + GetRCList(VBMail.MAPIMess, vbRecipTypeTo)
End Sub
Private Sub Mlist_DblClick()
If Not MailLst.Mlist.ItemData(MailLst.Mlist.ListIndex) Then
'在阅读新邮件的窗体中显示选中的消息
Call LoadMessage(MailLst.Mlist.ListIndex, MsgView)
MailLst.Mlist.ItemData(MailLst.Mlist.ListIndex) = True
Else
For i = 0 To Forms.Count - 1
If TypeOf Forms(i) Is MsgView Then
If Val(Forms(i).Tag) = MailLst.Mlist.ListIndex Then
Forms(i).Show
Exit Sub
End If
End If
Next i
End If
End Sub
Private Sub Mlist_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Mlist_DblClick
End If
End Sub