wincit/whoknows.frm

   1 VERSION 4.00
   2 Begin VB.Form WhoKnowsRoom
   3    Appearance      =   0  'Flat
   4    BackColor       =   &H00C0C0C0&
   5    BorderStyle     =   3  'Fixed Dialog
   6    Caption         =   "Who knows this room..."
   7    ClientHeight    =   3870
   8    ClientLeft      =   1530
   9    ClientTop       =   1440
  10    ClientWidth     =   6270
  11    ControlBox      =   0   'False
  12    BeginProperty Font
  13       name            =   "MS Sans Serif"
  14       charset         =   0
  15       weight          =   700
  16       size            =   8.25
  17       underline       =   0   'False
  18       italic          =   0   'False
  19       strikethrough   =   0   'False
  20    EndProperty
  21    ForeColor       =   &H80000008&
  22    Height          =   4275
  23    Left            =   1470
  24    LinkTopic       =   "Form1"
  25    MaxButton       =   0   'False
  26    MDIChild        =   -1  'True
  27    MinButton       =   0   'False
  28    ScaleHeight     =   3870
  29    ScaleWidth      =   6270
  30    Top             =   1095
  31    Width           =   6390
  32    Begin VB.CommandButton ok_button
  33       Appearance      =   0  'Flat
  34       BackColor       =   &H80000005&
  35       Caption         =   "OK"
  36       Height          =   492
  37       Left            =   4920
  38       TabIndex        =   1
  39       Top             =   3360
  40       Width           =   1332
  41    End
  42    Begin VB.ListBox TheList
  43       Appearance      =   0  'Flat
  44       BackColor       =   &H00C0C0C0&
  45       Height          =   3864
  46       Left            =   0
  47       Sorted          =   -1  'True
  48       TabIndex        =   0
  49       Top             =   0
  50       Width           =   4812
  51    End
  52 End
  53 Attribute VB_Name = "WhoKnowsRoom"
  54 Attribute VB_Creatable = False
  55 Attribute VB_Exposed = False
  56
  57 Private Sub Form_Load()
  58
  59
  60     Show
  61     WhoKnowsRoom.WindowState = 0
  62     WhoKnowsRoom.Top = Int((MainWin.Height - WhoKnowsRoom.Height) / 3)
  63     WhoKnowsRoom.Left = Int((MainWin.Width - WhoKnowsRoom.Width) / 2)
  64     DoEvents
  65
  66 If begin_trans() = True Then
  67
  68     serv_puts ("WHOK")
  69     a$ = serv_gets()
  70     WhoKnowsRoom.Caption = Right$(a$, Len(a$) - 4)
  71     If Left$(a$, 1) = "1" Then
  72         Do
  73             a$ = serv_gets()
  74             If (a$ <> "000") Then TheList.AddItem (a$)
  75             Loop Until a$ = "000"
  76         End If
  77     Call end_trans
  78     End If
  79
  80 End Sub
  81
  82 Private Sub ok_button_Click()
  83     Unload WhoKnowsRoom
  84     Load RoomPrompt
  85 End Sub
  86