《VBNET中TCP通讯代码(客户端和接受端集成在一个窗口中)》由会员分享,可在线阅读,更多相关《VBNET中TCP通讯代码(客户端和接受端集成在一个窗口中)(18页珍藏版)》请在金锄头文库上搜索。
1、VB.NET中TCP通讯代码(客户端和接受端集成在一个窗口中) _Partial Class Form1 Inherits System.Windows.Forms.Form Form overrides dispose to clean up the component list. _ Private Sub InitializeComponent() Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.TextBox1 = New System.Windows.Fo
2、rms.TextBox Me.TextBox2 = New System.Windows.Forms.TextBox Me.BtnLink = New System.Windows.Forms.Button Me.BtnSend = New System.Windows.Forms.Button Me.LabService = New System.Windows.Forms.Label Me.ListBoxClientContext = New System.Windows.Forms.ListBox Me.StartService = New System.Windows.Forms.Bu
3、tton Me.StatusStrip1 = New System.Windows.Forms.StatusStrip Me.ToolStripLable1 = New System.Windows.Forms.ToolStripStatusLabel Me.ToolStripSeviceStatus = New System.Windows.Forms.ToolStripStatusLabel Me.StatusStrip1.SuspendLayout() Me.SuspendLayout() Label1 Me.Label1.AutoSize = True Me.Label1.Locati
4、on = New System.Drawing.Point(25, 22) Me.Label1.Name = Label1 Me.Label1.Size = New System.Drawing.Size(77, 12) Me.Label1.TabIndex = 0 Me.Label1.Text = 服务器地址: Label2 Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(25, 69) Me.Label2.Name = Label2 Me.Label2.Size = New System.Dra
5、wing.Size(41, 12) Me.Label2.TabIndex = 1 Me.Label2.Text = 信息: TextBox1 Me.TextBox1.Location = New System.Drawing.Point(115, 19) Me.TextBox1.Name = TextBox1 Me.TextBox1.Size = New System.Drawing.Size(149, 21) Me.TextBox1.TabIndex = 2 TextBox2 Me.TextBox2.Location = New System.Drawing.Point(115, 69) M
6、e.TextBox2.Name = TextBox2 Me.TextBox2.Size = New System.Drawing.Size(149, 21) Me.TextBox2.TabIndex = 3 BtnLink Me.BtnLink.Location = New System.Drawing.Point(27, 130) Me.BtnLink.Name = BtnLink Me.BtnLink.Size = New System.Drawing.Size(75, 23) Me.BtnLink.TabIndex = 4 Me.BtnLink.Text = 连接 Me.BtnLink.
7、UseVisualStyleBackColor = True BtnSend Me.BtnSend.Location = New System.Drawing.Point(177, 129) Me.BtnSend.Name = BtnSend Me.BtnSend.Size = New System.Drawing.Size(75, 23) Me.BtnSend.TabIndex = 5 Me.BtnSend.Text = 发送 Me.BtnSend.UseVisualStyleBackColor = True LabService Me.LabService.AutoSize = True
8、Me.LabService.Location = New System.Drawing.Point(25, 162) Me.LabService.Name = LabService Me.LabService.Size = New System.Drawing.Size(77, 12) Me.LabService.TabIndex = 0 Me.LabService.Text = 服务尚未启动 ListBoxClientContext Me.ListBoxClientContext.FormattingEnabled = True Me.ListBoxClientContext.ItemHei
9、ght = 12 Me.ListBoxClientContext.Location = New System.Drawing.Point(27, 182) Me.ListBoxClientContext.Name = ListBoxClientContext Me.ListBoxClientContext.Size = New System.Drawing.Size(245, 148) Me.ListBoxClientContext.TabIndex = 1 StartService Me.StartService.Location = New System.Drawing.Point(27,
10、 351) Me.StartService.Name = StartService Me.StartService.Size = New System.Drawing.Size(75, 23) Me.StartService.TabIndex = 2 Me.StartService.Text = 启动服务 Me.StartService.UseVisualStyleBackColor = True StatusStrip1 Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() Me.ToolStripLa
11、ble1, Me.ToolStripSeviceStatus) Me.StatusStrip1.Location = New System.Drawing.Point(0, 399) Me.StatusStrip1.Name = StatusStrip1 Me.StatusStrip1.Size = New System.Drawing.Size(299, 22) Me.StatusStrip1.TabIndex = 6 Me.StatusStrip1.Text = StatusStrip1 ToolStripLable1 Me.ToolStripLable1.Name = ToolStrip
12、Lable1 Me.ToolStripLable1.Size = New System.Drawing.Size(55, 17) Me.ToolStripLable1.Text = 无连接! ToolStripSeviceStatus Me.ToolStripSeviceStatus.Name = ToolStripSeviceStatus Me.ToolStripSeviceStatus.Size = New System.Drawing.Size(91, 17) Me.ToolStripSeviceStatus.Text = 服务器无连接! Form1 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode