home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 4.ddi / MSGVIEW.FR_ / MSGVIEW.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  11.2 KB  |  338 lines
  1. VERSION 2.00
  2. Begin Form MsgView 
  3.    Caption         =   "Mail Message"
  4.    ClientHeight    =   4380
  5.    ClientLeft      =   2475
  6.    ClientTop       =   2340
  7.    ClientWidth     =   6210
  8.    Height          =   4785
  9.    Icon            =   MSGVIEW.FRX:0000
  10.    Left            =   2415
  11.    LinkTopic       =   "Form2"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4380
  14.    ScaleWidth      =   6210
  15.    Top             =   1995
  16.    Width           =   6330
  17.    Begin PictureBox AttachWin 
  18.       Align           =   2  'Align Bottom
  19.       BackColor       =   &H00C0C0C0&
  20.       Height          =   825
  21.       Left            =   0
  22.       ScaleHeight     =   795
  23.       ScaleWidth      =   6180
  24.       TabIndex        =   12
  25.       Top             =   3555
  26.       Visible         =   0   'False
  27.       Width           =   6210
  28.       Begin ListBox aList 
  29.          FontBold        =   0   'False
  30.          FontItalic      =   0   'False
  31.          FontName        =   "MS Sans Serif"
  32.          FontSize        =   8.25
  33.          FontStrikethru  =   0   'False
  34.          FontUnderline   =   0   'False
  35.          Height          =   420
  36.          Left            =   240
  37.          TabIndex        =   14
  38.          Top             =   300
  39.          Width           =   5835
  40.       End
  41.       Begin Label NumAtt 
  42.          AutoSize        =   -1  'True
  43.          BackStyle       =   0  'Transparent
  44.          FontBold        =   0   'False
  45.          FontItalic      =   0   'False
  46.          FontName        =   "MS Sans Serif"
  47.          FontSize        =   8.25
  48.          FontStrikethru  =   0   'False
  49.          FontUnderline   =   0   'False
  50.          Height          =   195
  51.          Left            =   1200
  52.          TabIndex        =   15
  53.          Top             =   60
  54.          Width           =   45
  55.       End
  56.       Begin Label Label6 
  57.          AutoSize        =   -1  'True
  58.          BackStyle       =   0  'Transparent
  59.          Caption         =   "Attachments:"
  60.          FontBold        =   0   'False
  61.          FontItalic      =   0   'False
  62.          FontName        =   "MS Sans Serif"
  63.          FontSize        =   8.25
  64.          FontStrikethru  =   0   'False
  65.          FontUnderline   =   0   'False
  66.          Height          =   195
  67.          Left            =   60
  68.          TabIndex        =   13
  69.          Top             =   60
  70.          Width           =   930
  71.       End
  72.    End
  73.    Begin TextBox txtNoteText 
  74.       FontBold        =   0   'False
  75.       FontItalic      =   0   'False
  76.       FontName        =   "MS Sans Serif"
  77.       FontSize        =   8.25
  78.       FontStrikethru  =   0   'False
  79.       FontUnderline   =   0   'False
  80.       Height          =   1815
  81.       Left            =   0
  82.       MultiLine       =   -1  'True
  83.       ScrollBars      =   2  'Vertical
  84.       TabIndex        =   0
  85.       Top             =   1740
  86.       Width           =   6195
  87.    End
  88.    Begin PictureBox Picture1 
  89.       Align           =   1  'Align Top
  90.       BackColor       =   &H00C0C0C0&
  91.       Height          =   1755
  92.       Left            =   0
  93.       ScaleHeight     =   1725
  94.       ScaleWidth      =   6180
  95.       TabIndex        =   6
  96.       Top             =   0
  97.       Width           =   6210
  98.       Begin TextBox txtsubject 
  99.          BackColor       =   &H00C0C0C0&
  100.          BorderStyle     =   0  'None
  101.          FontBold        =   0   'False
  102.          FontItalic      =   0   'False
  103.          FontName        =   "MS Sans Serif"
  104.          FontSize        =   8.25
  105.          FontStrikethru  =   0   'False
  106.          FontUnderline   =   0   'False
  107.          Height          =   225
  108.          Left            =   900
  109.          TabIndex        =   5
  110.          Top             =   1320
  111.          Width           =   4995
  112.       End
  113.       Begin TextBox txtcc 
  114.          BackColor       =   &H00C0C0C0&
  115.          BorderStyle     =   0  'None
  116.          FontBold        =   0   'False
  117.          FontItalic      =   0   'False
  118.          FontName        =   "MS Sans Serif"
  119.          FontSize        =   8.25
  120.          FontStrikethru  =   0   'False
  121.          FontUnderline   =   0   'False
  122.          Height          =   225
  123.          Left            =   900
  124.          TabIndex        =   4
  125.          Top             =   1020
  126.          Width           =   4995
  127.       End
  128.       Begin TextBox txtTo 
  129.          BackColor       =   &H00C0C0C0&
  130.          BorderStyle     =   0  'None
  131.          FontBold        =   0   'False
  132.          FontItalic      =   0   'False
  133.          FontName        =   "MS Sans Serif"
  134.          FontSize        =   8.25
  135.          FontStrikethru  =   0   'False
  136.          FontUnderline   =   0   'False
  137.          Height          =   225
  138.          Left            =   900
  139.          TabIndex        =   3
  140.          Top             =   720
  141.          Width           =   4995
  142.       End
  143.       Begin TextBox txtDate 
  144.          BackColor       =   &H00C0C0C0&
  145.          BorderStyle     =   0  'None
  146.          FontBold        =   0   'False
  147.          FontItalic      =   0   'False
  148.          FontName        =   "MS Sans Serif"
  149.          FontSize        =   8.25
  150.          FontStrikethru  =   0   'False
  151.          FontUnderline   =   0   'False
  152.          Height          =   225
  153.          Left            =   900
  154.          TabIndex        =   2
  155.          Top             =   420
  156.          Width           =   4995
  157.       End
  158.       Begin TextBox txtFrom 
  159.          BackColor       =   &H00C0C0C0&
  160.          BorderStyle     =   0  'None
  161.          FontBold        =   0   'False
  162.          FontItalic      =   0   'False
  163.          FontName        =   "MS Sans Serif"
  164.          FontSize        =   8.25
  165.          FontStrikethru  =   0   'False
  166.          FontUnderline   =   0   'False
  167.          Height          =   225
  168.          Left            =   900
  169.          TabIndex        =   1
  170.          Top             =   120
  171.          Width           =   4995
  172.       End
  173.       Begin Label Label5 
  174.          AutoSize        =   -1  'True
  175.          BackStyle       =   0  'Transparent
  176.          Caption         =   "Subject:"
  177.          Height          =   195
  178.          Left            =   120
  179.          TabIndex        =   11
  180.          Top             =   1320
  181.          Width           =   720
  182.       End
  183.       Begin Label Label4 
  184.          AutoSize        =   -1  'True
  185.          BackStyle       =   0  'Transparent
  186.          Caption         =   "Cc:"
  187.          Height          =   195
  188.          Left            =   120
  189.          TabIndex        =   10
  190.          Top             =   1020
  191.          Width           =   300
  192.       End
  193.       Begin Label Label3 
  194.          AutoSize        =   -1  'True
  195.          BackStyle       =   0  'Transparent
  196.          Caption         =   "To:"
  197.          Height          =   195
  198.          Left            =   120
  199.          TabIndex        =   9
  200.          Top             =   720
  201.          Width           =   300
  202.       End
  203.       Begin Label Label2 
  204.          AutoSize        =   -1  'True
  205.          BackStyle       =   0  'Transparent
  206.          Caption         =   "Date:"
  207.          Height          =   195
  208.          Left            =   120
  209.          TabIndex        =   8
  210.          Top             =   420
  211.          Width           =   480
  212.       End
  213.       Begin Label Label1 
  214.          AutoSize        =   -1  'True
  215.          BackStyle       =   0  'Transparent
  216.          Caption         =   "From:"
  217.          Height          =   195
  218.          Left            =   120
  219.          TabIndex        =   7
  220.          Top             =   120
  221.          Width           =   480
  222.       End
  223.       Begin Line RightLine 
  224.          BorderColor     =   &H00FFFFFF&
  225.          X1              =   6000
  226.          X2              =   6000
  227.          Y1              =   60
  228.          Y2              =   1620
  229.       End
  230.       Begin Line BottomLine 
  231.          BorderColor     =   &H00FFFFFF&
  232.          X1              =   60
  233.          X2              =   6000
  234.          Y1              =   1620
  235.          Y2              =   1620
  236.       End
  237.       Begin Line TopLine 
  238.          BorderColor     =   &H00808080&
  239.          X1              =   60
  240.          X2              =   5940
  241.          Y1              =   60
  242.          Y2              =   60
  243.       End
  244.       Begin Line LeftLine 
  245.          BorderColor     =   &H00808080&
  246.          X1              =   60
  247.          X2              =   60
  248.          Y1              =   60
  249.          Y2              =   1620
  250.       End
  251.    End
  252. Sub aList_DblClick ()
  253.     '---- ListIndex is the index into the attachment list
  254.     VBMail.MapiMess.AttachmentIndex = aList.ListIndex
  255.     If VBMail.MapiMess.AttachmentType = MAPI_ATT_File Then
  256.         Call DisplayAttachedFile(VBMail.MapiMess.AttachmentPathName)
  257.     Else
  258.         MsgBox "Sample Application doesn't view OLE type Attachments"
  259.     End If
  260. End Sub
  261. Sub AttachWin_Resize ()
  262. '---------------------------------------------------
  263. '  Update the widths of the fields and adjust the line
  264. '  controls as needed.
  265. '---------------------------------------------------
  266.     aList.Width = AttachWin.Width - aList.Left - 315
  267. End Sub
  268. Sub Form_Activate ()
  269. '-----------------------------------------------------
  270. '   When the form is actived, update the mailLst.Mlist
  271. '   to reflect the current item (TAG property contains
  272. '   the index of the message currently viewed)
  273. '-----------------------------------------------------
  274.     MailLst.MList.ListIndex = Val(Me.Tag)
  275.     MailLst.MList.ItemData(Val(Me.Tag)) = True
  276.     VBMail.MapiMess.MsgIndex = Val(Me.Tag)
  277. End Sub
  278. Sub Form_Load ()
  279. '--- Ensure all resizing is done on startup
  280.     Call Picture1_Resize
  281.     Call AttachWin_Resize
  282.     Call Form_Resize
  283. End Sub
  284. Sub Form_Resize ()
  285. '--- Adjust the window size if we aren't minimized
  286.     Call SizeMessageWindow(Me)
  287. End Sub
  288. Sub Form_Unload (Cancel As Integer)
  289. '--------------------------------------------------------
  290. 'Tag will get set to -1 after the currenly viewed message
  291. 'is deleted
  292. '--------------------------------------------------------
  293.     If Val(Me.Tag) > 0 Then
  294.         MailLst.MList.ItemData(Val(Me.Tag)) = False
  295.     End If
  296. End Sub
  297. Sub Picture1_Resize ()
  298. '---------------------------------------------------
  299. '  Update the widths of the fields and adjust the line
  300. '  controls as needed.
  301. '---------------------------------------------------
  302.     TopLine.X2 = picture1.Width - 90
  303.     BottomLine.X2 = picture1.Width - 90
  304.     RightLine.X1 = picture1.Width - 90
  305.     RightLine.X2 = picture1.Width - 90
  306.     lf% = TxtTo.Left
  307.     TxtTo.Width = picture1.Width - 120 - lf%
  308.     txtDate.Width = picture1.Width - 120 - lf%
  309.     txtCC.Width = picture1.Width - 120 - lf%
  310.     txtSubject.Width = picture1.Width - 120 - lf%
  311.     txtFrom.Width = picture1.Width - 120 - lf%
  312.     picture1.Refresh
  313. End Sub
  314. Sub txtcc_KeyPress (KeyAscii As Integer)
  315. '--- Ignore All Keypresses
  316.     KeyAscii = 0
  317. End Sub
  318. Sub txtDate_KeyPress (KeyAscii As Integer)
  319. '--- Ignore All Keypresses
  320.     KeyAscii = 0
  321. End Sub
  322. Sub txtFrom_KeyPress (KeyAscii As Integer)
  323. '--- Ignore All Keypresses
  324.     KeyAscii = 0
  325. End Sub
  326. Sub txtNoteText_KeyPress (KeyAscii As Integer)
  327. '--- Ignore all keypresses
  328.     KeyAscii = 0
  329. End Sub
  330. Sub txtsubject_KeyPress (KeyAscii As Integer)
  331. '--- Ignore all keypresses
  332.      KeyAscii = 0
  333. End Sub
  334. Sub txtTo_KeyPress (KeyAscii As Integer)
  335. '--- Ignore all keypresses
  336.     KeyAscii = 0
  337. End Sub
  338.