WiserBit

Option Strict Off
Option Explicit On
Friend Class frmMain
	Inherits System.Windows.Forms.Form
 
	Private Sub cCam1_Error(ByVal eventSender As System.Object, ByVal eventArgs As AxCamera_Capture_ActiveX.__cCam_ErrorEvent) Handles cCam1.Error
 
		'Display error message
		MsgBox("Error: " & eventArgs.sErrMessage & "(" & eventArgs.lErrNumber & ")")
 
	End Sub
 
	Private Sub cmdCompression_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCompression.Click
 
		'Set video compression
		cCam1.SetCompression()
 
	End Sub
 
	Private Sub cmdAudioFormat_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdAudioFormat.Click
 
		'Set audio compression
		cCam1.SetAudioFormatDlg()
 
	End Sub
 
	Private Sub cmdCapture_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCapture.Click
 
		'Set the movie file
		cCam1.SetCapFile("C:\camera_capture.avi")
 
		'Start capture
		'UPGRADE_NOTE: Capture was upgraded to CtlCapture. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'
        cCam1.Capture(15, False, 30, True, True, True, True, True, -1)
 
	End Sub
 
	Private Sub cmdConnect_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdConnect.Click
 
		'Connect to the driver
		Call cCam1.ConnectDriver(cboDrivers.SelectedIndex)
 
		'Disable the logo:
		picLogo.Visible = False
 
	End Sub
 
	Private Sub cmdDisplay_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDisplay.Click
 
		'Set display options
		cCam1.SetDisplay()
 
	End Sub
 
	Private Sub cmdFormat_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdFormat.Click
 
		'Set format options
		cCam1.SetFormat()
 
	End Sub
 
	Private Sub cmdFrame_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdFrame.Click
 
		'Capture frame to bmp
		cCam1.SaveSingleFrame("C:\CamCapture.bmp")
 
	End Sub
 
	Private Sub cmdLoadPalette_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdLoadPalette.Click
 
		'Load Palette
		cCam1.PaletteLoad()
 
	End Sub
 
	Private Sub cmdSavePalette_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSavePalette.Click
 
		'Save Palette
		cCam1.PaletteSave()
 
	End Sub
 
	Private Sub cmdSetCaptureFile_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSetCaptureFile.Click
 
		'Set the capture video file
		cCam1.SetCapFile("C:\camera_capture.avi")
 
	End Sub
 
	Private Sub cmdSource_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSource.Click
 
		'Set the source options
		cCam1.SetSource()
 
	End Sub
 
 
	Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
 
		'Init the control:
		'Must be call before using any
		'functionality of the control.
		'sKey = Your registration key.
		'On trial mode use the "Trial Mode."
		cCam1.Init("Trial Mode.")
 
		'Load the drivers
		Dim cntr As Integer
 
		Dim lDeviceCntr As Integer
		lDeviceCntr = cCam1.GetDriversX
 
		If lDeviceCntr > 0 Then
 
			For cntr = 1 To lDeviceCntr
				cboDrivers.Items.Add(cCam1.GetDriverXVal(cntr))
			Next cntr
 
			'Select the first driver
			cboDrivers.SelectedIndex = 0
 
		End If
 
	End Sub
 
	Private Sub frmMain_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
 
		'Release the control
		'from the memory:
		cCam1.DeInit()
 
	End Sub
End Class