Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0081: Wav und Midi endlos abspielen mit dem MMP

VB 5/6-Tipp 0081: Wav und Midi endlos abspielen mit dem MMP

 von ActiveVB

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [11,11 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
' Die Komponente ' (MCI32.OCX)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Optionsfeld-Steuerelement "Option1" (Index von 0 bis 1)
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Multimediacontrol "MMControl1"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Dim Path$, Play As Boolean

Private Sub Form_Load()
  Call Option1_Click(0)
End Sub

Private Sub Command1_Click()
  If Play = True Then Exit Sub
  Play = True
  MMControl1.Command = "close"
  MMControl1.filename = Path
  MMControl1.Command = "open"
  MMControl1.Command = "play"
End Sub

Private Sub Command2_Click()
  MMControl1.Command = "close"
  Play = False
End Sub

Private Sub Option1_Click(Index As Integer)
  Call Command2_Click
  If Index = 0 Then
    Path = App.Path & "\sound1.wav"
  Else
    Path = App.Path & "\sound2.mid"
  End If
End Sub

Private Sub MMControl1_Done(NotifyCode As Integer)
  If Play Then
    MMControl1.Command = "close"
    MMControl1.Command = "open"
    MMControl1.Command = "play"
  End If
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------