📄 privatechat.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form PrivateChat
AutoRedraw = -1 'True
BackColor = &H00EBF5F4&
BorderStyle = 0 'None
Caption = "私聊"
ClientHeight = 4215
ClientLeft = 0
ClientTop = 0
ClientWidth = 6915
Icon = "PrivateChat.frx":0000
LinkTopic = "Form1"
ScaleHeight = 281
ScaleMode = 3 'Pixel
ScaleWidth = 461
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture1
BackColor = &H00EBF5F4&
BorderStyle = 0 'None
Height = 255
Left = 90
Picture = "PrivateChat.frx":08CA
ScaleHeight = 255
ScaleWidth = 6690
TabIndex = 19
Top = 435
Width = 6690
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "私聊"
Height = 255
Left = 120
TabIndex = 20
Top = 0
Width = 975
End
End
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 100
Left = 5040
Top = 2160
End
Begin VB.PictureBox namecolor
Appearance = 0 'Flat
BackColor = &H000000C0&
ForeColor = &H80000008&
Height = 200
Left = 5760
ScaleHeight = 165
ScaleWidth = 165
TabIndex = 12
ToolTipText = "用户名颜色"
Top = 3420
Width = 200
End
Begin VB.PictureBox backgroundcolor
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H80000008&
Height = 200
Left = 5400
ScaleHeight = 165
ScaleWidth = 165
TabIndex = 11
ToolTipText = "背景色"
Top = 3420
Width = 200
End
Begin VB.PictureBox hypercolor
Appearance = 0 'Flat
BackColor = &H00FF0000&
ForeColor = &H80000008&
Height = 200
Left = 6480
ScaleHeight = 165
ScaleWidth = 165
TabIndex = 10
ToolTipText = "URL 颜色"
Top = 3420
Width = 200
End
Begin VB.PictureBox messagecolor
Appearance = 0 'Flat
BackColor = &H0000C000&
ForeColor = &H80000008&
Height = 200
Left = 6120
ScaleHeight = 165
ScaleWidth = 165
TabIndex = 9
ToolTipText = "信息颜色"
Top = 3420
Width = 200
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 500
Left = 1080
Top = 2160
End
Begin MynetChat.MyButton cmdsend
Height = 375
Left = 5880
TabIndex = 6
Top = 3780
Width = 900
_extentx = 1588
_extenty = 661
spn = "MyButtonDefSkin"
text = "发送 "
font = "PrivateChat.frx":7140
End
Begin VB.PictureBox MyButtonDefSkin
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 315
Left = 960
Picture = "PrivateChat.frx":716C
ScaleHeight = 21
ScaleMode = 3 'Pixel
ScaleWidth = 150
TabIndex = 5
Top = 6120
Width = 2250
End
Begin VB.PictureBox WindowBorder
BackColor = &H00EBF5F4&
BorderStyle = 0 'None
Height = 420
Left = 0
Picture = "PrivateChat.frx":96C2
ScaleHeight = 420
ScaleWidth = 6975
TabIndex = 1
Top = 0
Width = 6975
Begin MynetChat.chameleonButton cmdClose
Height = 255
Left = 6480
TabIndex = 7
ToolTipText = "Close"
Top = 120
Width = 255
_extentx = 450
_extenty = 450
btype = 3
tx = "chameleonButton1"
enab = -1 'True
font = "PrivateChat.frx":13358
coltype = 2
focusr = -1 'True
bcol = 13160660
bcolo = 13160660
fcol = 0
fcolo = 0
mcol = 12632256
mptr = 1
micon = "PrivateChat.frx":13380
picn = "PrivateChat.frx":1339E
umcol = -1 'True
soft = 0 'False
picpos = 0
ngrey = -1 'True
fx = 0
hand = 0 'False
check = 0 'False
value = 0 'False
End
Begin VB.Line Line2
X1 = 0
X2 = 120
Y1 = 480
Y2 = 480
End
Begin VB.Label lblname
Alignment = 2 'Center
BackColor = &H00EBF5F4&
BackStyle = 0 'Transparent
Caption = "Smdanyal"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 315
Left = 240
TabIndex = 2
ToolTipText = "Chatter name"
Top = 120
Width = 1215
End
End
Begin MSComDlg.CommonDialog cd
Left = 1680
Top = 1080
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSWinsockLib.Winsock privateclient
Left = 2160
Top = 1080
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin RichTextLib.RichTextBox txtchat
Height = 2595
Left = 120
TabIndex = 3
Top = 720
Width = 6615
_ExtentX = 11668
_ExtentY = 4577
_Version = 393217
BackColor = 16777215
BorderStyle = 0
Enabled = -1 'True
ScrollBars = 2
Appearance = 0
TextRTF = $"PrivateChat.frx":13866
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
End
Begin RichTextLib.RichTextBox txtmessage
Height = 330
Left = 120
TabIndex = 4
ToolTipText = "输入信息"
Top = 3795
Width = 5655
_ExtentX = 9975
_ExtentY = 582
_Version = 393217
BorderStyle = 0
Enabled = -1 'True
MultiLine = 0 'False
Appearance = 0
TextRTF = $"PrivateChat.frx":138F7
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 cmdPrivateChat
Height = 375
Left = 1440
TabIndex = 8
TabStop = 0 'False
ToolTipText = "引起注意"
Top = 3375
Width = 495
_extentx = 873
_extenty = 661
btype = 8
tx = ""
enab = -1 'True
font = "PrivateChat.frx":1398A
coltype = 2
focusr = 0 'False
bcol = 15463924
bcolo = 15463924
fcol = 0
fcolo = 0
mcol = 12632256
mptr = 1
micon = "PrivateChat.frx":139B2
picn = "PrivateChat.frx":139D0
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 cmdFont
Height = 330
Left = 3960
TabIndex = 13
TabStop = 0 'False
ToolTipText = "改变字体"
Top = 3375
Width = 375
_extentx = 661
_extenty = 582
btype = 8
tx = ""
enab = -1 'True
font = "PrivateChat.frx":13E38
coltype = 2
focusr = 0 'False
bcol = 15463924
bcolo = 15463924
fcol = 0
fcolo = 0
mcol = 12632256
mptr = 1
micon = "PrivateChat.frx":13E60
picn = "PrivateChat.frx":13E7E
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 cmdClear
Height = 330
Left = 4320
TabIndex = 14
TabStop = 0 'False
ToolTipText = "清除信息"
Top = 3375
Width = 375
_extentx = 661
_extenty = 582
btype = 8
tx = ""
enab = -1 'True
font = "PrivateChat.frx":14382
coltype = 2
focusr = 0 'False
bcol = 15463924
bcolo = 15463924
fcol = 0
fcolo = 0
mcol = 12632256
mptr = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -