📄 form13.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{1A3862E1-45DE-4D73-A9C7-1C94C04A0999}#1.0#0"; "AVCap.ocx"
Begin VB.Form Form13
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
Caption = "Form13"
ClientHeight = 7230
ClientLeft = 60
ClientTop = 450
ClientWidth = 10605
LinkTopic = "Form13"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 361.5
ScaleMode = 0 'User
ScaleWidth = 530.25
StartUpPosition = 2 '屏幕中心
Begin AVCAPLibCtl.AVCapture AVCapture1
Height = 5175
Left = 120
OleObjectBlob = "Form13.frx":0000
TabIndex = 17
Top = 120
Width = 4695
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
Height = 3255
Left = 7800
ScaleHeight = 3195
ScaleWidth = 2715
TabIndex = 16
Top = 0
Width = 2775
End
Begin VB.CommandButton Command6
Caption = "<前一记录>"
Height = 375
Left = 1440
TabIndex = 13
Top = 6840
Width = 1095
End
Begin VB.CommandButton Command5
Caption = "<后一记录>"
Height = 375
Left = 2520
TabIndex = 12
Top = 6840
Width = 1095
End
Begin VB.ListBox List1
Height = 3120
ItemData = "Form13.frx":0088
Left = 7800
List = "Form13.frx":008A
TabIndex = 10
Top = 3840
Width = 2775
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form13.frx":008C
Left = 2280
List = "Form13.frx":0096
Sorted = -1 'True
TabIndex = 9
Text = "id"
Top = 6360
Width = 735
End
Begin VB.TextBox Text1
Height = 375
Left = 3120
TabIndex = 8
Text = "0811030001"
Top = 6360
Width = 1695
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 1440
Options = 0
ReadOnly = -1 'True
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6840
Visible = 0 'False
Width = 2175
End
Begin VB.CommandButton Command4
Caption = "查寻"
Height = 375
Left = 1440
TabIndex = 5
Top = 6360
Width = 855
End
Begin VB.CommandButton Command3
Caption = "继续照像"
Height = 375
Left = 120
TabIndex = 4
Top = 6840
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "修改照片"
Height = 375
Left = 120
TabIndex = 3
Top = 6360
Width = 1095
End
Begin VB.PictureBox Picture5
AutoRedraw = -1 'True
Height = 3255
Left = 4920
ScaleHeight = 3195
ScaleWidth = 2715
TabIndex = 2
Top = 0
Width = 2775
End
Begin VB.Timer Timer1
Interval = 30
Left = 4440
Top = 3360
End
Begin MSComDlg.CommonDialog Comd
Left = 120
Top = 7200
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command1
Caption = "照 相"
Height = 375
Left = 3600
TabIndex = 0
Top = 6840
Width = 1215
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "Label6"
DataField = "id"
DataSource = "Data1"
Height = 180
Left = 3960
TabIndex = 15
Top = 6360
Visible = 0 'False
Width = 540
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "所照的照片："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404080&
Height = 315
Left = 8280
TabIndex = 14
Top = 3360
Width = 2070
End
Begin VB.Label Label4
Caption = "Label4"
Height = 255
Left = 4080
TabIndex = 11
Top = 5040
Visible = 0 'False
Width = 495
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label3"
DataField = "name"
DataSource = "Data1"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 120
TabIndex = 7
Top = 5880
Width = 1095
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label2"
DataField = "id"
DataSource = "Data1"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 120
TabIndex = 6
Top = 5400
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 5760
TabIndex = 1
Top = 3360
Width = 1095
End
Begin VB.Image Image2
Height = 3255
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -