home *** CD-ROM | disk | FTP | other *** search
/ Chip Special: HTML & Java / Chip-Special_1997-01_HTML-a-Java.bin / chatsdk / chatsdk.exe / WHISPTOG.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-12  |  2.3 KB  |  80 lines
  1. VERSION 4.00
  2. Begin VB.Form WhispToGuest 
  3.    BackColor       =   &H00FFFFC0&
  4.    Caption         =   "Whisper to the Special Guest"
  5.    ClientHeight    =   3240
  6.    ClientLeft      =   2025
  7.    ClientTop       =   1980
  8.    ClientWidth     =   6690
  9.    Height          =   3645
  10.    Left            =   1965
  11.    LinkTopic       =   "WhispToGuest"
  12.    ScaleHeight     =   3240
  13.    ScaleWidth      =   6690
  14.    Top             =   1635
  15.    Width           =   6810
  16.    Begin VB.TextBox txtMessage 
  17.       BeginProperty Font 
  18.          name            =   "MS Sans Serif"
  19.          charset         =   0
  20.          weight          =   400
  21.          size            =   9.75
  22.          underline       =   0   'False
  23.          italic          =   0   'False
  24.          strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   2295
  27.       Left            =   120
  28.       MultiLine       =   -1  'True
  29.       ScrollBars      =   2  'Vertical
  30.       TabIndex        =   0
  31.       Top             =   360
  32.       Width           =   6495
  33.    End
  34.    Begin VB.CommandButton cmdCancel 
  35.       Caption         =   "Cancel"
  36.       Height          =   375
  37.       Left            =   5760
  38.       TabIndex        =   2
  39.       Top             =   2760
  40.       Width           =   855
  41.    End
  42.    Begin VB.CommandButton cmdOK 
  43.       Caption         =   "OK"
  44.       Height          =   375
  45.       Left            =   4680
  46.       TabIndex        =   1
  47.       Top             =   2760
  48.       Width           =   855
  49.    End
  50.    Begin VB.Label Label1 
  51.       BackColor       =   &H00FFFFC0&
  52.       Caption         =   "Message to whisper:"
  53.       Height          =   205
  54.       Left            =   120
  55.       TabIndex        =   3
  56.       Top             =   120
  57.       Width           =   1575
  58.    End
  59. Attribute VB_Name = "WhispToGuest"
  60. Attribute VB_Creatable = False
  61. Attribute VB_Exposed = False
  62. Option Explicit
  63. Private Sub cmdCancel_Click()
  64.     Unload WhispToGuest
  65. End Sub
  66. Private Sub cmdOK_Click()
  67.     On Error GoTo errOK
  68.     If (txtMessage.Text <> "") Then
  69.         ExecC.MSChat.SendMessage lGuestID, 1, Trim(txtMessage.Text)
  70.     End If
  71.     Unload WhispToGuest
  72.     Exit Sub
  73. errOK:
  74.     DisplayError "WhisperToGuest.cmdOK_Click"
  75. End Sub
  76. Private Sub Form_Load()
  77.     On Error Resume Next
  78.     txtMessage.SetFocus
  79. End Sub
  80.