On Hand/On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso/00202/s/disk3/msgview.fr_/msgview.bin

Text File | 1993-04-28 | 11KB | 352 lines

VERSION 2.00
Begin Form MsgView
   Caption         =   "Mail Message"
   ClientHeight    =   4380
   ClientLeft      =   2475
   ClientTop       =   2340
   ClientWidth     =   6210
   Height          =   4785
   Icon            =   MSGVIEW.FRX:0000
   Left            =   2415
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   4380
   ScaleWidth      =   6210
   Top             =   1995
   Width           =   6330
   Begin PictureBox AttachWin
      Align           =   2  'Align Bottom
      BackColor       =   &H00C0C0C0&
      Height          =   825
      Left            =   0
      ScaleHeight     =   795
      ScaleWidth      =   6180
      TabIndex        =   12
      Top             =   3555
      Visible         =   0   'False
      Width           =   6210
      Begin ListBox aList
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   420
         Left            =   240
         TabIndex        =   14
         Top             =   300
         Width           =   5835
      End
      Begin Label NumAtt
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Left            =   1200
         TabIndex        =   15
         Top             =   60
         Width           =   45
      End
      Begin Label Label6
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Attachments:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Left            =   60
         TabIndex        =   13
         Top             =   60
         Width           =   930
      End
   End
   Begin TextBox txtNoteText
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1815
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   1740
      Width           =   6195
   End
   Begin PictureBox Picture1
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      Height          =   1755
      Left            =   0
      ScaleHeight     =   1725
      ScaleWidth      =   6180
      TabIndex        =   6
      Top             =   0
      Width           =   6210
      Begin TextBox txtsubject
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   900
         TabIndex        =   5
         Top             =   1320
         Width           =   4995
      End
      Begin TextBox txtcc
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   900
         TabIndex        =   4
         Top             =   1020
         Width           =   4995
      End
      Begin TextBox txtTo
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   900
         TabIndex        =   3
         Top             =   720
         Width           =   4995
      End
      Begin TextBox txtDate
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   900
         TabIndex        =   2
         Top             =   420
         Width           =   4995
      End
      Begin TextBox txtFrom
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   900
         TabIndex        =   1
         Top             =   120
         Width           =   4995
      End
      Begin Label Label5
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Subject:"
         Height          =   195
         Left            =   120
         TabIndex        =   11
         Top             =   1320
         Width           =   720
      End
      Begin Label Label4
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Cc:"
         Height          =   195
         Left            =   120
         TabIndex        =   10
         Top             =   1020
         Width           =   300
      End
      Begin Label Label3
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "To:"
         Height          =   195
         Left            =   120
         TabIndex        =   9
         Top             =   720
         Width           =   300
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Date:"
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   420
         Width           =   480
      End
      Begin Label Label1
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "From:"
         Height          =   195
         Left            =   120
         TabIndex        =   7
         Top             =   120
         Width           =   480
      End
      Begin Line RightLine
         BorderColor     =   &H00FFFFFF&
         X1              =   6000
         X2              =   6000
         Y1              =   60
         Y2              =   1620
      End
      Begin Line BottomLine
         BorderColor     =   &H00FFFFFF&
         X1              =   60
         X2              =   6000
         Y1              =   1620
         Y2              =   1620
      End
      Begin Line TopLine
         BorderColor     =   &H00808080&
         X1              =   60
         X2              =   5940
         Y1              =   60
         Y2              =   60
      End
      Begin Line LeftLine
         BorderColor     =   &H00808080&
         X1              =   60
         X2              =   60
         Y1              =   60
         Y2              =   1620
      End
   End
End
Sub aList_DblClick ()
    '---- ListIndex is the index into the attachment list
    VBMail.MapiMess.AttachmentIndex = aList.ListIndex
    If VBMail.MapiMess.AttachmentType = MAPI_ATT_File Then
        Call DisplayAttachedFile(VBMail.MapiMess.AttachmentPathName)
    Else
        MsgBox "Sample Application doesn't view OLE type Attachments"
    End If
End Sub

Sub AttachWin_Resize ()
'---------------------------------------------------
'  Update the widths of the fields and adjust the line
'  controls as needed.
'---------------------------------------------------
    aList.Width = AttachWin.Width - aList.Left - 315
End Sub

Sub Form_Activate ()
'-----------------------------------------------------
'   When the form is actived, update the mailLst.Mlist
'   to reflect the current item (TAG property contains
'   the index of the message currently viewed)
'-----------------------------------------------------
    MailLst.MList.ListIndex = Val(Me.Tag)
    MailLst.MList.ItemData(Val(Me.Tag)) = True
    VBMail.MapiMess.MsgIndex = Val(Me.Tag)
End Sub

Sub Form_Load ()
'--- Ensure all resizing is done on startup
    Call Picture1_Resize
    Call AttachWin_Resize
    Call Form_Resize
End Sub

Sub Form_Resize ()
'--- Adjust the window size if we aren't minimized
    Call SizeMessageWindow(Me)
End Sub

Sub Form_Unload (Cancel As Integer)
'--------------------------------------------------------
'Tag will get set to -1 after the currenly viewed message
'is deleted
'--------------------------------------------------------
    If Val(Me.Tag) > 0 Then
        MailLst.MList.ItemData(Val(Me.Tag)) = False
    End If
End Sub

Sub Picture1_Resize ()
'---------------------------------------------------
'  Update the widths of the fields and adjust the line
'  controls as needed.
'---------------------------------------------------
    TopLine.X2 = picture1.Width - 90
    BottomLine.X2 = picture1.Width - 90
    RightLine.X1 = picture1.Width - 90
    RightLine.X2 = picture1.Width - 90
    lf% = TxtTo.Left
    TxtTo.Width = picture1.Width - 120 - lf%
    txtDate.Width = picture1.Width - 120 - lf%
    txtCC.Width = picture1.Width - 120 - lf%
    txtSubject.Width = picture1.Width - 120 - lf%
    txtFrom.Width = picture1.Width - 120 - lf%
    picture1.Refresh
End Sub

Sub txtcc_KeyPress (KeyAscii As Integer)
'--- Ignore All Keypresses
    KeyAscii = 0
End Sub

Sub txtDate_KeyPress (KeyAscii As Integer)
'--- Ignore All Keypresses
    KeyAscii = 0
End Sub

Sub txtFrom_KeyPress (KeyAscii As Integer)
'--- Ignore All Keypresses
    KeyAscii = 0
End Sub

Sub txtNoteText_KeyPress (KeyAscii As Integer)
'--- Ignore all keypresses
    KeyAscii = 0
End Sub

Sub txtsubject_KeyPress (KeyAscii As Integer)
'--- Ignore all keypresses
     KeyAscii = 0
End Sub

Sub txtTo_KeyPress (KeyAscii As Integer)
'--- Ignore all keypresses
    KeyAscii = 0
End Sub