📄 form1.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
Caption = "模式识别技术应用于脸部图像特征对比"
ClientHeight = 8595
ClientLeft = 165
ClientTop = 450
ClientWidth = 8880
BeginProperty Font
Name = "华文新魏"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 8595
ScaleWidth = 8880
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame3
Caption = "进度"
BeginProperty Font
Name = "华文新魏"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 360
TabIndex = 17
Top = 6240
Width = 11055
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 375
Left = 240
TabIndex = 18
Top = 360
Width = 10575
_ExtentX = 18653
_ExtentY = 661
_Version = 393216
Appearance = 1
End
End
Begin VB.CommandButton drsj
Caption = "读 入 数 据"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 600
TabIndex = 13
Top = 2400
Width = 495
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 480
Top = 5640
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton jg
Caption = "结果"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 9840
TabIndex = 12
Top = 720
Width = 1215
End
Begin VB.CommandButton zft
Caption = "直方图"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2040
TabIndex = 11
Top = 720
Width = 1215
End
Begin VB.CommandButton bytq
Caption = "边缘提取"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5160
TabIndex = 10
Top = 720
Width = 1215
End
Begin VB.CommandButton ezh
Caption = "二值化"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6720
TabIndex = 9
Top = 720
Width = 1215
End
Begin VB.CommandButton yz
Caption = "阈值"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 8
Top = 720
Width = 1215
End
Begin VB.CommandButton sb
Caption = "识别"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8280
TabIndex = 7
Top = 720
Width = 1215
End
Begin VB.Frame Frame2
Caption = "编辑"
BeginProperty Font
Name = "华文新魏"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 1680
TabIndex = 6
Top = 360
Width = 9735
End
Begin VB.CommandButton tc
Caption = "退 出"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 600
TabIndex = 5
Top = 3960
Width = 495
End
Begin VB.CommandButton txsr
Caption = "图 像 输 入"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 600
TabIndex = 4
Top = 840
Width = 495
End
Begin VB.Frame Frame1
Caption = "文件"
BeginProperty Font
Name = "华文新魏"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5175
Left = 360
TabIndex = 3
Top = 360
Width = 975
End
Begin MSChart20Lib.MSChart MSChart1
Height = 3495
Left = 6120
OleObjectBlob = "Form1.frx":0000
TabIndex = 2
Top = 1920
Width = 5175
End
Begin VB.PictureBox Picture2
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2273
Left = 3960
ScaleHeight = 148
ScaleMode = 3 'Pixel
ScaleWidth = 102
TabIndex = 1
Top = 2880
Width = 1597
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2273
Left = 2040
ScaleHeight = 148
ScaleMode = 3 'Pixel
ScaleWidth = 102
TabIndex = 0
Top = 2880
Width = 1597
End
Begin VB.Label Label3
Caption = " 直 方 图"
Height = 2175
Left = 5880
TabIndex = 16
Top = 2640
Width = 375
End
Begin VB.Label Label2
Caption = " 对比图像"
Height = 255
Left = 4080
TabIndex = 15
Top = 2280
Width = 1215
End
Begin VB.Label Label1
Caption = "输入图像"
Height = 255
Left = 2280
TabIndex = 14
Top = 2280
Width = 1215
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 1680
X2 = 1680
Y1 = 1800
Y2 = 5535
End
Begin VB.Line Line3
BorderColor = &H00808080&
X1 = 1680
X2 = 11415
Y1 = 5535
Y2 = 5535
End
Begin VB.Line Line2
BorderColor = &H00808080&
X1 = 11415
X2 = 11415
Y1 = 1800
Y2 = 5535
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 1
X1 = 1680
X2 = 11415
Y1 = 1800
Y2 = 1800
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Type BITMAPFILEHEADER '14 bytes
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Private Type BITMAPINFOHEADER '40 bytes
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
Private Type RGBQUAD
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
rgbReserved As Byte
End Type
Private Type PALETTEENTRY
peRed As Byte
peGreen As Byte
peBlue As Byte
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -