home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 3.ddi / MAILLST.FR_ / MAILLST.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  7.3 KB  |  221 lines
  1. VERSION 2.00
  2. Begin Form MailLst 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Mail List"
  5.    ClientHeight    =   3540
  6.    ClientLeft      =   2055
  7.    ClientTop       =   3270
  8.    ClientWidth     =   6645
  9.    Height          =   3945
  10.    Icon            =   MAILLST.FRX:0000
  11.    Left            =   1995
  12.    LinkTopic       =   "Form2"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   3540
  15.    ScaleWidth      =   6645
  16.    Top             =   2925
  17.    Width           =   6765
  18.    Begin PictureBox Tools 
  19.       Align           =   2  'Align Bottom
  20.       BackColor       =   &H00C0C0C0&
  21.       BorderStyle     =   0  'None
  22.       Height          =   615
  23.       Left            =   0
  24.       ScaleHeight     =   615
  25.       ScaleWidth      =   6645
  26.       TabIndex        =   2
  27.       Top             =   2925
  28.       Width           =   6645
  29.       Begin Line Line1 
  30.          BorderColor     =   &H00FFFFFF&
  31.          Index           =   1
  32.          X1              =   0
  33.          X2              =   6660
  34.          Y1              =   15
  35.          Y2              =   15
  36.       End
  37.       Begin Line Line1 
  38.          BorderColor     =   &H00000000&
  39.          Index           =   0
  40.          X1              =   0
  41.          X2              =   6660
  42.          Y1              =   0
  43.          Y2              =   0
  44.       End
  45.       Begin Image PrtImage 
  46.          Height          =   480
  47.          Left            =   1200
  48.          Picture         =   MAILLST.FRX:0302
  49.          Top             =   60
  50.          Width           =   480
  51.       End
  52.       Begin Image Trash 
  53.          Height          =   480
  54.          Left            =   300
  55.          Picture         =   MAILLST.FRX:0604
  56.          Top             =   60
  57.          Width           =   480
  58.       End
  59.    End
  60.    Begin ListBox MList 
  61.       DragIcon        =   MAILLST.FRX:0906
  62.       FontBold        =   0   'False
  63.       FontItalic      =   0   'False
  64.       FontName        =   "Courier New"
  65.       FontSize        =   9
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       Height          =   2505
  69.       Left            =   90
  70.       MultiSelect     =   2  'Extended
  71.       TabIndex        =   0
  72.       Top             =   360
  73.       Width           =   6495
  74.    End
  75.    Begin Label Headings 
  76.       AutoSize        =   -1  'True
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "Listbox Headings"
  79.       FontBold        =   0   'False
  80.       FontItalic      =   0   'False
  81.       FontName        =   "Courier New"
  82.       FontSize        =   9
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       Height          =   225
  86.       Left            =   180
  87.       TabIndex        =   1
  88.       Top             =   60
  89.       Width           =   1680
  90.    End
  91.    Begin Image NewMail 
  92.       Height          =   480
  93.       Left            =   5880
  94.       Picture         =   MAILLST.FRX:0C08
  95.       Top             =   2820
  96.       Visible         =   0   'False
  97.       Width           =   480
  98.    End
  99.    Begin Image nonew 
  100.       Height          =   480
  101.       Left            =   5280
  102.       Picture         =   MAILLST.FRX:0F0A
  103.       Top             =   2880
  104.       Visible         =   0   'False
  105.       Width           =   480
  106.    End
  107. '--- Module variable to hold MouseDown position information
  108. Dim ListX, ListY
  109. Sub Form_Load ()
  110. '--- Resize the form
  111.     Height = 3945
  112.     Call Tools_Resize
  113. '--- Setup listbox headings
  114.      a$ = Mid$(Format$("From", "!" + String$(25, "@")), 1, 25)
  115.      b$ = Mid$(Format$("Subject", "!" + String$(35, "@")), 1, 35)
  116.      c$ = "Date"
  117.      Headings = a$ + b$ + c$
  118. End Sub
  119. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  120. '---- If the user is closing the app, let this form unload
  121.     If UnloadMode = 4 Then
  122.         'Unloading is okay
  123.     Else
  124. '---- If the user is still logined in, minimize the form rather than closing it
  125.         If VBMail.MapiMess.SessionID <> 0 Then
  126.             Me.WindowState = 1
  127.             Cancel = True
  128.         End If
  129.     End If
  130. End Sub
  131. Sub Form_Resize ()
  132. '--- If we aren't minimized, resize the listbox to fit the form
  133.     If WindowState <> 1 Then
  134.         If VBMail.DispTools.Checked Then
  135.             xHeight% = Tools.Height
  136.         Else
  137.             xHeight% = 0
  138.         End If
  139.         '---- Check for minimum form height allowed
  140.         If Height < 2500 - xHeight% Then
  141.             Height = 2500
  142.             Exit Sub
  143.         End If
  144.         MList.Width = ScaleWidth - MList.Left - 90
  145.         MList.Height = ScaleHeight - 90 - MList.Top - xHeight%
  146.     End If
  147. End Sub
  148. Sub MList_Click ()
  149. '-----------------------------------------------------
  150. ' Set the message index on a click and enabled the
  151. ' Previous and Next buttons as needed
  152. '-----------------------------------------------------
  153.     Select Case MList.ListIndex
  154.         Case 0
  155.             VBMail.Previous.Enabled = False
  156.         Case MList.ListCount - 1
  157.             VBMail.Next.Enabled = False
  158.         Case Else
  159.             VBMail.Previous.Enabled = True
  160.             VBMail.Next.Enabled = True
  161.     End Select
  162.     VBMail.MapiMess.MsgIndex = MList.ListIndex
  163. End Sub
  164. Sub MList_DBLClick ()
  165. '--------------------------------------------------------
  166. '  Check to see if the message is currently viewed,
  167. '  if not load it into a new form
  168. '--------------------------------------------------------
  169.     If Not MailLst.MList.ItemData(MailLst.MList.ListIndex) Then
  170.        Dim Msg As New MsgView
  171.        Call LoadMessage(MailLst.MList.ListIndex, Msg)
  172.        MailLst.MList.ItemData(MailLst.MList.ListIndex) = True
  173.     Else
  174.     '--------------------------------------------------------
  175.     '  Search through the active windows to
  176.     '  find the window with the correct message to view
  177.     '--------------------------------------------------------
  178.         For i = 0 To Forms.Count - 1
  179.             If TypeOf Forms(i) Is MsgView Then
  180.                 If Val(Forms(i).Tag) = MailLst.MList.ListIndex Then
  181.                     Forms(i).Show
  182.                     Exit Sub
  183.                 End If
  184.             End If
  185.         Next i
  186.      End If
  187. End Sub
  188. Sub MList_KeyPress (KeyAscii As Integer)
  189. '--- If the user hits the enter key, process it as a DBLCLICK action
  190.     If KeyAscii = 13 Then
  191.         Call MList_DBLClick
  192.     End If
  193. End Sub
  194. Sub MList_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  195. '--- Save the X/Y positions to determine drag/drop start
  196.     ListX = X
  197.     ListY = Y
  198. End Sub
  199. Sub MList_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  200. '------------------------------------------------------------------------------
  201. '  If the mouse button is down and the x/y position has changed, start dragging
  202. '------------------------------------------------------------------------------
  203.     If Button = 1 And ((X <> ListX) Or (Y <> ListY)) Then
  204.         MList.Drag 1
  205.     End If
  206. End Sub
  207. Sub PrtImage_DragDrop (Source As Control, X As Single, Y As Single)
  208. '--- Same as File.PrintMessage on the VBMAIL File Menu
  209.     Call PrintMail
  210. End Sub
  211. Sub Tools_Resize ()
  212. '---- Adjust the width of the lines on the top of the toolbar
  213.     Line1(0).X2 = Tools.Width
  214.     Line1(1).X2 = Tools.Width
  215.     Tools.Refresh
  216. End Sub
  217. Sub Trash_DragDrop (Source As Control, X As Single, Y As Single)
  218. '--- Deletes a message (Delete Button or Edit.Delete)
  219.    Call DeleteMessage
  220. End Sub
  221.