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

时间:2021-02-09 10:32:55

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

DSAPI之摄像头追踪指定颜色物体DSAPI之摄像头追踪指定颜色物体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