Private CAM As New DSAPI. Camera_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. Start video preview on the specified control (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. Graphic image. Image recognition (CAM. Capture image)
Dim Rct As Rectangle = B. Get the maximum contained area of the specified color (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