home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap25 / vbu2503b.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-13  |  2.3 KB  |  79 lines
  1. VERSION 4.00
  2. Begin VB.Form Reader 
  3.    Caption         =   "Read Message"
  4.    ClientHeight    =   4905
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6690
  8.    Height          =   5310
  9.    Left            =   1080
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   4905
  12.    ScaleWidth      =   6690
  13.    Top             =   1170
  14.    Width           =   6810
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "&Close"
  17.       Height          =   300
  18.       Left            =   5340
  19.       TabIndex        =   2
  20.       Top             =   4440
  21.       Width           =   1200
  22.    End
  23.    Begin VB.TextBox Text1 
  24.       Height          =   3075
  25.       Left            =   120
  26.       MultiLine       =   -1  'True
  27.       ScrollBars      =   2  'Vertical
  28.       TabIndex        =   0
  29.       Text            =   "vbu2503b.frx":0000
  30.       Top             =   1200
  31.       Width           =   6435
  32.    End
  33.    Begin VB.Label Label1 
  34.       BorderStyle     =   1  'Fixed Single
  35.       Caption         =   "Label1"
  36.       BeginProperty Font 
  37.          name            =   "MS LineDraw"
  38.          charset         =   2
  39.          weight          =   400
  40.          size            =   9.75
  41.          underline       =   0   'False
  42.          italic          =   0   'False
  43.          strikethrough   =   0   'False
  44.       EndProperty
  45.       Height          =   1035
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   180
  49.       Width           =   6435
  50.    End
  51. Attribute VB_Name = "Reader"
  52. Attribute VB_Creatable = False
  53. Attribute VB_Exposed = False
  54. Option Explicit
  55. Private Sub Command1_Click()
  56.     Unload Me
  57. End Sub
  58. Private Sub Form_Load()
  59.     '
  60.     ' load message into form
  61.     '
  62.     On Error GoTo FormLoadErr
  63.     '
  64.     Label1 = "Date:     " + Main.MAPIMessages1.MsgDateReceived + Chr(13)
  65.     Label1 = Label1 + "From:     " + Main.MAPIMessages1.MsgOrigDisplayName + Chr(13)
  66.     Label1 = Label1 + "Subject:  " + Main.MAPIMessages1.MsgSubject + Chr(13)
  67.     '
  68.     Text1 = Main.MAPIMessages1.MsgNoteText
  69.     '
  70.     Exit Sub
  71.     '
  72. FormLoadErr:
  73.     MsgBox Error$, vbCritical, "Error Code: " + Str(Err)
  74.     Unload Me
  75. End Sub
  76. Private Sub Text1_KeyPress(KeyAscii As Integer)
  77.     KeyAscii = 0    ' ignore all keys
  78. End Sub
  79.