wincit/userlist.frm

   1 VERSION 4.00
   2 Begin VB.Form UserList
   3    Appearance      =   0  'Flat
   4    BackColor       =   &H00C0C0C0&
   5    BorderStyle     =   3  'Fixed Dialog
   6    Caption         =   "User Listing"
   7    ClientHeight    =   5430
   8    ClientLeft      =   1440
   9    ClientTop       =   1425
  10    ClientWidth     =   6270
  11    ClipControls    =   0   'False
  12    ControlBox      =   0   'False
  13    BeginProperty Font
  14       name            =   "MS Sans Serif"
  15       charset         =   0
  16       weight          =   700
  17       size            =   8.25
  18       underline       =   0   'False
  19       italic          =   0   'False
  20       strikethrough   =   0   'False
  21    EndProperty
  22    ForeColor       =   &H80000008&
  23    Height          =   5835
  24    Left            =   1380
  25    LinkTopic       =   "Form1"
  26    MaxButton       =   0   'False
  27    MDIChild        =   -1  'True
  28    MinButton       =   0   'False
  29    ScaleHeight     =   5430
  30    ScaleWidth      =   6270
  31    Top             =   1080
  32    Width           =   6390
  33    WindowState     =   2  'Maximized
  34    Begin VB.CommandButton ok_button
  35       Appearance      =   0  'Flat
  36       BackColor       =   &H80000005&
  37       Caption         =   "OK"
  38       Height          =   492
  39       Left            =   4920
  40       TabIndex        =   1
  41       Top             =   4920
  42       Width           =   1332
  43    End
  44    Begin VB.ListBox TheList
  45       Appearance      =   0  'Flat
  46       BackColor       =   &H00C0C0C0&
  47       BeginProperty Font
  48          name            =   "MS Sans Serif"
  49          charset         =   0
  50          weight          =   400
  51          size            =   12
  52          underline       =   0   'False
  53          italic          =   0   'False
  54          strikethrough   =   0   'False
  55       EndProperty
  56       Height          =   5424
  57       Left            =   0
  58       Sorted          =   -1  'True
  59       TabIndex        =   0
  60       Top             =   0
  61       Width           =   4812
  62    End
  63 End
  64 Attribute VB_Name = "UserList"
  65 Attribute VB_Creatable = False
  66 Attribute VB_Exposed = False
  67
  68 Private Sub Form_Load()
  69
  70
  71     Show
  72     UserList.WindowState = 0
  73     UserList.Top = Int((MainWin.Height - UserList.Height) / 3)
  74     UserList.Left = Int((MainWin.Width - UserList.Width) / 2)
  75     DoEvents
  76
  77 If begin_trans() = True Then
  78
  79     serv_puts ("LIST")
  80     a$ = serv_gets()
  81     If Left$(a$, 1) = "1" Then
  82         UserList.Caption = "Total number of users: " + Right$(a$, Len(a$) - 4)
  83     Else
  84         UserList.Caption = Right$(a$, Len(a$) - 4)
  85         End If
  86     If Left$(a$, 1) = "1" Then
  87         Do
  88             a$ = serv_gets()
  89             If (a$ <> "000") Then TheList.AddItem (extract(a$, 0))
  90             DoEvents
  91             Loop Until a$ = "000"
  92         End If
  93     Call end_trans
  94     End If
  95
  96 End Sub
  97
  98 Private Sub ok_button_Click()
  99     Unload UserList
 100     Load RoomPrompt
 101 End Sub
 102