📄 client.frm
字号:
BackColor = &H00FF0000&
ForeColor = &H80000008&
Height = 200
Left = 7800
ScaleHeight = 165
ScaleWidth = 165
TabIndex = 21
ToolTipText = "URL 颜色"
Top = 7800
Width = 200
End
Begin VB.PictureBox backgroundcolor
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H80000008&
Height = 200
Left = 6720
ScaleHeight = 165
ScaleWidth = 165
TabIndex = 20
ToolTipText = "背景颜色"
Top = 7800
Width = 200
End
Begin VB.PictureBox namecolor
Appearance = 0 'Flat
BackColor = &H009A7B34&
ForeColor = &H80000008&
Height = 200
Left = 7080
ScaleHeight = 165
ScaleWidth = 165
TabIndex = 19
ToolTipText = "名称颜色"
Top = 7800
Width = 200
End
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 100
Left = 1080
Top = 4200
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 50
Left = 1080
Top = 4725
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 100
Left = 1560
Top = 4725
End
Begin MSWinsockLib.Winsock udpupdate
Left = 3720
Top = 4560
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock clientpmsend
Left = 4200
Top = 5085
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock clientpmlisten
Left = 3720
Top = 5085
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock udpclientsend
Left = 4680
Top = 5595
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock udpclientlisten
Left = 4200
Top = 5595
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock tcpclient
Left = 3720
Top = 5595
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin RichTextLib.RichTextBox txtchat
Height = 4620
Left = 270
TabIndex = 16
Top = 3045
Width = 7740
_ExtentX = 13653
_ExtentY = 8149
_Version = 393217
BackColor = 16777215
BorderStyle = 0
Enabled = -1 'True
ScrollBars = 2
Appearance = 0
TextRTF = $"Client.frx":1F75B
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox txthostname
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00B00009&
Height = 250
Left = 1545
TabIndex = 7
Text = "Localhost"
ToolTipText = "服务器名称"
Top = 960
Width = 1695
End
Begin VB.PictureBox Standard
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 240
Left = 360
Picture = "Client.frx":1F7EE
ScaleHeight = 16
ScaleMode = 3 'Pixel
ScaleWidth = 80
TabIndex = 2
Top = 9720
Width = 1200
End
Begin VB.PictureBox MyButtonDefSkin
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 315
Left = 360
Picture = "Client.frx":20730
ScaleHeight = 21
ScaleMode = 3 'Pixel
ScaleWidth = 150
TabIndex = 1
Top = 9360
Width = 2250
End
Begin VB.PictureBox Skin1
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 300
Left = 360
Picture = "Client.frx":22C86
ScaleHeight = 20
ScaleMode = 3 'Pixel
ScaleWidth = 150
TabIndex = 0
Top = 10020
Width = 2250
End
Begin MynetChat.MyButton cmddisconnect
Height = 615
Left = 7800
TabIndex = 3
ToolTipText = "从服务器断开连接"
Top = 960
Width = 2535
_ExtentX = 4471
_ExtentY = 1085
SPN = "MyButtonDefSkin"
Text = "断开 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Client.frx":231E3
End
Begin MynetChat.MyButton cmdconnect
Height = 615
Left = 5145
TabIndex = 4
ToolTipText = "连接到服务器"
Top = 960
Width = 2535
_ExtentX = 4471
_ExtentY = 1085
SPN = "MyButtonDefSkin"
Text = "连接 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Client.frx":25995
End
Begin MynetChat.MyButton cmdSend
Height = 480
Left = 8160
TabIndex = 17
ToolTipText = "发送信息"
Top = 8160
Width = 1095
_ExtentX = 1931
_ExtentY = 847
SPN = "MyButtonDefSkin"
Text = "发送 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Client.frx":27817
End
Begin RichTextLib.RichTextBox txtmessage
Height = 450
Left = 255
TabIndex = 18
ToolTipText = "这里输入发送信息"
Top = 8190
Width = 7755
_ExtentX = 13679
_ExtentY = 794
_Version = 393217
BackColor = 16777215
BorderStyle = 0
MultiLine = 0 'False
ReadOnly = -1 'True
ScrollBars = 2
MaxLength = 100
Appearance = 0
TextRTF = $"Client.frx":29819
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MynetChat.chameleonButton cmdemoticons
Height = 375
Left = 1575
TabIndex = 24
TabStop = 0 'False
ToolTipText = "表情"
Top = 1905
Width = 495
_ExtentX = 873
_ExtentY = 661
BTYPE = 8
TX = ""
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
FOCUSR = 0 'False
BCOL = 15463924
BCOLO = 15463924
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "Client.frx":298AC
PICN = "Client.frx":298C8
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 2
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin MynetChat.chameleonButton cmdmassmsg
Height = 375
Left = 2280
TabIndex = 27
TabStop = 0 'False
ToolTipText = "群信息"
Top = 1905
Width = 495
_ExtentX = 873
_ExtentY = 661
BTYPE = 8
TX = ""
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
FOCUSR = 0 'False
BCOL = 15463924
BCOLO = 15463924
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "Client.frx":29D8E
PICN = "Client.frx":29DAA
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 2
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin MynetChat.chameleonButton cmdtopic
Height = 375
Left = 3000
TabIndex = 29
TabStop = 0 'False
ToolTipText = "改变话题"
Top = 1905
Width = 495
_ExtentX = 873
_ExtentY = 661
BTYPE = 8
TX = ""
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -