VB.net Cómo reproducir wav en múltiples archivos de recursos al mismo tiempo

Al utilizar la API mciSendString para reproducir varios sonidos al mismo tiempo, debe proporcionar la ruta.

Es muy engorroso usar la reflexión para leer archivos de recursos y usar IO para escribirlos en rutas de disco.

¿Estás haciendo un juego? La sugerencia de Gummy es no utilizar archivos de recursos sino archivos locales.

Use la carpeta BGM para guardar música de fondo y use la carpeta SE para guardar efectos de sonido (aprenda de "RPG Maker")

El código API está aquí, la implementación del módulo excede el número máximo de palabras, descargue el archivo adjunto Imports?System.Text

''?'?

''' ¿Puede reproducir archivos de audio en MPEG, AVI, WAV? , MP3, MID y WMA,* el formato OGG no es compatible

'''

Public?Class?AudioDevice

'? Declarar función API:?mciSendString

¿Pública?¿Compartida?Función? mciSendString(strCommand?As?String, strReturn?As ?StringBuilder, iReturnLength?As?Integer, hwndCallback?As?Integer)?As?Integer

Fin?Función

'Declarar API función:? mciGetErrorString

Pública? Función compartida mciGetErrorString(errCode? As?Integer, errMsg?As?StringBuilder, buflen ?As?Integer)?As?Integer

Llama al método Public?Class?Form1

Dim?Audio Device?As?New ?Dispositivo de audio

¿Privado? Sub?Button1_Click(remitente?As?Object,?e?As?EventArgs)?Handles?Button1.Click

Dim.Path.=?"F :\MusicFileName.mp3"

Dispositivo de audio.Open("Nombre personalizado 1", Ruta)

Dispositivo de audio. Reproducir("Nombre personalizado 1")

' Dispositivo de audio. pausa("nombre personalizado 1")

' Dispositivo de audio. continue("Nombre personalizado 1")

'Dispositivo de audio. Close("Nombre personalizado 1")

End?Sub

End?Class

Si está satisfecho, aprovéchelo. Si no lo comprende, por favor pregunte, gracias.