Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Mididfiles abspielen Dringend !!!!
Autor: L.B.
Datum: 01.02.03 13:28
Diese Function Geht nur wenn die in der Liste den Vollständigen Pfad + Dateiname hast!!! Public Sub Mididateien_abspielen() Dim ant As String Dim SoundFile As String ant = mciSendString("Close Song", 0&, 0, 0) SoundFile = List1.List(List1.ListIndex) If Right$(SoundFile, 3) = "mid" Then ant = mciSendString("open " & CStr(SoundFile) & " type sequencer alias Song", 0&, 0, 0) ant = mciSendString("play Song", 0&, 0, 0) End If 'Das Schließt die Datei!: (Das muss du dann einfügen wenn 'du den sound nicht mehr hören möchtest (z.B. Form_Unload)!) 'ant = mciSendString("Close Song", 0&, 0, 0) End Sub

Mididfiles abspielen Dringend !!!!	594	Schlafschlumpf ...	01.02.03 12:14
Re: Mididfiles abspielen Dringend !!!!	47	L.B.	01.02.03 13:28

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen