📄 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"
Begin VB.Form Form1
Caption = "指纹识别处理"
ClientHeight = 9885
ClientLeft = 645
ClientTop = 390
ClientWidth = 14010
LinkTopic = "Form1"
ScaleHeight = 11115
ScaleWidth = 15240
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command11
Caption = "像素统计"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 9600
TabIndex = 20
Top = 9720
Width = 1335
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5040
Top = 10200
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command7
Caption = "指纹对比"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 11400
TabIndex = 19
Top = 9720
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "结 束"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 13320
TabIndex = 18
Top = 9720
Width = 1335
End
Begin VB.Frame Frame3
Caption = "指纹处理结果"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 9000
TabIndex = 17
Top = 9360
Width = 6015
End
Begin VB.CommandButton Command8
Caption = "计算阈值"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 12720
TabIndex = 16
Top = 7680
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "直方图"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 12720
TabIndex = 15
Top = 6600
Width = 1215
End
Begin VB.Frame Frame2
Caption = "阈值计算"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2775
Left = 12240
TabIndex = 14
Top = 6000
Width = 2175
End
Begin VB.CommandButton Command10
Caption = "文本信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1440
TabIndex = 13
Top = 8280
Width = 1215
End
Begin VB.CommandButton Command9
Caption = "读入数据"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1440
TabIndex = 12
Top = 7440
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "指纹输入"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1440
TabIndex = 11
Top = 6600
Width = 1215
End
Begin VB.Frame Frame1
Caption = "文本处理"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3495
Left = 600
TabIndex = 10
Top = 5880
Width = 2175
End
Begin VB.PictureBox Picture4
AutoSize = -1 'True
Height = 3615
Left = 10800
ScaleHeight = 3555
ScaleWidth = 2835
TabIndex = 9
Top = 720
Width = 2895
End
Begin MSChart20Lib.MSChart MSChart1
Height = 4335
Left = 3120
OleObjectBlob = "Form1.frx":0000
TabIndex = 6
Top = 5400
Width = 6015
End
Begin VB.CommandButton Command6
Caption = "提取库图"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 11640
TabIndex = 5
Top = 4440
Width = 1215
End
Begin VB.CommandButton Command5
Caption = "二值化"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8400
TabIndex = 4
Top = 4440
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "边缘检测"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5040
TabIndex = 3
Top = 4440
Width = 1215
End
Begin VB.PictureBox Picture3
Height = 3615
Left = 7560
ScaleHeight = 237
ScaleMode = 3 'Pixel
ScaleWidth = 189
TabIndex = 2
Top = 720
Width = 2895
End
Begin VB.PictureBox Picture2
Height = 3615
Left = 4200
ScaleHeight = 237
ScaleMode = 3 'Pixel
ScaleWidth = 189
TabIndex = 1
Top = 720
Width = 2895
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
Height = 3615
Left = 720
ScaleHeight = 237
ScaleMode = 3 'Pixel
ScaleWidth = 189
TabIndex = 0
Top = 720
Width = 2895
End
Begin VB.Label Label4
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 14040
TabIndex = 22
Top = 9720
Width = 735
End
Begin VB.Label Label3
Caption = "黑像素值="
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 12720
TabIndex = 21
Top = 9720
Width = 1215
End
Begin VB.Label Label2
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 13560
TabIndex = 8
Top = 5280
Width = 735
End
Begin VB.Label Label1
Caption = "阈值="
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 12840
TabIndex = 7
Top = 5280
Width = 855
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
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
Dim header As BITMAPFILEHEADER
Dim info As BITMAPINFOHEADER
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -