Public Class ChangeDevice Inherits System.Windows.Forms.Form Public Dispositivos As New Filters() 'the current filter 'Consider the new selected device Private Sub btnValidateDevice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValidateDevice.Click 'select first video device MainForm.AxltmmCaptureCtrl1.VideoDevices.Selection = cbVideoDevice.SelectedIndex Dim s As String Dim count As Integer Dim i As Integer Dim width As Integer Dim height As Integer MainForm.ListBoxCaptureSize.Items.Clear() count = MainForm.AxltmmCaptureCtrl1 .VideoCaptureSizes.Count If (count > 0) Then For i = 0 To count - 1 width = MainForm.AxltmmCaptureCtrl1 .VideoCaptureSizes.Item(i).Width height = MainForm.AxltmmCaptureCtrl1.VideoCaptureSizes.Item(i).Height s = CStr(width) + "x" + CStr(height) MainForm.ListBoxCaptureSize.Items.Add(s) Next MainForm.lblVideoDevice.Text = cbVideoDevice.SelectedItem MainForm.lblAudioDevice.Text = cbAudioDevice.SelectedItem Close() End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question