📄 form1.frm
字号:
ForeColor = &H000000FF&
Height = 300
Index = 0
Left = 2040
TabIndex = 11
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image Img_w
Height = 480
Index = 0
Left = 120
Picture = "Form1.frx":F84A
Top = 1080
Visible = 0 'False
Width = 480
End
Begin VB.Label ST_NAME
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "试卷名称"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2820
TabIndex = 20
Top = 720
Width = 1815
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = 480
TabIndex = 18
Top = 480
Visible = 0 'False
Width = 810
End
Begin VB.Image Image1
Height = 1455
Index = 0
Left = 840
Top = 720
Width = 1695
End
End
End
Begin VB.PictureBox Picture4
BackColor = &H00404040&
BorderStyle = 0 'None
ForeColor = &H00808080&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 11175
TabIndex = 4
Top = 2120
Width = 11175
Begin VB.Label Label_cz
BackStyle = 0 'Transparent
Caption = "操作信息："
ForeColor = &H00FFFF00&
Height = 195
Left = 2520
TabIndex = 10
Top = 45
Width = 975
End
Begin VB.Label LabelCZ
BackStyle = 0 'Transparent
Caption = "未连接服务器,或服务器未启动,请稍候再试."
ForeColor = &H0000FFFF&
Height = 195
Left = 3390
TabIndex = 9
Top = 45
Width = 5535
End
Begin VB.Label Label_Time
BackStyle = 0 'Transparent
Caption = "考试剩余时间： 秒"
ForeColor = &H00FFFF00&
Height = 195
Left = 9120
TabIndex = 8
Top = 45
Width = 1935
End
Begin VB.Label Labeltime
BackStyle = 0 'Transparent
Caption = "1920"
ForeColor = &H0000FFFF&
Height = 195
Left = 10335
TabIndex = 7
Top = 45
Width = 480
End
Begin VB.Label LabelID
BackStyle = 0 'Transparent
Caption = "xhlbwb"
ForeColor = &H0000FFFF&
Height = 195
Left = 960
TabIndex = 6
Top = 45
Width = 1335
End
Begin VB.Label Label_ID
BackStyle = 0 'Transparent
Caption = "用户ID："
ForeColor = &H00FFFF00&
Height = 195
Left = 240
TabIndex = 5
Top = 45
Width = 735
End
End
Begin VB.PictureBox Picture1
BackColor = &H000000FF&
BorderStyle = 0 'None
Height = 375
Left = 0
ScaleHeight = 375
ScaleWidth = 75
TabIndex = 3
Top = 0
Width = 80
End
Begin VB.PictureBox Picture2
BackColor = &H000000FF&
BorderStyle = 0 'None
Height = 375
Left = 480
ScaleHeight = 375
ScaleWidth = 75
TabIndex = 2
Top = 840
Width = 80
End
Begin VB.PictureBox Picture3
BackColor = &H000000FF&
BorderStyle = 0 'None
Height = 70
Left = 240
ScaleHeight = 75
ScaleWidth = 375
TabIndex = 1
Top = 120
Width = 375
End
Begin 星零考试系统客户端.ACPRibbon ACPRibbon1
Height = 2130
Left = 0
TabIndex = 0
Top = 0
Width = 11175
_ExtentX = 19711
_ExtentY = 3757
End
Begin MSWinsockLib.Winsock sckClient
Left = 5160
Top = 7440
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 840
Top = 7320
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Image ImageTOP
Height = 450
Left = 8280
Picture = "Form1.frx":FE47
Top = 3000
Visible = 0 'False
Width = 450
End
Begin VB.Image Imagemenu1
Height = 210
Left = 8400
Picture = "Form1.frx":FECE
Top = 3600
Visible = 0 'False
Width = 210
End
Begin VB.Image ImageTAB1
Height = 720
Left = 8040
Picture = "Form1.frx":1012E
Top = 4080
Width = 720
End
Begin MSForms.ScrollBar VScroll1
Height = 1095
Left = 9240
TabIndex = 19
Top = 2760
Width = 300
ForeColor = 65535
BackColor = 8421504
Size = "529;1931"
SmallChange = 100
LargeChange = 100
End
Begin VB.Line Line1
Visible = 0 'False
X1 = 0
X2 = 9840
Y1 = 2450
Y2 = 2450
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Dim ListEXECLLOG As String '记录列表文件名
Dim LISTMID '当前操作文件夹
Dim firsttime As Boolean
'Dim LoginName As String '登陆用户名
Dim FileSent As Double '设定获取字符字节数
Dim strdata As String '获取到的字符
Dim Filename As String '文件名称
Dim Filesize As Double '文件大小
Dim Filecountsize As Double '文件当前总大小
Dim imgxj As Boolean '续接
Dim vscmod As Integer '使用下拉中的被某数整除中使用
Dim down As Boolean '当前是否是获取文件状态
Dim Create_Boolean As Boolean '是否已提取过试题
Dim Computer_id As String '计算机ID编号,可作为快捷识别号
Dim ServerIP As String '指向服务器端的IP地址
Dim KS_TIME As Long '考试时间
Private Sub ACPRibbon1_ButtonClick(ByVal ID As String, ByVal Caption As String)
Select Case ID
Case 1 '发出试题生成请求
If Timer2.Enabled = True Then
MsgBox "考试计时中.....", vbInformation, "执行无效"
Exit Sub
End If
sckClient.SendData "ASKFORQUESTIMONS|" & LoginName & vbCrLf
'清除必要文件
If Dir(App.Path & "\DATALIST\" & LoginName & ".txt", vbNormal) <> "" Then
Kill App.Path & "\DATALIST\" & LoginName & ".txt"
End If
If Dir(App.Path & "\DATALIST\" & LoginName & "_ASK.txt", vbNormal) <> "" Then
Kill App.Path & "\DATALIST\" & LoginName & "_ASK.txt"
End If
If Dir(App.Path & "\DATALIST\" & LoginName & "_answer.txt", vbNormal) <> "" Then
Kill App.Path & "\DATALIST\" & LoginName & "_answer.txt"
End If
Case 2 '显示试题
If Dir(App.Path & "\DATALIST\" & LoginName & "_ASK.txt", vbNormal) <> "" Then
SHOW_ST
Else
MsgBox "试题文件不存在,请重新生成！", vbInformation, "提示"
End If
Case 3 '进入调整字体
Exit Sub
Label_showfont
Case 4
SAVE_KEY '保存答案
Filename = App.Path & "\DATALIST\" & LoginName & "_answer.txt"
sckClient.SendData "FILENAME|" & Mid(Filename, InStrRev(Filename, "\") + 1) & vbCrLf
Filesize = FileLen(Filename)
sckClient.SendData "FILESIZE|" & Filesize & vbCrLf
Timer2.Enabled = False
Labeltime = "0"
Case 7
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -