📄 frmdatasets.frm
字号:
Top = 5520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 30
ImageHeight = 40
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 393216
End
Begin MSComctlLib.ListView lstNonFaces
Height = 2415
Index = 2
Left = 120
TabIndex = 11
Top = 3720
Visible = 0 'False
Width = 4095
_ExtentX = 7223
_ExtentY = 4260
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "imgNonFaces(2)"
SmallIcons = "imgNonFaces(2)"
ColHdrIcons = "imgNonFaces(2)"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Faces"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "col2"
Object.Width = 2540
EndProperty
End
Begin MSComctlLib.ImageList imgNonFaces
Index = 3
Left = 4200
Top = 5520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 30
ImageHeight = 40
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 393216
End
Begin MSComctlLib.ListView lstNonFaces
Height = 2415
Index = 3
Left = 120
TabIndex = 12
Top = 3720
Visible = 0 'False
Width = 4095
_ExtentX = 7223
_ExtentY = 4260
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "imgNonFaces(3)"
SmallIcons = "imgNonFaces(3)"
ColHdrIcons = "imgNonFaces(3)"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Faces"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "col2"
Object.Width = 2540
EndProperty
End
Begin MSComctlLib.ImageList imgNonFaces
Index = 4
Left = 4200
Top = 5520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 30
ImageHeight = 40
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 393216
End
Begin MSComctlLib.ListView lstNonFaces
Height = 2415
Index = 4
Left = 120
TabIndex = 13
Top = 3720
Visible = 0 'False
Width = 4095
_ExtentX = 7223
_ExtentY = 4260
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "imgNonFaces(4)"
SmallIcons = "imgNonFaces(4)"
ColHdrIcons = "imgNonFaces(4)"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Faces"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "col2"
Object.Width = 2540
EndProperty
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Note: Training images should be 30x40 pixels in size"
ForeColor = &H00FFFFFF&
Height = 255
Left = 0
TabIndex = 16
Top = 120
Width = 4095
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FF8080&
Caption = "Non Faces"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 5
Top = 3480
Width = 3615
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FF8080&
Caption = "Faces"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 4
Top = 480
Width = 3615
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuClose
Caption = "&Close"
End
End
Begin VB.Menu mnuEdit
Caption = "&Edit"
Begin VB.Menu mnuAddFace
Caption = "Add Face &Image"
End
Begin VB.Menu mnuAddNonFace
Caption = "Add &Non Face Image"
End
End
Begin VB.Menu mnuHelp
Caption = "&Help"
Begin VB.Menu mnuAbout
Caption = "&About"
End
End
End
Attribute VB_Name = "frmDataSets"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim setNumber_Faces As Integer
Dim setNumber_NonFaces As Integer
Dim maxFaces As Integer
Dim maxNonFaces As Integer
Dim maxFacesSet As Integer
Dim maxNonFacesSet As Integer
Private Sub cmdNextFaces_Click()
Me.MousePointer = 11
setNumber_Faces = setNumber_Faces + 1
If (setNumber_Faces > 4) Then
setNumber_Faces = 4
End If
lstFaces(setNumber_Faces).Visible = True
lstFaces(setNumber_Faces - 1).Visible = False
Me.MousePointer = 0
End Sub
Private Sub cmdNextNonFace_Click()
Me.MousePointer = 11
setNumber_NonFaces = setNumber_NonFaces + 1
If (setNumber_NonFaces > 4) Then
setNumber_NonFaces = 4
End If
lstNonFaces(setNumber_NonFaces).Visible = True
lstNonFaces(setNumber_NonFaces - 1).Visible = False
Me.MousePointer = 0
End Sub
Private Sub cmdPrevFaces_Click()
Me.MousePointer = 11
setNumber_Faces = setNumber_Faces - 1
If (setNumber_Faces < 0) Then
setNumber_Faces = 0
End If
lstFaces(setNumber_Faces).Visible = True
lstFaces(setNumber_Faces + 1).Visible = False
Me.MousePointer = 0
End Sub
Private Sub cmdPrevNonFace_Click()
Me.MousePointer = 11
setNumber_NonFaces = setNumber_NonFaces - 1
If (setNumber_NonFaces < 0) Then
setNumber_NonFaces = 0
End If
lstNonFaces(setNumber_NonFaces).Visible = True
lstNonFaces(setNumber_NonFaces + 1).Visible = False
Me.MousePointer = 0
End Sub
Private Sub Form_Load()
Me.MousePointer = 11
Call createImageLists
Me.MousePointer = 0
End Sub
Private Sub createImageLists()
Call createImageListFaces
Call createImageListNonFaces
End Sub
Private Sub createImageListFaces()
Dim FileName As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim ImageNo As Integer
ImageNo = 0
For j = 0 To 4
imgFaces(j).ListImages.Clear
lstFaces(j).ListItems.Clear
i = 0
k = 1
While (i < 80)
FileName = App.Path & "\isface" & Trim(CStr(ImageNo)) & ".jpg"
If (Dir$(FileName) <> "") Then
Call imgFaces(j).ListImages.Add(k, "", LoadPicture(FileName))
Call lstFaces(j).ListItems.Add(k, "", ImageNo, k, k)
k = k + 1
ImageNo = ImageNo + 1
maxFacesSet = j
End If
i = i + 1
Wend
Next
maxFaces = ImageNo
End Sub
Private Sub createImageListNonFaces()
Dim FileName As String
Dim i As Integer
Dim j As Integer
Dim ImageNo As Integer
Dim k As Integer
ImageNo = 0
For j = 0 To 4
imgNonFaces(j).ListImages.Clear
lstNonFaces(j).ListItems.Clear
i = 0
k = 1
While (i < 80)
FileName = App.Path & "\nonface" & Trim(CStr(ImageNo)) & ".jpg"
If (Dir$(FileName) <> "") Then
Call imgNonFaces(j).ListImages.Add(k, "", LoadPicture(FileName))
Call lstNonFaces(j).ListItems.Add(k, "", ImageNo, k, k)
k = k + 1
ImageNo = ImageNo + 1
maxNonFacesSet = j
End If
i = i + 1
Wend
Next
maxNonFaces = ImageNo
End Sub
Private Sub mnuAbout_Click()
frmAbout.show 1
End Sub
Private Sub mnuAddFace_Click()
Dim newName As String
Dim k As Integer
Dialog.DialogTitle = "Add a new face image"
Dialog.Filter = "JPEG Files|*.JPG|GIF Files|*.GIF|Bitmaps|*.BMP"
Dialog.InitDir = "c:\My Documents"
Dialog.FilterIndex = 1
Dialog.ShowOpen
If (Dialog.FileName <> "") Then
newName = App.Path & "\isface" & Trim(Str(maxFaces))
Select Case Dialog.FilterIndex
Case 1
newName = newName & ".jpg"
Case 2
newName = newName & ".gif"
Case 3
newName = newName & ".bmp"
End Select
FileCopy Dialog.FileName, newName
k = imgFaces(maxFacesSet).ListImages.Count + 1
Call imgFaces(maxFacesSet).ListImages.Add(k, "", LoadPicture(newName))
Call lstFaces(maxFacesSet).ListItems.Add(k, "", maxFaces, k, k)
maxFaces = maxFaces + 1
End If
End Sub
Private Sub mnuAddNonFace_Click()
Dim newName As String
Dim k As Integer
Dialog.DialogTitle = "Add a new non-face image"
Dialog.Filter = "JPEG Files|*.JPG|GIF Files|*.GIF|Bitmaps|*.BMP"
Dialog.InitDir = "c:\My Documents"
Dialog.FilterIndex = 1
Dialog.ShowOpen
If (Dialog.FileName <> "") Then
newName = App.Path & "\nonface" & Trim(Str(maxNonFaces))
Select Case Dialog.FilterIndex
Case 1
newName = newName & ".jpg"
Case 2
newName = newName & ".gif"
Case 3
newName = newName & ".bmp"
End Select
FileCopy Dialog.FileName, newName
k = imgNonFaces(maxNonFacesSet).ListImages.Count + 1
Call imgNonFaces(maxNonFacesSet).ListImages.Add(k, "", LoadPicture(newName))
Call lstNonFaces(maxNonFacesSet).ListItems.Add(k, "", maxNonFaces, k, k)
maxNonFaces = maxNonFaces + 1
End If
End Sub
Private Sub mnuClose_Click()
frmTraining.show
Unload frmDataSets
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -