你目前正处于脱机状态,正在等待 Internet 重新连接

如何在 Visual Basic 中使用多媒体控件选择声卡

注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版: 180032
概要
本文介绍如何设置所使用的多媒体控件 (MCI32.ocx) 使用 Visual Basic WaveAudio 设备功能 (声卡)。
更多信息
若要将使用的多媒体控件 WaveAudio 设备功能 (声卡) 必须使用 mciSendCommand API。多媒体控件不会直接提供一种方法,可以设置用于播放或录制设备。

下面的 vba 代码示例演示如何使用 mciSendCommand 指定用于 WaveAudio 输出设备。

示例代码

以下是所需的定义和声明。将这些模块文件中:
   Public Const MMSYSERR_NOERROR = 0   Public Const MCI_SET = &H80D   Public Const MCI_WAVE_OUTPUT = &H800000   Type MCI_WAVE_SET_PARMS       dwCallback As Long       dwTimeFormat As Long       dwAudio As Long       wInput As Long       wOutput As Long       wFormatTag As Integer       wReserved2 As Integer       nChannels As Integer       wReserved3 As Integer       nSamplesPerSec As Long       nAvgBytesPerSec As Long       nBlockAlign As Integer       wReserved4 As Integer       wBitsPerSample As Integer       wReserved5 As Integer   End Type   Declare Function mciGetErrorString Lib "winmm.dll" _       Alias "mciGetErrorStringA" (ByVal dwError As Long, _       ByVal lpstrBuffer As String, ByVal uLength As Long) As Long   Declare Function mciSendCommand Lib "winmm.dll" Alias _       "mciSendCommandA" (ByVal wDeviceID As Long, _       ByVal uMessage As Long, ByVal dwParam1 As Long, _       ByRef dwParam2 As Any) As Long				

示例代码

下面的代码设置输出设备。此代码假定您有多媒体控件称为"MMControl1。通过 MMControl1 打开要播放该波形文件之后,应调用此代码。
   Dim parms As MCI_WAVE_SET_PARMS    Dim rc As Long    ' Specify the soundcard. This specifies the soundcard with a deviceID    ' of 0. If you have a single soundcard, then this will open it. If you    ' have multiple soundcards, the deviceIDs will be 0, 1, 2, etc.    parms.wOutput = 0    ' Send the MCI command to set the output device.    rc = mciSendCommand(MMControl1.DeviceID, MCI_SET, _        MCI_WAVE_OUTPUT, parms)    if (rc <> MMSYSERR_NOERROR) then        ' The command failed.    End If				
参考
请参阅 Win32 SDK 文档中的 mciSendCommand 文档。

警告:本文已自动翻译

属性

文章 ID:180032 - 上次审阅时间:11/21/2006 15:40:37 - 修订版本: 3.2

Microsoft Win32 Application Programming Interface

  • kbmt kbhowto KB180032 KbMtzh
反馈