frmserver.frm

vb编程+从基础到实践光盘代码

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmServer 
   Caption         =   "TCP服务器"
   ClientHeight    =   3900
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5505
   LinkTopic       =   "Form1"
   ScaleHeight     =   3900
   ScaleWidth      =   5505
   StartUpPosition =   3  '窗口缺省
   Begin MSWinsockLib.Winsock tcpserver 
      Left            =   3240
      Top             =   3120
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.TextBox txtOutput 
      Height          =   495
      Left            =   1800
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   1920
      Width           =   3135
   End
   Begin VB.TextBox txtSendData 
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   360
      Width           =   3135
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "接受的数据"
      Height          =   180
      Left            =   360
      TabIndex        =   3
      Top             =   2160
      Width           =   900
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "发送的数据"
      Height          =   180
      Left            =   240
      TabIndex        =   2
      Top             =   480
      Width           =   900
   End
End
Attribute VB_Name = "frmServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    '将 LocalPort 属性设置为一个整数。
    '然后调用 Listen 方法。
    tcpserver.LocalPort = 1001
    tcpserver.Listen
    frmClient.Show '显示客户端的窗体。
    
End Sub

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
    '检查控件的 State 属性是否为关闭的。
    '如果不是，
    '在接受新的连接之前先关闭此连接。
    If tcpserver.State <> sckClosed Then tcpserver.Close
    '接受具有 requestID 参数的
    '连接。
    tcpserver.Accept requestID
End Sub

Private Sub txtSendData_Change()
    '名为 txtSendData 的 TextBox 控件中
    '包含了要发送的数据。当用户往文本框中
    '键入数据时，使用 SendData 方法
    '发送输入的字符串。
    tcpserver.SendData txtSendData.Text
End Sub

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
    '为进入的数据声明一个变量。
    '调用 GetData 方法，并将数据赋予名为 txtOutput
    '的 TextBox 的 Text 属性。
    Dim strData As String
    tcpserver.GetData strData
    txtOutput.Text = strData
End Sub