Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: mp3 in VB6.0
Autor: L.B.
Datum: 11.08.02 14:17
Du kannst dass mit einem Timer kombinieren (der auf 5 Sekunden steht) Function DoMP3Play(Datei As String, sAlias As String) As Boolean Dim bResult As Boolean Dim sBuffer As String Dim lResult As Long On Error Resume Next sBuffer = Space$(255) lResult = GetShortPathName(Datei, sBuffer, Len(sBuffer)) If lResult <> 0 Then Datei = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1) lResult = mciSendString("open " & Datei & " type MPEGVideo alias " & sAlias, 0, 0, 0) If lResult = 0 Then If mciSendString("play " & sAlias & " from 0", 0, 0, 0) = 0 Then bResult = True End If End If End If DoMP3Play = bResult End Function Sub DoMP3Schließen(sAlias As String) On Error Resume Next mciSendString "stop " & sAlias, 0, 0, 0 mciSendString "close " & sAlias, 0, 0, 0 End Sub

mp3 in VB6.0	55	Wolf	11.08.02 13:42
Re: mp3 in VB6.0	47	L.B.	11.08.02 14:17
Re: mp3 in VB6.0	39	Jan	11.08.02 14:24
Re: mp3 in VB6.0	40	Manni	11.08.02 19:18

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