vb.net Video Filters

Imports Emgu.CV
Imports Emgu.CV.Util
Imports Emgu.CV.Structure

Public Class Form1

Dim capturez As Capture = New Capture

Private Sub Timer1_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Timer1.Tick

Dim imagez1 As Image(Of Bgr,Byte) = capturez.RetrieveBgrFrame
Dim imagez2 As Image(Of Bgr,Byte) = imagez1.Dilate(3)
Dim imagez3 As Image(Of Bgr,Byte) = imagez1.Erode(3)
Dim imagez4 As Image(Of Bgr,Byte) = imagez1.Not()
Dim imagez5 As Image(Of Bgr,Byte) = imagez1.Rotate(45,New Bgr(0,0))

Dim imagez6 As Image(Of Gray,Byte) = capturez.RetrieveGrayFrame
Dim imagez7 As Image(Of Gray,Byte) = imagez6.Canny(New Gray(150),New Gray(60))

PictureBox1.Image = imagez1.ToBitmap
PictureBox2.Image = imagez2.ToBitmap
PictureBox3.Image = imagez3.ToBitmap
PictureBox4.Image = imagez4.ToBitmap
PictureBox5.Image = imagez5.ToBitmap
PictureBox6.Image = imagez7.ToBitmap

End Sub
End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!