Information Technology Reference
In-Depth Information
Private Sub myTCPServer_DataArrival(ByVal bytesTotal As Long)
'Read incoming data into the str variable,
'then display it to ShowText
Dim str As String
myTCPServer.GetData str
ShowText.Text = str
End Sub
Private Sub CloseS_Click()
'Return to main menu
ChoiceSC.Show
End Sub
Private Sub DisConnect_Click()
myTCPServer.Close
ConnectionState.Text = "Disconnected"
CloseS.Enabled = True
DisConnect.Enabled = False
End Sub
J.3 Choice form (ChoiceSC.frm)
VERSION 5.00
Begin VB.Form ChoiceSC
Caption = "Server or Client?"
ClientHeight = 1530
ClientLeft = 60
ClientTop = 345
ClientWidth = 4125
LinkTopic = "Form1"
MaxButton = 0 'False
Moveable = 0 'False
ScaleHeight = 1530
ScaleWidth = 4125
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton Client1
Caption = "Client"
Height = 375
Left = 2160
TabIndex = 2
Top = 720
Width = 1215
End
Begin VB.CommandButton Server1
Caption = "Server"
Height = 375
Left = 840
TabIndex = 1
Top = 720
Width = 1215
End
Begin VB.Label CopyRight0
Caption = "email_address"
Enabled = 0 'False
BeginProperty Font
Name = "Times New Roman"
