Public Class Form1
Private myCam As iCam
Private Sub tmrUpdate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrUpdate.Tick
ToolStripStatusLabel1.Text = ("FPS = " & myCam.FPS & " " & "Running = " & myCam.iRunning)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Me.picOutput.SizeMode = PictureBoxSizeMode.StretchImage
myCam = New iCam
myCam.setFrameRate(25)
myCam.initCam(Me.picOutput.Handle.ToInt32)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
myCam.closeCam()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
myCam.initCam(Me.picOutput.Handle.ToInt32)
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
myCam.resetCam()
End Sub
End Class