Aktualisiert: 18.05.2007
Newest
  Tipps & Tricks
1.) Anpassung Controls an ein Formular (VB6)
2.) Kopier-Wiederaufnahme (VB6)
3.) Uhrzeit - alle Kürzel (VB6)
4.) Eigene IP-Addresse auslesen (VB6)
5.) Felder - Arrays (allgemeines, deklarieren) (VB.NET)
  Tutorials
1.) Prüfziffernverfahren österreichischer Sozialversic (VB6)
2.) Kommunikation zwischen Formularen bzw. Modulen (VB.NET)
3.) Musikdatein mittels API abspielen (VB6)
4.) Inputbox mit zusätzlichem Button (VB6)
5.) Access & MySQL | Teil 2/2 (VB6)
  Neueste Kommentare
  (letzten 50)
Thomas(21.02.2007 - 14:03)
Dag Johans..(16.11.2006 - 03:44)
Sebi2020(20.10.2006 - 21:43)
Suchen


Grundlagen  (20) | Grafik  (9) | Dateisystem  (9) | Multimedia  (3) | Datenbank  (5)
Drucker  (7) | System  (12) | Internet  (2) | Controls  (16) | Sonstiges  (12)
 95 Tipps & Tricks in der Datenbank 
 Multimedia > WAV & Systemsound in Visual Basic abspielen     Kommentar schreiben/ansehen  |  von MiB 
WAV & Systemsound in Visual Basic abspielen

Um WAV- oder Systemsound-Dateien abzuspielen, muss man sich mittels einer API behelfen:

sndPlaySound
Dekleration:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Ist die Funktion erfolgreich, ist der Rückgabewert gleich "1", ansonsten gleich "0", wenn z.B. die Datei keine Sounddatei ist.

Im Parameter lpszSoundName wird der Name der abspielenden Sounddatei eingegeben.

Im Parameter uFlags wird bestimmt, was mit der abspielenden Sounddatei gemacht wird.
Ein paar uFlags Konstanten:

Const SND_SYNC = &H0 '(default), das Programm wird erst dann fortgesetzt, wenn die Wiedergabe des Sounds beendet ist
Const SND_ASYNC = &H1 'das Programm wird während der Wiedergabe des Sounds fortgesetzt
Const SND_NODEFAULT = &H2 'Spielt keinen Standardsound ab wenn der angegebene Sound nicht gefunden wurde
Const SND_MEMORY = &H4 'lpszSoundName bezieht sich auf ein File im Speicher
Const SND_ALIAS = &H10000 'lpszSoundName ist ein Systemsound wie Systemstart, SystemExit oder ein anderer Ereignis Beschreibender Sound
Const SND_FILENAME = &H20000 'lpszSoundName ist der Pfad zu einer WaveDatei
Const SND_LOOP = &H8 'spielt die Sounddatei so lange ab, bis die Funktion nochmals, allerdings mit einem leeren String aufgerufen wird
Const SND_NOSTOP = &H10 'der gerade laufende Sound wird nicht gestoppt, wenn ein anderer gespielt werden soll
Const SND_NOWAIT = &H2000 'versucht den Sound abzuspielen, auch wenn der Soundtreiber nicht bereit ist

Beispiel:

Private Sub cmdPlay_Click()
    Dim err As Integer

    err = sndPlaySound(Pfad, SND_SYNC)
    If err = 0 Then
        MsgBox "Fehler!"
    End If
End Sub

In diesem Beispiel wird die Musikdatei (Pfad) abgespielt.
Durch die Definition SND_SYNC wird das Programm erst dann fortgesetzt, wenn die Musikdatei fertig abgespielt wurde.
dazugefügt am: 03.12.2002 | Download Tipp | bereits betrachtet: 7662 mal   


 2 Kommentare      TOP  
Name:  
Email:  
Kommentar:  
   
 2.)  Thomas  schrieb am 21.02.2007
Guter Tip zum einfachen abspielen als Reaktion auf ein Ereignis.
 1.)  Sebi2020  schrieb am 20.10.2006
na toll, und wie spiele ich jetzt dateien ab, stoppe sie, pausiere sie oder verstelle die Lautstärke
Empfehlen Sie diese Seite | zu Favoriten hinzufügen  Copyright 2004 by visualbasic.at