form18.frm
来自「主要用于学校机房考试,主要包括选择题,问答题,WORD操作题,WINDOWS操作」· FRM 代码 · 共 921 行 · 第 1/2 页
FRM
921 行
VERSION 5.00
Begin VB.Form Form18
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
Caption = "成绩输入:"
ClientHeight = 6885
ClientLeft = 1500
ClientTop = 1005
ClientWidth = 8055
ControlBox = 0 'False
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Icon = "Form18.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 6885
ScaleWidth = 8055
Begin VB.TextBox Text
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "楷体_GB2312"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 960
Index = 0
Left = 3480
TabIndex = 6
Top = 600
Width = 3975
End
Begin VB.TextBox Text
BackColor = &H00C0FFC0&
DataField = "照片号"
DataSource = "Data1"
BeginProperty Font
Name = "楷体_GB2312"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 930
Index = 1
Left = 3480
Locked = -1 'True
TabIndex = 5
Top = 1680
Width = 3975
End
Begin VB.TextBox Text
BackColor = &H00C0FFC0&
DataField = "姓名"
DataSource = "Data1"
BeginProperty Font
Name = "楷体_GB2312"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 960
Index = 2
Left = 3480
Locked = -1 'True
TabIndex = 4
Top = 2760
Width = 3975
End
Begin VB.TextBox Text
BackColor = &H00C0FFC0&
DataSource = "Data1"
BeginProperty Font
Name = "楷体_GB2312"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 960
Index = 3
Left = 3480
TabIndex = 3
Top = 3840
Width = 3975
End
Begin VB.Data Data1
BackColor = &H0080FF80&
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 480
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 5040
Width = 6735
End
Begin VB.Timer Timer1
Interval = 1
Left = 3360
Top = 2640
End
Begin VB.TextBox Text1
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "楷体_GB2312"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 960
Left = 3480
TabIndex = 2
Top = 1680
Visible = 0 'False
Width = 3975
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 855
Left = 480
MultiLine = -1 'True
TabIndex = 1
Top = 5520
Width = 7095
End
Begin VB.PictureBox Pmain
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2325
Left = 4320
Picture = "Form18.frx":1042
ScaleHeight = 2325
ScaleWidth = 2250
TabIndex = 0
Top = 3840
Visible = 0 'False
Width = 2250
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H008080FF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "学科："
BeginProperty Font
Name = "楷体_GB2312"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 900
Left = 720
TabIndex = 10
Top = 600
Width = 2625
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H008080FF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "学号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 900
Left = 720
TabIndex = 9
Top = 1680
Width = 2625
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H008080FF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "姓名："
BeginProperty Font
Name = "楷体_GB2312"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 900
Left = 720
TabIndex = 8
Top = 2760
Width = 2625
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H008080FF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "分数："
BeginProperty Font
Name = "楷体_GB2312"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 900
Left = 720
TabIndex = 7
Top = 3840
Width = 2625
End
Begin VB.Image Pjiao
Height = 255
Left = 7800
MousePointer = 8 'Size NW SE
Top = 5880
Width = 255
End
Begin VB.Image Imico
Height = 240
Left = 5160
Picture = "Form18.frx":12230
Top = 5640
Visible = 0 'False
Width = 240
End
Begin VB.Image IMus2
Height = 240
Left = 2880
Picture = "Form18.frx":125BA
Top = 5880
Visible = 0 'False
Width = 255
End
Begin VB.Image IMus1
Height = 240
Left = 2880
Picture = "Form18.frx":1293C
Top = 5640
Visible = 0 'False
Width = 255
End
Begin VB.Image IMus0
Height = 240
Left = 2880
Picture = "Form18.frx":12CBE
Top = 5400
Visible = 0 'False
Width = 255
End
Begin VB.Image Pright
Height = 5535
Left = 7800
MousePointer = 9 'Size W E
Top = 0
Width = 135
End
Begin VB.Image Pbottom
Height = 195
Left = 0
MousePointer = 7 'Size N S
Stretch = -1 'True
Top = 6480
Width = 1785
End
Begin VB.Image Imclose
Height = 240
Left = 7695
ToolTipText = "关闭"
Top = 240
Width = 255
End
Begin VB.Image Immax
Height = 240
Left = 7320
ToolTipText = "最大化"
Top = 240
Width = 255
End
Begin VB.Image Immin
Height = 240
Left = 6960
ToolTipText = "最小化"
Top = 240
Width = 255
End
Begin VB.Image Immax2
Height = 240
Left = 2520
Picture = "Form18.frx":13040
Top = 5640
Visible = 0 'False
Width = 255
End
Begin VB.Image Immax1
Height = 240
Left = 2160
Picture = "Form18.frx":133C2
Top = 5640
Visible = 0 'False
Width = 255
End
Begin VB.Image ImClose1
Height = 240
Left = 2160
Picture = "Form18.frx":13744
Top = 5880
Visible = 0 'False
Width = 255
End
Begin VB.Image ImClose2
Height = 240
Left = 2520
Picture = "Form18.frx":13AC6
Top = 5880
Visible = 0 'False
Width = 255
End
Begin VB.Image ImMin2
Height = 240
Left = 2520
Picture = "Form18.frx":13E48
Top = 5400
Visible = 0 'False
Width = 255
End
Begin VB.Image ImMin1
Height = 240
Left = 2160
Picture = "Form18.frx":141CA
Top = 5400
Visible = 0 'False
Width = 255
End
Begin VB.Image IMBar
Height = 255
Left = 0
Top = 0
Width = 7935
End
End
Attribute VB_Name = "Form18"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'设置不规则窗体的API
Private Declare Function SetWindowRgn Lib "USER32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Const RGN_OR = 2
'拖动窗体的API
Private Declare Function ReleaseCapture Lib "USER32" () As Long
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
'获得鼠标位置，用来改变窗体大小的
Private Declare Function GetCursorPos Lib "USER32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim a As Integer
'
'该函数用来做圆角窗体
Public Sub RMe()
Dim Regn As Long '定义设置区域的句柄
Dim CER As Long '定义临时句柄变量
'把Twip计量单位转换成象素
X1 = Me.Width / 15
Y1 = Me.Height / 15
'画矩形
Regn = CreateRectRgn(0, 26, X1, Y1 - 26) '把句柄设为第一个矩形区域
CER = CreateRectRgn(23, 0, X1 - 23, Y1) '创建第二个矩形区域
CombineRgn Regn, Regn, CER, RGN_OR '把临时句柄变量或运算到句柄变量中
'由于第四个圆角较小，这里要用矩形补足
CER = CreateRectRgn(23, 52, X1, Y1 - 6)
CombineRgn Regn, Regn, CER, RGN_OR
CER = CreateRectRgn(52, 52, X1 - 6, Y1)
CombineRgn Regn, Regn, CER, RGN_OR
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?