DSAPI之摄像头追踪指定颜色物体

    Private CAM As New DSAPI.摄像头_avicap32

    Private Clr As Color = Color.FromArgb(230, 50, 50)

    Private _Location As Point

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing

        End

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        CheckForIllegalCrossThreadCalls = False

        CAM.在指定控件上启动视频预览(Label1)

        MSK.Show()

        MSK.Owner = Me

        Dim T As New Threading.Thread(AddressOf DoThd)

        T.Start()

    End Sub

    Private Sub DoThd()

        While True

            Using B As New DSAPI.图形图像.图像识别(CAM.截取图像)

                Dim Rct As Rectangle = B.获取指定颜色最大包含区域(Clr, 0.2)

                Rct = Label1.RectangleToScreen(Rct)

                _Location = Rct.Location + New Point(Rct.Width / 2, Rct.Height / 2)

                Me.Invoke(New CrossAppDomainDelegate(AddressOf SetMove))

                'MSK.Location = New Point(Rct.X + Rct.Width / 2, Rct.Y + Rct.Height / 2)

                'Me.Text = Rct.Location.ToString

            End Using

            Threading.Thread.SpinWait(100)

            Application.DoEvents()

        End While

    End Sub

    Private Sub SetMove()

        MSK.Location = _Location - New Point(MSK.Width / 2, MSK.Height / 2)

    End Sub
巴特西

DSAPI之摄像头追踪指定颜色物体

最新文章

热门文章
