home *** CD-ROM | disk | FTP | other *** search
/ Chip Special: HTML & Java / Chip-Special_1997-01_HTML-a-Java.bin / chatsdk / chatsdk.exe / ECKICBAN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-12  |  6.4 KB  |  210 lines
  1. VERSION 4.00
  2. Begin VB.Form KickBan 
  3.    BackColor       =   &H00C0FFC0&
  4.    Caption         =   "Kick, Ban and Re-instate Participant"
  5.    ClientHeight    =   6690
  6.    ClientLeft      =   1125
  7.    ClientTop       =   1620
  8.    ClientWidth     =   5745
  9.    Height          =   7095
  10.    Left            =   1065
  11.    LinkTopic       =   "KickBan"
  12.    ScaleHeight     =   6690
  13.    ScaleWidth      =   5745
  14.    Top             =   1275
  15.    Width           =   5865
  16.    Begin VB.CommandButton cmdOK 
  17.       Caption         =   "OK"
  18.       Default         =   -1  'True
  19.       Height          =   375
  20.       Left            =   4440
  21.       TabIndex        =   5
  22.       Top             =   6240
  23.       Width           =   1215
  24.    End
  25.    Begin VB.CommandButton cmdReinstate 
  26.       Caption         =   "Re-instate Participant"
  27.       Height          =   375
  28.       Left            =   3720
  29.       TabIndex        =   4
  30.       Top             =   5640
  31.       Width           =   1935
  32.    End
  33.    Begin VB.TextBox txtAlias 
  34.       Height          =   405
  35.       Left            =   120
  36.       TabIndex        =   2
  37.       Top             =   5040
  38.       Width           =   5535
  39.    End
  40.    Begin VB.CommandButton cmdBanParticipant 
  41.       Caption         =   "Ban Participant"
  42.       Height          =   375
  43.       Left            =   1560
  44.       TabIndex        =   3
  45.       Top             =   5640
  46.       Width           =   1935
  47.    End
  48.    Begin VB.TextBox txtKickReason 
  49.       Height          =   375
  50.       Left            =   120
  51.       TabIndex        =   0
  52.       Top             =   2040
  53.       Width           =   5535
  54.    End
  55.    Begin VB.CommandButton cmdKickParticipant 
  56.       Caption         =   "Kick Participant"
  57.       Height          =   375
  58.       Left            =   3720
  59.       TabIndex        =   1
  60.       Top             =   2640
  61.       Width           =   1935
  62.    End
  63.    Begin VB.Line Line2 
  64.       X1              =   5640
  65.       X2              =   120
  66.       Y1              =   6120
  67.       Y2              =   6120
  68.    End
  69.    Begin VB.Label Label9 
  70.       BackColor       =   &H00C0FFC0&
  71.       Caption         =   "Participant Alias:"
  72.       Height          =   255
  73.       Left            =   120
  74.       TabIndex        =   14
  75.       Top             =   4800
  76.       Width           =   1335
  77.    End
  78.    Begin VB.Label Label8 
  79.       BackColor       =   &H00C0FFC0&
  80.       Caption         =   "2. Click the 'Ban Participant' or 'Re-instate Participant' button."
  81.       Height          =   255
  82.       Left            =   120
  83.       TabIndex        =   13
  84.       Top             =   4320
  85.       Width           =   5535
  86.    End
  87.    Begin VB.Label Label7 
  88.       BackColor       =   &H00C0FFC0&
  89.       Caption         =   "1. Type the alias of the participant to ban or re-instate."
  90.       Height          =   255
  91.       Left            =   120
  92.       TabIndex        =   12
  93.       Top             =   3840
  94.       Width           =   5535
  95.    End
  96.    Begin VB.Label Label6 
  97.       BackColor       =   &H00C0FFC0&
  98.       Caption         =   "To ban or re-instate a participant:"
  99.       BeginProperty Font 
  100.          name            =   "MS Sans Serif"
  101.          charset         =   0
  102.          weight          =   700
  103.          size            =   8.25
  104.          underline       =   0   'False
  105.          italic          =   0   'False
  106.          strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   255
  109.       Left            =   120
  110.       TabIndex        =   11
  111.       Top             =   3360
  112.       Width           =   5535
  113.    End
  114.    Begin VB.Label Label5 
  115.       BackColor       =   &H00C0FFC0&
  116.       Caption         =   "To kick a participant:"
  117.       BeginProperty Font 
  118.          name            =   "MS Sans Serif"
  119.          charset         =   0
  120.          weight          =   700
  121.          size            =   8.25
  122.          underline       =   0   'False
  123.          italic          =   0   'False
  124.          strikethrough   =   0   'False
  125.       EndProperty
  126.       Height          =   255
  127.       Left            =   120
  128.       TabIndex        =   10
  129.       Top             =   120
  130.       Width           =   5535
  131.    End
  132.    Begin VB.Line Line1 
  133.       X1              =   5640
  134.       X2              =   120
  135.       Y1              =   3120
  136.       Y2              =   3120
  137.    End
  138.    Begin VB.Label Label4 
  139.       BackColor       =   &H00C0FFC0&
  140.       Caption         =   "Kick Reason:"
  141.       Height          =   255
  142.       Left            =   120
  143.       TabIndex        =   9
  144.       Top             =   1800
  145.       Width           =   1095
  146.    End
  147.    Begin VB.Label Label3 
  148.       BackColor       =   &H00C0FFC0&
  149.       Caption         =   "3. Click the 'Kick Participant' button."
  150.       Height          =   255
  151.       Left            =   120
  152.       TabIndex        =   8
  153.       Top             =   1320
  154.       Width           =   5535
  155.    End
  156.    Begin VB.Label Label2 
  157.       BackColor       =   &H00C0FFC0&
  158.       Caption         =   "2. Enter the optinal kick reason."
  159.       Height          =   255
  160.       Left            =   120
  161.       TabIndex        =   7
  162.       Top             =   960
  163.       Width           =   5535
  164.    End
  165.    Begin VB.Label Label1 
  166.       BackColor       =   &H00C0FFC0&
  167.       Caption         =   "1. Select the participant you want to kick in the control's member list box."
  168.       Height          =   255
  169.       Left            =   120
  170.       TabIndex        =   6
  171.       Top             =   600
  172.       Width           =   5535
  173.    End
  174. Attribute VB_Name = "KickBan"
  175. Attribute VB_Creatable = False
  176. Attribute VB_Exposed = False
  177. Option Explicit
  178. Private Sub cmdBanParticipant_Click()
  179.     On Error GoTo errBanPart
  180.     If (txtAlias.Text <> "") Then
  181.         ExecC.MSChat.BanParticipant txtAlias.Text, True
  182.     Else
  183.         MsgBox "Please enter the alias of the participant to ban and try again."
  184.     End If
  185.     Exit Sub
  186. errBanPart:
  187.     Hide
  188. End Sub
  189. Private Sub cmdKickParticipant_Click()
  190.     On Error GoTo errKickPart
  191.     ExecC.MSChat.KickParticipant -1, txtKickReason.Text
  192.     Exit Sub
  193. errKickPart:
  194.     Hide
  195. End Sub
  196. Private Sub cmdOK_Click()
  197.     Hide
  198. End Sub
  199. Private Sub cmdReinstate_Click()
  200.     On Error GoTo errReinstate
  201.     If (txtAlias.Text <> "") Then
  202.         ExecC.MSChat.BanParticipant txtAlias.Text, False
  203.     Else
  204.         MsgBox "Please enter the alias of the participant to re-instate and try again."
  205.     End If
  206.     Exit Sub
  207. errReinstate:
  208.     Hide
  209. End Sub
  210.