home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Open_SubSe53811272002.psc / Form5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-03-07  |  2.5 KB  |  87 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form Form5 
  4.    BackColor       =   &H00000000&
  5.    Caption         =   "Matrix"
  6.    ClientHeight    =   3375
  7.    ClientLeft      =   9915
  8.    ClientTop       =   6765
  9.    ClientWidth     =   4695
  10.    Icon            =   "Form5.frx":0000
  11.    LinkTopic       =   "Form5"
  12.    ScaleHeight     =   3375
  13.    ScaleWidth      =   4695
  14.    Begin VB.TextBox Text4 
  15.       Height          =   1455
  16.       Left            =   0
  17.       MultiLine       =   -1  'True
  18.       ScrollBars      =   2  'Vertical
  19.       TabIndex        =   3
  20.       Top             =   0
  21.       Width           =   4695
  22.    End
  23.    Begin VB.TextBox Text3 
  24.       Height          =   375
  25.       Left            =   0
  26.       TabIndex        =   2
  27.       Text            =   "Client"
  28.       Top             =   3000
  29.       Width           =   975
  30.    End
  31.    Begin MSWinsockLib.Winsock Winsock1 
  32.       Left            =   4320
  33.       Top             =   2760
  34.       _ExtentX        =   741
  35.       _ExtentY        =   741
  36.       _Version        =   393216
  37.    End
  38.    Begin VB.TextBox Text2 
  39.       Height          =   1575
  40.       Left            =   0
  41.       MultiLine       =   -1  'True
  42.       ScrollBars      =   2  'Vertical
  43.       TabIndex        =   1
  44.       Top             =   1440
  45.       Width           =   4695
  46.    End
  47.    Begin VB.TextBox Text1 
  48.       Height          =   405
  49.       Left            =   960
  50.       TabIndex        =   0
  51.       Top             =   3000
  52.       Width           =   3735
  53.    End
  54. Attribute VB_Name = "Form5"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Private Sub Form_Load()
  60. Winsock1.Close
  61. Winsock1.Connect Form1.Text1.Text, 7215
  62. End Sub
  63. Private Sub Form_Unload(Cancel As Integer)
  64. Winsock1.Close
  65. End Sub
  66. Private Sub Text1_KeyPress(KeyAscii As Integer)
  67. If KeyAscii = 13 Then
  68. KeyAscii = 0
  69. Winsock1.SendData "<" & Text3.Text & ">" & Text1.Text
  70. Text4.Text = Text4.Text & vbCrLf & "<" & Text3.Text & ">" & Text1.Text
  71. Text1.Text = ""
  72. End If
  73. End Sub
  74. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  75. Dim a As String
  76. Winsock1.GetData a
  77. a = Replace(a, "
  78. ", vbCrLf)
  79. a = Replace(a, "
  80. ", "(Delete)")
  81. Text2.Text = Text2.Text & a
  82. End Sub
  83. Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  84. MsgBox Description
  85. Winsock1.Close
  86. End Sub
  87.