wincit/recp.frm

   1 VERSION 4.00
   2 Begin VB.Form Recipient
   3    Appearance      =   0  'Flat
   4    BackColor       =   &H00C0C0C0&
   5    BorderStyle     =   3  'Fixed Dialog
   6    ClientHeight    =   1530
   7    ClientLeft      =   870
   8    ClientTop       =   1530
   9    ClientWidth     =   6420
  10    ControlBox      =   0   'False
  11    BeginProperty Font
  12       name            =   "MS Sans Serif"
  13       charset         =   0
  14       weight          =   700
  15       size            =   8.25
  16       underline       =   0   'False
  17       italic          =   0   'False
  18       strikethrough   =   0   'False
  19    EndProperty
  20    ForeColor       =   &H80000008&
  21    Height          =   1935
  22    Left            =   810
  23    LinkTopic       =   "Form1"
  24    MaxButton       =   0   'False
  25    MDIChild        =   -1  'True
  26    MinButton       =   0   'False
  27    ScaleHeight     =   1530
  28    ScaleWidth      =   6420
  29    Top             =   1185
  30    Width           =   6540
  31    Begin Threed.SSPanel StatMsg
  32       Height          =   495
  33       Left            =   120
  34       TabIndex        =   4
  35       Top             =   960
  36       Width           =   3735
  37       _Version        =   65536
  38       _ExtentX        =   6588
  39       _ExtentY        =   873
  40       _StockProps     =   15
  41       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  42          name            =   "MS Sans Serif"
  43          charset         =   0
  44          weight          =   400
  45          size            =   8.25
  46          underline       =   0   'False
  47          italic          =   0   'False
  48          strikethrough   =   0   'False
  49       EndProperty
  50       BevelWidth      =   4
  51       BorderWidth     =   5
  52       BevelOuter      =   1
  53    End
  54    Begin VB.CommandButton ok_button
  55       Appearance      =   0  'Flat
  56       BackColor       =   &H80000005&
  57       Caption         =   "&OK"
  58       Height          =   492
  59       Left            =   3960
  60       TabIndex        =   3
  61       Top             =   960
  62       Width           =   1092
  63    End
  64    Begin VB.CommandButton cancel_button
  65       Appearance      =   0  'Flat
  66       BackColor       =   &H80000005&
  67       Caption         =   "&Cancel"
  68       Height          =   492
  69       Left            =   5160
  70       TabIndex        =   2
  71       Top             =   960
  72       Width           =   1212
  73    End
  74    Begin Threed.SSFrame Frame3D1
  75       Height          =   855
  76       Left            =   120
  77       TabIndex        =   1
  78       Top             =   0
  79       Width           =   6255
  80       _Version        =   65536
  81       _ExtentX        =   11033
  82       _ExtentY        =   1508
  83       _StockProps     =   14
  84       Caption         =   "Enter recipient:"
  85       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  86          name            =   "MS Sans Serif"
  87          charset         =   0
  88          weight          =   400
  89          size            =   9.75
  90          underline       =   0   'False
  91          italic          =   0   'False
  92          strikethrough   =   0   'False
  93       EndProperty
  94       Begin VB.TextBox recpname
  95          Alignment       =   2  'Center
  96          Appearance      =   0  'Flat
  97          BackColor       =   &H00C0C0C0&
  98          BorderStyle     =   0  'None
  99          BeginProperty Font
 100             name            =   "MS Sans Serif"
 101             charset         =   0
 102             weight          =   700
 103             size            =   12
 104             underline       =   0   'False
 105             italic          =   0   'False
 106             strikethrough   =   0   'False
 107          EndProperty
 108          Height          =   372
 109          Left            =   120
 110          TabIndex        =   0
 111          Top             =   360
 112          Width           =   6012
 113       End
 114    End
 115 End
 116 Attribute VB_Name = "Recipient"
 117 Attribute VB_Creatable = False
 118 Attribute VB_Exposed = False
 119
 120 Private Sub cancel_button_Click()
 121     Unload Recipient
 122     Load RoomPrompt
 123 End Sub
 124
 125 Private Sub Form_Load()
 126
 127     Recipient.WindowState = 0
 128     Recipient.Top = Abs((MainWin.Height - Recipient.Height) / 3)
 129     Recipient.Left = Abs((MainWin.Left - Recipient.Width) / 2)
 130     Show
 131
 132 End Sub
 133
 134 Private Sub ok_button_Click()
 135
 136     If begin_trans() = True Then
 137         serv_puts ("ENT0 0|" + recpname.Text)
 138         a$ = serv_gets()
 139         Call end_trans
 140         If Left$(a$, 1) = "2" Then
 141             recp$ = recpname.Text
 142             Unload Recipient
 143             Load EnterMessage
 144         Else
 145             statmsg.Caption = Right$(a$, Len(a$) - 4)
 146             End If
 147         End If
 148
 149 End Sub
 150
 151 Private Sub recpname_KeyPress(keyascii As Integer)
 152     If keyascii = 13 Then Call ok_button_Click
 153     If keyascii = 27 Then Call cancel_button_Click
 154 End Sub
 155