Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: mp3 player
Autor: VBRunner
Datum: 06.07.03 18:49
Hi, Lege eine FileListBox auf eine Form und setze die Visible-Eigenschaft ggf auf false Lege einen CommandButton auf die Form Name=cmdEINLESEN sub form1_load() File1="C:\Mp3" File1.Pattern = "*.txt" ' hierdurch werden nur Textdateien gelistet (ggf. ersetzen) end sub sub cmdEINLESEN_Click() dim x%, mFile$ on Error goto ErrHandler for x=0 to File1.Listcount -1 mFile= File1.List(x) S$ = GetOneFile(mFile") mp3play S$ Next x Msgbox "Einlesen beendet",vbinformation+vbokonly,"Mp3 Player" exit sub ErrHandler: Msgbox "Beim einlesen ist ein Fehler aufgetreten"",vbCritical+vbokonly,"Mp3 Player" end sub

mp3 player	909	INsider	05.07.03 17:43
Re: mp3 player	214	VBRunner	06.07.03 18:49

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