Private bPlay as Boolean
 
Private Sub cmdPlay_Click()
 
   Set Filgraph = New FilgraphManager       'Neu setzen
 
   bPlay=true
   ' File laden
   Filgraph.RenderFile sPath
   ' Abspielvorgang starten
   Filgraph.Run
End Sub
 
Private Sub cmdPause_Click()
   If bPlay = true Then
     ' Abspielvorgang stoppen
     Filgraph.Stop
     bPlay = false
   Else
     Filgraph.Run
     bPlay = true
   End If
End Sub
 
Private Sub cmdStop_Click()
     ' Abspielvorgang stoppen
     Filgraph.Stop
     bPlay = false
     Set Filgraph = Nothing         'Objekt auf Nothing setzen
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!

Beitrag wurde zuletzt am 03.11.09 um 19:37:50 editiert.