Public Class Form1
    Private WithEvents BGWSound1 As System.ComponentModel.BackgroundWorker
    Private WithEvents BGWSound2 As System.ComponentModel.BackgroundWorker
    Private WithEvents BGWSound3 As System.ComponentModel.BackgroundWorker
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
    End Sub
 
    Public Function PlaySound(ByVal FullPATH As String) As Boolean
        If BGWSound1.IsBusy = False Then
            BGWSound1.RunWorkerAsync(FullPATH)
        ElseIf BGWSound2.IsBusy = False Then
            BGWSound2.RunWorkerAsync(FullPATH)
        ElseIf BGWSound3.IsBusy = False Then
            BGWSound3.RunWorkerAsync(FullPATH)
        Else
            Return False
        End If
        Return True
    End Function
 
    Private Sub BGWSounds_DoWorking(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs)  Handles BGWSound1.DoWork, _
      BGWSound2.DoWork, BGWSound3.DoWork
        My.Computer.Audio.Play(e.Argument, AudioPlayMode.WaitToComplete)
    End Sub
End Class

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
MFG: BiSoN

Es gibt nur zwei unverr?ckbare Weisheiten:
1. Der Computer n?tzt dem Menschen
2. Die Erde ist eine Scheibe

http://t00ltime.kilu.de/

Beitrag wurde zuletzt am 28.07.08 um 13:29:45 editiert.