home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group5 / DEMOMDI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-08  |  2.9 KB  |  102 lines
  1. VERSION 2.00
  2. Begin MDIForm SessionForm 
  3.    Caption         =   "Mail X for Visual Basic"
  4.    ClientHeight    =   5340
  5.    ClientLeft      =   1065
  6.    ClientTop       =   1815
  7.    ClientWidth     =   7050
  8.    Height          =   6000
  9.    Left            =   1020
  10.    LinkTopic       =   "MDIForm1"
  11.    Top             =   1200
  12.    Width           =   7140
  13.    Begin SSPanel Panel3D1 
  14.       Align           =   1  'Align Top
  15.       BevelInner      =   1  'Inset
  16.       Height          =   645
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   0
  20.       Width           =   7050
  21.       Begin MForm MForm1 
  22.          Height          =   255
  23.          Left            =   4560
  24.          MXFormName      =   "FormTag2"
  25.          Top             =   120
  26.          Width           =   1935
  27.       End
  28.       Begin MSess MSess1 
  29.          DefaultPath     =   ""
  30.          DisplayErrors   =   -1  'True
  31.          DownLoadMsg     =   -1  'True
  32.          Height          =   420
  33.          Left            =   3720
  34.          LogonUI         =   -1  'True
  35.          Mail_Type       =   0  '0- NONE
  36.          MapiCustomLibName=   ""
  37.          NewSession      =   -1  'True
  38.          Password        =   ""
  39.          Top             =   120
  40.          User            =   ""
  41.          Width           =   420
  42.       End
  43.       Begin CommandButton BtnNewMsg 
  44.          Caption         =   "New Msg"
  45.          Height          =   390
  46.          Left            =   1395
  47.          TabIndex        =   2
  48.          Top             =   120
  49.          Width           =   1200
  50.       End
  51.       Begin CommandButton Tb_Inbox 
  52.          Caption         =   "Inbox"
  53.          Height          =   390
  54.          Left            =   120
  55.          TabIndex        =   1
  56.          Top             =   120
  57.          Width           =   1215
  58.       End
  59.    End
  60.    Begin Menu Session 
  61.       Caption         =   "&Session"
  62.       Begin Menu InboxList 
  63.          Caption         =   "&Inbox List"
  64.       End
  65.    End
  66.    Begin Menu Message 
  67.       Caption         =   "&Message"
  68.       Begin Menu NewMail 
  69.          Caption         =   "&New Mail"
  70.       End
  71.    End
  72. Sub BtnNewMsg_Click ()
  73.     NewMail_Click
  74. End Sub
  75. Sub Command1_Click ()
  76. End Sub
  77. Sub InboxList_Click ()
  78.     Dim NewInboxList As New InboxForm
  79.     NewInboxList.Show
  80. End Sub
  81. Sub MDIForm_Load ()
  82.     Load SystemX
  83.     SystemX.MSMAIL = True
  84.     SystemX.Show 1
  85.     MSess1.Logon = True
  86.     If MSess1.Logon = False Then End
  87. End Sub
  88. Sub NewMail_Click ()
  89.     Dim MsgWnd As New MsgForm
  90.     MsgWnd.szTime.Enabled = False
  91.     MsgWnd.szMsgID.Enabled = False
  92.     MsgWnd.szOriginator.Enabled = False
  93.     MsgWnd.szFileList.Enabled = False
  94.     MsgWnd.btnReply.Enabled = False
  95.     MsgWnd.BtnForward.Enabled = False
  96.     MsgWnd.MMsg1.WorkingMsg = COMPOSE_MSG
  97.     MsgWnd.Show
  98. End Sub
  99. Sub Tb_Inbox_Click ()
  100.     InboxList_Click
  101. End Sub
  102.