📄 对聊.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0"; "RICHTX32.OCX"
Object = "{972DE6B5-8B09-11D2-B652-A1FD6CC34260}#1.0#0"; "ACTIVESKIN.OCX"
Begin VB.Form Form1
BorderStyle = 5 'Sizable ToolWindow
Caption = "校园及时通"
ClientHeight = 2910
ClientLeft = 2160
ClientTop = 1410
ClientWidth = 4665
ControlBox = 0 'False
DrawStyle = 1 'Dash
Icon = "对聊.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2910
ScaleWidth = 4665
ShowInTaskbar = 0 'False
Visible = 0 'False
Begin VB.TextBox t1
BackColor = &H00800000&
ForeColor = &H00C0C0FF&
Height = 705
Left = -15
MaxLength = 500
MultiLine = -1 'True
OLEDropMode = 2 'Automatic
ScrollBars = 2 'Vertical
TabIndex = 0
ToolTipText = "F5:发送 双击试试"
Top = 2250
Width = 3592
End
Begin VB.CommandButton Command4
Caption = "系统设置"
Height = 270
Left = 3525
TabIndex = 9
ToolTipText = "单击可进行系统设置"
Top = 2670
Width = 1170
End
Begin VB.CommandButton Command7
Caption = "→"
Height = 270
Left = 4305
TabIndex = 17
ToolTipText = "下一组"
Top = 1425
Width = 330
End
Begin VB.ListBox L1
BackColor = &H00FFC0C0&
Columns = 1
ForeColor = &H00800000&
Height = 2460
IntegralHeight = 0 'False
ItemData = "对聊.frx":030A
Left = 3555
List = "对聊.frx":030C
OLEDragMode = 1 'Automatic
Sorted = -1 'True
TabIndex = 8
ToolTipText = "鼠标右击选择"
Top = 255
Width = 1155
End
Begin VB.CommandButton Command6
Caption = "设置前景色"
Height = 375
Left = 3555
TabIndex = 6
Top = 2295
Width = 1155
End
Begin ACTIVESKINLibCtl.SkinForm Skin
Height = 480
Left = 225
OleObjectBlob = "对聊.frx":030E
TabIndex = 26
Top = 210
Width = 480
End
Begin MSWinsockLib.Winsock W1
Left = 1320
Top = 195
_ExtentX = 741
_ExtentY = 741
_Version = 327681
RemotePort = 7777
End
Begin MSWinsockLib.Winsock Sf
Index = 0
Left = 1335
Top = 960
_ExtentX = 741
_ExtentY = 741
_Version = 327681
End
Begin VB.Timer Timer1
Interval = 30000
Left = 2025
Top = 225
End
Begin RichTextLib.RichTextBox ht
Height = 2025
Left = 0
TabIndex = 13
ToolTipText = "按Ctrl + ←可缩小,单击右键试试"
Top = -15
Width = 3570
_ExtentX = 6297
_ExtentY = 3572
_Version = 327681
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 3
MousePointer = 1
TextRTF = $"对聊.frx":0357
MouseIcon = "对聊.frx":05E1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.PictureBox P1
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 480
Index = 4
Left = 1530
Picture = "对聊.frx":05FD
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 24
Top = 1905
Visible = 0 'False
Width = 480
End
Begin VB.PictureBox P1
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 480
Index = 3
Left = 2010
Picture = "对聊.frx":0907
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 23
Top = 1920
Visible = 0 'False
Width = 480
End
Begin VB.PictureBox P1
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 480
Index = 1
Left = 1020
Picture = "对聊.frx":0C11
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 22
Top = 1920
Visible = 0 'False
Width = 480
End
Begin VB.PictureBox P1
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 480
Index = 0
Left = 495
Picture = "对聊.frx":0F1B
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 21
Top = 1905
Visible = 0 'False
Width = 480
End
Begin VB.CommandButton Command2
Caption = "所有邻居"
Height = 300
Left = 3525
TabIndex = 1
ToolTipText = "单击刷新在线名单,单击右键进入组操作"
Top = -15
Width = 1200
End
Begin VB.CommandButton bd
Caption = "黑名单"
Height = 300
Left = 4725
TabIndex = 15
Top = -30
Visible = 0 'False
Width = 1200
End
Begin VB.CommandButton rt
Caption = "返回"
Height = 270
Left = 4740
TabIndex = 16
Top = 2715
Visible = 0 'False
Width = 1170
End
Begin VB.CommandButton NewRt
Caption = "返回"
Height = 270
Left = 5910
TabIndex = 20
Top = 2715
Visible = 0 'False
Width = 1170
End
Begin VB.ListBox NewAdd
BackColor = &H00FFC0C0&
Height = 2535
Index = 0
IntegralHeight = 0 'False
ItemData = "对聊.frx":1225
Left = 5910
List = "对聊.frx":1227
TabIndex = 18
Top = 240
Visible = 0 'False
Width = 1155
End
Begin VB.ListBox black
BackColor = &H00FFC0C0&
Height = 2535
IntegralHeight = 0 'False
ItemData = "对聊.frx":1229
Left = 4725
List = "对聊.frx":122B
TabIndex = 14
Top = 240
Visible = 0 'False
Width = 1155
End
Begin VB.CommandButton NewCommand
Height = 300
Index = 0
Left = 5910
TabIndex = 19
Tag = "0"
Top = -30
Visible = 0 'False
Width = 1200
End
Begin VB.TextBox add1
Height = 300
Left = 3555
MaxLength = 15
TabIndex = 4
Text = "192.168.0.1"
Top = 1665
Width = 1140
End
Begin VB.CheckBox C2
Caption = "自动加载"
Height = 210
Left = 3555
TabIndex = 3
Top = 705
Width = 1020
End
Begin VB.CheckBox C1
Caption = "直接登录"
Height = 210
Left = 3555
TabIndex = 2
Top = 495
Width = 1020
End
Begin VB.CheckBox C
Caption = "快捷方式"
Height = 255
Left = 3555
TabIndex = 12
Top = 1110
Width = 1020
End
Begin VB.CommandButton Command1
Height = 345
Left = -30
TabIndex = 11
Top = 1935
Width = 945
End
Begin VB.ComboBox t2
Height = 300
ItemData = "对聊.frx":122D
Left = 3555
List = "对聊.frx":123A
TabIndex = 7
Top = 2685
Width = 1065
End
Begin VB.CheckBox IECk
Caption = "IE快捷键"
Height = 255
Left = 3555
TabIndex = 25
Top = 885
Width = 1020
End
Begin VB.TextBox l2
Height = 285
Left = 3555
Locked = -1 'True
TabIndex = 27
Text = "IP搜寻起点"
Top = 1365
Width = 1155
End
Begin VB.CommandButton Command5
Caption = "设置背景色"
Height = 375
Left = 3555
TabIndex = 5
Top = 1935
Width = 1155
End
Begin VB.CommandButton Command3
Cancel = -1 'True
Caption = "清 除(&C)"
Height = 345
Left = 2580
TabIndex = 10
ToolTipText = "清除发送框中的消息"
Top = 1950
Width = 1035
End
Begin VB.Menu sysb
Caption = "2"
Visible = 0 'False
Begin VB.Menu undo
Caption = "撤消"
End
End
Begin VB.Menu SysM
Caption = "1"
Visible = 0 'False
Begin VB.Menu modiuserinfo
Caption = "修改个人资料"
End
Begin VB.Menu AboutMe
Caption = "关于我"
End
Begin VB.Menu ExitNetCall
Caption = "退出"
End
End
Begin VB.Menu usermenu
Caption = "menu1"
Visible = 0 'False
WindowList = -1 'True
Begin VB.Menu tweworld
Caption = "二人世界(&T)"
End
Begin VB.Menu tbor
Caption = "两人画板(&B)"
End
Begin VB.Menu Sfile
Caption = "传送文件(&F)"
End
Begin VB.Menu SSound
Caption = "语音传送(&S)"
End
Begin VB.Menu mini
Caption = "迷你形(Alt+空格)"
End
Begin VB.Menu LastSound
Caption = "最后一次语音(&L)"
End
Begin VB.Menu lysend
Caption = "留言"
End
Begin VB.Menu luoming
Caption = "-"
End
Begin VB.Menu bl
Caption = "黑名单(&G)"
Begin VB.Menu goblack
Caption = "进入黑名单"
End
Begin VB.Menu goout
Caption = "踢入黑名单(&G)"
End
End
Begin VB.Menu DelUser
Caption = "删除"
Visible = 0 'False
End
Begin VB.Menu Addto
Caption = "增加到..."
Visible = 0 'False
Begin VB.Menu AddtoGroup
Caption = "加入"
Index = 0
End
End
End
Begin VB.Menu Group
Caption = "Group1"
Visible = 0 'False
Begin VB.Menu AddGroup
Caption = "增加组"
End
Begin VB.Menu DelGroup
Caption = "删除组 "
Visible = 0 'False
End
End
Begin VB.Menu l
Caption = "meun2"
Visible = 0 'False
Begin VB.Menu clearreco
Caption = "清除记录"
End
Begin VB.Menu setoff
Caption = "禁止音效"
End
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -