Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

Cómo seleccionar tarjeta sonido en Visual Basic con control de multimedia

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 180032
Resumen
En este artículo describe cómo establecer el dispositivo de WaveAudio (tarjeta de sonido) utilizado por el control de multimedia (MCI32.ocx) utilizando Visual Basic.
Más información
Para establecer el dispositivo de WaveAudio (tarjeta de sonido) utilizado por el control multimedia, debe utilizar la API mciSendCommand. El control multimedia no proporciona directamente un método que permite configurar el dispositivo utilizado para reproducción o grabación.

El código de ejemplo de Visual Basic siguiente muestra cómo utilizar mciSendCommand para especificar el dispositivo utilizado para la salida de WaveAudio.

Código de ejemplo

Siguiente es las definiciones necesarias y declaraciones. Colocarlos en un archivo de módulo:
   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				

Código de ejemplo

El código siguiente establece el dispositivo de salida. Este código se supone que tiene un control de multimedia denominado "MMControl1." Debe llamarse a este código después de abrir el archivo de onda que se va a reproducir por 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				
Referencias
Consulte la documentación de mciSendCommand en la documentación Win32 SDK.

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 180032 - Última revisión: 11/21/2006 15:40:37 - Revisión: 3.2

Microsoft Win32 Application Programming Interface

  • kbmt kbhowto KB180032 KbMtes
Comentarios