Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mididfiles abspielen Dringend !!!!
Autor: Schlafschlumpf Thomas
Datum: 01.02.03 12:14
Hallo,was läuft hier falsch ??Es kommt keine Fehlermeldung und es tut sich gar nichts Ich habe schon alles probiert ich wollte von einer Listbox Dateien auswählen die ausgewählte datei sollte dann abgespielt werden also fehlt eben noch das mit der Listbox aber das kriege ich nicht hin Tschüssi Euer Schlafschlumpfi Public Sub Mididateien_abspielen() Dim ant As String Set a = Form1.List1 'Objektvariable zuweisen' SoundFile = a Dateiendung = Right(SoundFile, 3) 'die Dateiendung abschneiden' If Dateiendung = "mid" Then 'Midifile-Dateien ?' ant = mciSendString("Open C:\ThomasProgrammierung\Midifiles\ type Sequencer Alias Song", 0&, 0, 0) 'ant = mciSendString("Open c:\pfad\test.mid type Sequencer Alias Song", 0&, 0, 0) ant = mciSendString("Play Song", 0&, 0, 0) End If ant = mciSendString("Close Song", 0&, 0, 0) Set a = Nothing End Sub

Mididfiles abspielen Dringend !!!!	594	Schlafschlumpf ...	01.02.03 12:14
Re: Mididfiles abspielen Dringend !!!!	46	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