title image


Smiley Da kann ich noch einen draufsetzen
Hi,



' **********************************************************************' Modul: Modul1 Typ: Allgemeines Modul' **********************************************************************Option Explicit'Verweis auf "ActiveMovie control type library" setzen !!!Private objDirectX As QuartzTypeLib.FilgraphManagerPrivate blnBreak As Boolean, blnPlay As BooleanPublic Sub PlayMusic(strFile As String)    Set objDirectX = New QuartzTypeLib.FilgraphManager    objDirectX.RenderFile strFile    objDirectX.Run    blnPlay = True    blnBreak = FalseEnd SubPublic Sub BreakMusic()    If blnPlay Then        If blnBreak Then objDirectX.Run Else objDirectX.Pause        blnBreak = Not blnBreak    End IfEnd SubPublic Sub StopMusic()    blnPlay = False    blnBreak = False    objDirectX.Stop    Set objDirectX = NothingEnd SubSub test1()    Call PlayMusic("D:\Eigene Dateien\Eigene Präsentationen\Holland - Niederlande.mp3")End SubSub test2()    Call PlayMusic("D:\Eigene Dateien\Eigene Präsentationen\English.mp3")End Sub
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: