📄 frmclient.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmClient
Caption = "聊天程序_客户端"
ClientHeight = 4365
ClientLeft = 60
ClientTop = 345
ClientWidth = 9090
Icon = "frmClient.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4365
ScaleWidth = 9090
Begin VB.TextBox txtOut
Height = 855
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 9
Top = 3240
Width = 7515
End
Begin VB.TextBox txtHost
Alignment = 2 'Center
BackColor = &H00FFFFFF&
ForeColor = &H00000080&
Height = 270
Left = 1920
MaxLength = 15
TabIndex = 8
Top = 120
Width = 1695
End
Begin VB.TextBox txtPort
Alignment = 2 'Center
BackColor = &H00FFFFFF&
ForeColor = &H00000080&
Height = 270
Left = 1920
MaxLength = 4
TabIndex = 7
Top = 480
Width = 1695
End
Begin VB.CommandButton cmdConnect
Caption = "连接"
Height = 375
Left = 4440
TabIndex = 6
Top = 240
Width = 855
End
Begin VB.CommandButton cmdExit
Caption = "退出"
Height = 375
Left = 6840
TabIndex = 4
Top = 240
Width = 855
End
Begin VB.CommandButton cmdQuit
Caption = "断开"
Height = 375
Left = 5640
TabIndex = 3
Top = 240
Width = 855
End
Begin VB.CommandButton CmdSend
Caption = "发送"
Enabled = 0 'False
Height = 375
Left = 7920
TabIndex = 1
Top = 3720
Width = 855
End
Begin VB.CommandButton CmdClear
Caption = "清空"
Height = 375
Left = 7920
TabIndex = 0
Top = 3240
Width = 855
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 2
Top = 4110
Width = 9090
_ExtentX = 16034
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 11192
Picture = "frmClient.frx":08CA
Text = "聊天程序_客户端 暂时没有连接到服务器！"
TextSave = "聊天程序_客户端 暂时没有连接到服务器！"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
Object.Width = 1764
MinWidth = 1764
TextSave = "19:17"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
Object.Width = 2469
MinWidth = 2469
TextSave = "03-11-24"
EndProperty
EndProperty
End
Begin RichTextLib.RichTextBox rtbIn
Height = 2055
Left = 240
TabIndex = 5
Top = 840
Width = 8580
_ExtentX = 15134
_ExtentY = 3625
_Version = 393217
BackColor = 16777215
ReadOnly = -1 'True
ScrollBars = 2
TextRTF = $"frmClient.frx":205C
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSWinsockLib.Winsock tcpClient
Left = 3840
Top = 240
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FF0000&
BackStyle = 0 'Transparent
Caption = "（支持多行数据或粘贴数据）"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008080&
Height = 210
Left = 1560
TabIndex = 13
Top = 2955
Width = 2730
End
Begin VB.Label LabelIP
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "服务器地址："
BeginProperty Font
Name = "黑体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 480
TabIndex = 12
Top = 120
Width = 1350
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF0000&
BackStyle = 0 'Transparent
Caption = "输入框："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 210
Left = 360
TabIndex = 11
Top = 2950
Width = 900
End
Begin VB.Label LabPort
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "服务器端口："
BeginProperty Font
Name = "黑体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 480
TabIndex = 10
Top = 480
Width = 1350
End
End
Attribute VB_Name = "frmClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim NewClient As Boolean
Private Sub Cmdclear_Click()
txtOut.Text = ""
End Sub
Private Sub cmdConnect_Click()
On Error GoTo Errhandle:
If Trim(txtHost) = "" Or Trim(txtPort) = "" Then
MsgBox "聊天服务器参数未设置！", , Me.Caption
Else
tcpClient.RemoteHost = txtHost.Text
tcpClient.RemotePort = txtPort.Text
tcpClient.Connect
txtHost.Locked = True
txtPort.Locked = True
NewClient = True
End If
Exit Sub
Errhandle:
MsgBox err.Description
End Sub
Private Sub cmdExit_Click()
Unload frmClient
End Sub
Private Sub cmdQuit_Click()
On Error GoTo Errhandle:
tcpClient.SendData "Q" & tcpClient.RemoteHost & CStr(Time())
CmdSend.Enabled = False
Exit Sub
Errhandle:
MsgBox err.Description
End Sub
Private Sub CmdSend_Click()
On Error GoTo Errhandle:
tcpClient.SendData tcpClient.LocalHostName & ":" & txtOut.Text
rtbIn.Text = rtbIn.Text + Chr(10) + tcpClient.LocalHostName & ":" & txtOut.Text & CStr(Time())
txtOut.Text = ""
Exit Sub
Errhandle:
MsgBox err.Description
End Sub
Private Sub Form_Load()
Call ResizeInit(Me)
Me.cmdQuit.Enabled = False
End Sub
Private Sub Form_Resize()
Call ResizeForm(Me) '窗体改变时，控件随之变化
End Sub
Private Sub tcpClient_Connect()
tcpClient.SendData "C" & tcpClient.RemoteHost
End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
tcpClient.GetData sData
If sData = "C_OK" Then
cmdConnect.Enabled = False
cmdQuit.Enabled = True
CmdSend.Enabled = True
StatusBar1.Panels(1).Text = "连接到远程主机： " & tcpClient.RemoteHost & "！"
NewClient = False
End If
rtbIn.Text = rtbIn.Text + Chr(10) + sData + CStr(Time())
rtbIn.SelStart = Len(sData)
If sData = "Q_OK" Then
StatusBar1.Panels(1).Text = "聊天程序_客户端 暂时没有连接到服务器!"
tcpClient.Close
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -