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