internal static void playmid(string finam, Midmod mimo) {
// try to disable any other usage of midi-device by midionline
if (midionline.lasttone!=0) {
midionline.play1tone(0);
MidiPlayer.CloseMidi();
}
if (finam.Equals(lastmidnam)==false) {
if (mc != null) mc.Stop();
mc.RenderFile(finam); lastmidnam=finam;
}
if (mimo==Midmod.run) {midireplaying=true; mc.Run();}
if (mimo==Midmod.stop){midireplaying=false; mc.Stop();}
if (mimo==Midmod.rewind) {mc.Stop(); mc.RenderFile(finam); midireplaying=true; mc.Run();}
}
} // end midireplay
da musst Du leider auf die Win-API zurückgreifen, um .wav abzuspielen:
Public Declare Function playa Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlayWav(ByVal sFile As String, ByVal uFlags As Long)
If Dir(sFile) "" Then
playa(sFile, uFlags)
End If
End Sub
Wozu der Parameter uFlags gut ist, weiß ich nicht, den kannst Du auf 0 lassen.
Ich weiß, dass das kein C#, sondern VB.NET ist. Jetzt brauchst Du nur noch einen Übersetzer …
Gruß
Thomas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]