; Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim info As DeviceInformation
''''''''''''先得到可以使用的信息
'''''''''''' 设备信息由这个集合提供
For Each info In CapList
ListBox1.Items.Add(info.Description)
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
''''利用选择的设备
Cap = New Capture(CapList(ListBox1.SelectedIndex).DriverGuid)
''''''''''''枚举支持的格式
''''''''''''尝试各种格式,只能用try catch 了
Dim fmt As WaveFormat
Dim TestCapture As CaptureBuffer
Dim CaptureDesc As New CaptureBufferDescription
''''ListBox2.Items.Clear()
ScanAvailableInputFormats(Cap)
FillFormatListBox()
End Sub
Sub ScanAvailableInputFormats(ByVal cap As Capture)
''''-----------------------------------------------------------------------------
'''' Name: ScanAvailableInputFormats()
'''' Desc: Tests to see if 20 different standard wave formats are supported by
'''' the capture device
''''-----------------------------------------------------------------------------
Dim format As New WaveFormat
Dim dscheckboxd As New CaptureBufferDescription
Dim pDSCaptureBuffer As CaptureBuffer = Nothing
'''' This might take a second or two, so throw up the hourglass
Cursor = Cursors.WaitCursor
format.FormatTag = WaveFormatTag.Pcm
'''' Try 20 different standard formats to see if they are supported
Dim iIndex As Integer
For iIndex = 0 To 19
GetWaveFormatFromIndex(iIndex, format)
'''' To test if a capture format is supported, try to create a
'''' new capture buffer using a specific format. If it works
'''' then the format is supported, otherwise not.
dscheckboxd.BufferBytes = format.AverageBytesPerSecond
dscheckboxd.Format = format
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> [聊天工具]让IE 7也用上鼠标手势 [常用软件]IE 7出炉,Firefox 2当道.谁才是“王者”? [常用软件]绕过WGA安装IE 7 Beta3 5450 [VB.NET程序]VB.NET实现DirectSound9 (8) 音效控制器 [VB.NET程序]VB.NET实现DirectSound9 (6) 声音特效 [VB.NET程序]VB.NET 实现DirectSound9 (5) DS3D2 [VB.NET程序]用VB.Net实现DirectSound9 (4) DS3D [VB.NET程序]VB.NET 使用DirectSound 3 [VB.NET程序]学习笔记,VB.NET使用DirectSound9 (2) [VB.NET程序]学习笔记,VB.NET使用DirectSound9 (1)
|