home *** CD-ROM | disk | FTP | other *** search
/ Chip Special: HTML & Java / Chip-Special_1997-01_HTML-a-Java.bin / chatsdk / chatsdk.exe / SENDTOR.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-12  |  2.2 KB  |  77 lines
  1. VERSION 4.00
  2. Begin VB.Form SendToRoom 
  3.    BackColor       =   &H00FFFFC0&
  4.    Caption         =   "Send To Entire Room"
  5.    ClientHeight    =   3240
  6.    ClientLeft      =   2040
  7.    ClientTop       =   1995
  8.    ClientWidth     =   6690
  9.    Height          =   3645
  10.    Left            =   1980
  11.    LinkTopic       =   "SendToRoom"
  12.    ScaleHeight     =   3240
  13.    ScaleWidth      =   6690
  14.    Top             =   1650
  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 send:"
  53.       Height          =   205
  54.       Left            =   120
  55.       TabIndex        =   3
  56.       Top             =   120
  57.       Width           =   1455
  58.    End
  59. Attribute VB_Name = "SendToRoom"
  60. Attribute VB_Creatable = False
  61. Attribute VB_Exposed = False
  62. Option Explicit
  63. Private Sub cmdCancel_Click()
  64.     Unload SendToRoom
  65. End Sub
  66. Private Sub cmdOK_Click()
  67.     On Error Resume Next
  68.     If (txtMessage.Text <> "") Then
  69.         ExecC.MSChat.SendMessage -1, 0, Trim(txtMessage.Text)
  70.     End If
  71.     Unload SendToRoom
  72. End Sub
  73. Private Sub Form_Load()
  74.     On Error Resume Next
  75.     txtMessage.SetFocus
  76. End Sub
  77.