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