📄 form1.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{DAAC6951-59A4-4C08-9D6E-FE3919B64861}#1.0#0"; "FlexCell.ocx"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form1
BackColor = &H00404040&
BorderStyle = 0 'None
Caption = "星零考试系统服务器端 版本0.1"
ClientHeight = 7215
ClientLeft = -45
ClientTop = -435
ClientWidth = 10680
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7215
ScaleWidth = 10680
StartUpPosition = 1 '所有者中心
Begin RichTextLib.RichTextBox txtRecive
Height = 4320
Left = 3240
TabIndex = 8
Top = 2400
Width = 7410
_ExtentX = 13070
_ExtentY = 7620
_Version = 393217
BackColor = 4210752
BorderStyle = 0
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
Appearance = 0
TextRTF = $"Form1.frx":F84A
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 50
Left = 1800
Top = 6720
End
Begin VB.PictureBox Picture3
BackColor = &H000000FF&
BorderStyle = 0 'None
Height = 60
Left = 10080
ScaleHeight = 60
ScaleWidth = 375
TabIndex = 6
Top = 5880
Width = 375
End
Begin VB.PictureBox Picture2
BackColor = &H000000FF&
BorderStyle = 0 'None
Height = 375
Left = 9960
ScaleHeight = 375
ScaleWidth = 45
TabIndex = 5
Top = 5760
Width = 50
End
Begin VB.PictureBox Picture1
BackColor = &H000000FF&
BorderStyle = 0 'None
Height = 375
Left = 9840
ScaleHeight = 375
ScaleWidth = 45
TabIndex = 4
Top = 5760
Width = 50
End
Begin 考试系统服务器端.ACPRibbon ACPRibbon1
Height = 2130
Left = 0
TabIndex = 3
Top = 0
Width = 10680
_ExtentX = 18838
_ExtentY = 3757
End
Begin FlexCell.Grid Grid1
Height = 4620
Left = 0
TabIndex = 2
Top = 2115
Width = 3225
_ExtentX = 5689
_ExtentY = 8149
AllowUserResizing= 0 'False
Appearance = 0
BackColorBkg = 8421504
BackColorFixed = 12632319
BackColorFixedSel= 12632319
Cols = 3
ExtendLastCol = -1 'True
FixedRowColStyle= 0
Rows = 1
ScrollBars = 2
ScrollBarStyle = 0
End
Begin MSWinsockLib.Winsock sckListen
Left = 10080
Top = 6720
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock sckBusy
Left = 9120
Top = 6720
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock sckServer
Index = 0
Left = 9600
Top = 6720
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Line Line1
BorderColor = &H00000000&
X1 = 0
X2 = 10680
Y1 = 6720
Y2 = 6720
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00808080&
BorderStyle = 1 'Fixed Single
Caption = "---信息区---"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 3240
TabIndex = 7
Top = 2130
Width = 7400
End
Begin VB.Image Image1
Height = 450
Left = 7080
Picture = "Form1.frx":F8E7
Top = 10680
Visible = 0 'False
Width = 450
End
Begin VB.Image Image11
Height = 345
Left = 3480
Picture = "Form1.frx":F96E
Top = 10680
Visible = 0 'False
Width = 360
End
Begin VB.Image Image2
Height = 210
Left = 3960
Picture = "Form1.frx":FE8D
Top = 10680
Visible = 0 'False
Width = 165
End
Begin VB.Image Image3
Height = 210
Left = 4200
Picture = "Form1.frx":FFD4
Top = 10680
Visible = 0 'False
Width = 240
End
Begin VB.Image Image4
Height = 210
Left = 4440
Picture = "Form1.frx":103CD
Top = 10680
Visible = 0 'False
Width = 225
End
Begin VB.Image Image5
Height = 210
Left = 4680
Picture = "Form1.frx":1062B
Top = 10680
Visible = 0 'False
Width = 210
End
Begin VB.Image Image6
Height = 375
Left = 5040
Picture = "Form1.frx":1088B
Top = 10680
Visible = 0 'False
Width = 435
End
Begin VB.Image Image7
Height = 450
Left = 5520
Picture = "Form1.frx":10E30
Top = 10680
Visible = 0 'False
Width = 450
End
Begin VB.Image Image8
Height = 435
Left = 6000
Picture = "Form1.frx":11444
Top = 10680
Visible = 0 'False
Width = 420
End
Begin VB.Image Image9
Height = 390
Left = 6480
Picture = "Form1.frx":119FA
Top = 10680
Visible = 0 'False
Width = 390
End
Begin VB.Image Image10
Height = 375
Left = 6960
Picture = "Form1.frx":11F9D
Top = 10680
Visible = 0 'False
Width = 465
End
Begin VB.Label number
BackStyle = 0 'Transparent
Caption = "0"
ForeColor = &H00FFFFFF&
Height = 255
Left = 840
TabIndex = 1
Top = 6840
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "连接数:"
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 0
Top = 6840
Width = 735
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private MaxNumber As Integer
Private hang As Integer
Dim curnumber As Integer
Dim chatname(50) As String
Dim firstmess(50) As Boolean
Dim FileInput(50) As Double '当前传送的字节数
Public lngInputSize As Double '硬盘缓存支持最大数
Dim FileSize(50) As Double '传送文件的大小
Dim filename(50) As String '传送文件的文件名
Dim FileSent As Double
Private down(50) As Boolean
Dim ListEXECLLOG As String '记录列表文件名
Dim LISTMID '当前操作文件夹
Dim INDEXID As Integer '索引ID
Private Sub Form_Load()
Grid1.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '进行注册
Picture1.BackColor = RGB(77, 77, 77)
Picture2.BackColor = RGB(77, 77, 77)
Picture3.BackColor = RGB(101, 101, 101)
'菜单定义
'# Set Circle Menu Button Picture
Set ACPRibbon1.Picture = Image1.Picture
'# Show Caption of Form
ACPRibbon1.Caption = Me.Caption
'# Show Button to Customize Menu
ACPRibbon1.ShowCustomMenu = False
'# Add TopButtons --- ID - Capt. - Icons
ACPRibbon1.AddTopButton "1", "新建", Image2.Picture
ACPRibbon1.AddTopButton "2", "打开", Image3.Picture
ACPRibbon1.AddTopButton "3", "打印", Image4.Picture
ACPRibbon1.AddTopButton "3", "保存", Image5.Picture
'# Add Tabs --- ID - Caption
ACPRibbon1.AddTab "1", "考试状态"
ACPRibbon1.AddTab "2", "试题管理"
ACPRibbon1.AddTab "3", "成绩管理"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -