Face Detection in VB.NET: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
No edit summary |
||
Line 3: | Line 3: | ||
<source lang=vb> | <source lang=vb> | ||
Imports Emgu.CV | Imports Emgu.CV | ||
Imports Emgu.CV.Structure | |||
Imports Emgu.Util | Imports Emgu.Util | ||
Imports System.Windows.Forms | Imports System.Windows.Forms | ||
Imports System.Drawing | Imports System.Drawing | ||
Module Module1 | Module Module1 | ||
Line 19: | Line 21: | ||
Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)() | Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)() | ||
For Each | For Each face As MCvAvgComp In imgGray.DetectHaarCascade(objectToDetect)(0) | ||
img.Draw(rect, New Bgr(Color.White), 1) | img.Draw(face.rect, New Bgr(Color.White), 1) | ||
Next | Next | ||
Revision as of 03:45, 25 February 2009
This Example requires Emgu CV 1.4.0.0.
Imports Emgu.CV
Imports Emgu.CV.Structure
Imports Emgu.Util
Imports System.Windows.Forms
Imports System.Drawing
Module Module1
Sub Main()
'Load the image from file
Dim img As New Image(Of Bgr, Byte)("lena.jpg")
'Load the object detector
Dim objectToDetect As New HaarCascade("haarcascade_frontalface_alt2.xml")
'Convert the image to Grayscale
Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)()
For Each face As MCvAvgComp In imgGray.DetectHaarCascade(objectToDetect)(0)
img.Draw(face.rect, New Bgr(Color.White), 1)
Next
'Show the image
UI.ImageViewer.Show(img)
End Sub
End Module
