Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0018: WAV Datei via Multi-Media-Player abspielen

 von 

Beschreibung 

Mit dem Multi-Media-Player Control lassen sich genauso wie in Tipp 17 WAV-Datein in ein VB-Projekt einbinden. Nachteil ist das Mitschleppen eines vielleicht viel zu mächtigen Controls für diese kleine Aufgabe.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [9,58 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 Projekt1.vbp -------------
' Die Komponente ' (mci32.ocx)' wird benötigt.

'--------- Anfang Formular "Form1" alias form1.frm  ---------
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Textfeld "Text1"
' Steuerelement: Multimediacontrol "MMControl1"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Private Sub Form_Load()
    'Control-Eigenschaften initialisieren
    Command1.Caption = "+"
    Command2.Caption = "-"

    MMControl1.Command = "Close"
    MMControl1.DeviceType = "WaveAudio"
    MMControl1.Command = ""
    MMControl1.FileName = "Sound.wav"
End Sub

Private Sub MMControl1_Done(NotifyCode As Integer)
    Label1.Caption = ""
End Sub

Private Sub Command1_Click()
    Text1.Text = CLng(Text1.Text) + 1
End Sub

Private Sub Command2_Click()
    Text1.Text = CLng(Text1.Text) - 1
End Sub

Private Sub Text1_Change()
    If Abs(Text1.Text) Mod 3 = 0 Then
        MMControl1.Command = "Open"
        MMControl1.Command = "Play"

        Label1.Caption = "Bingo"
    Else
        MMControl1.Command = "Close"
    End If
End Sub

'---------- Ende Formular "Form1" alias form1.frm  ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 7 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Daniel am 25.05.2004 um 16:18

Guten Tag,
woher kriege ich den MMControl1 ????

Kommentar von Sarah Leo am 19.10.2003 um 22:57

wie komme ich an die Lizenz?

Kommentar von Matthias Petrich am 03.07.2003 um 11:55

Beim Einbinden der MMControl in VB6 bekomme ich unter Win98 immer die Fehlermeldung, daß die Lizenzinformationen nicht gefunden werden können und ich deshalb keine Lizenz habe, dieses Funktionsmerkmal zu nutzen. Wie bekomme ich diese Rechte?

Kommentar von Master am 25.02.2003 um 20:04

Ja, weil er MMControl1.Command="Prev" heist...

Kommentar von Edwin am 17.03.2002 um 15:01

Hat jemand eine Ahnung, wieso der Befehl MMControl1.Command="Back" nicht funktioniert ?

Kommentar von Dave Ginsbach am 27.01.2002 um 10:51

....endlich mal eine verständliche Erklärung. Ich hab mir schon beinahe die Zähne daran ausgebissen!!!

Kommentar von Hugo Frings am 31.01.2001 um 21:15

Beim Einbinden der MMControl bekomme ich unter WinMe immer die Fehlermeldung, daß die Lizenzinformationen nicht gefunden werden können und ich deshalb keine Lizenz habe, dieses Funktionsmerkmal zu nutzen. Wie bekomme ich diese Rechte?