kostenloser Webspace werbefrei: lima-city

VB MP3 hören

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   h******0

   14:00, 6.10.2005

   Gibt es ein Easy Skript mit Declares zum MP3 abspielen .
   
   Will nehmlich eine GUI f?r meine MP3 Sammlung schreiben
   
   Ich habe das Skript
   
   ------------------------ MusicModule.bas ------------------------
   Option Explicit
   
   Public bMusicPlay As Boolean
   Public pMC As FilgraphManager
   Public bPause As Boolean
   
   Public Sub PlayMusic()
   Set pMC = New FilgraphManager
   pMC.RenderFile Form1.CDiag.FileName
   
   Form1.MusicTimer.Enabled = True
   
   pMC.Run
   bMusicPlay = True
   bPause = False
   End Sub
   
   Public Sub PauseMusic()
   If bPause Then
   pMC.Run
   Form1.cmd_Pause.Caption = "P&ause"
   bPause = False
   Else
   pMC.Pause
   Form1.cmd_Pause.Caption = "Pl&ay"
   bPause = True
   End If
   End Sub
   
   Public Sub StopMusic()
   bMusicPlay = False
   bPause = False
   Form1.MusicTimer.Enabled = False
   pMC.Stop
   Set pMC = Nothing
   End Sub
   
   '--------------------------- Form1.frm ---------------------------
   Option Explicit
   
   Private Sub cmd_Load_Click()
   cmd_Play.Enabled = False
   cmd_Stop.Enabled = False
   cmd_Pause.Enabled = False
   lbl_CurrentPos.Caption = "aktuelle Position: "
   lbl_StopTime.Caption = "MP3-L?nge: "
   lbl_Rate.Caption = "Rate (1=normal,.5=halftime,-1=r?ckw?rts): "
   With CDiag
   .Filter = ".MP3 File|*.mp3"
   .FileName = "*.mp3"
   .ShowOpen
   If Trim$(.FileName <> vbNullString) Then
   If Trim$(.FileName) = "*.mp3" Then Exit Sub
   cmd_Play.Enabled = True
   Else
   Exit Sub
   End If
   End With
   End Sub
   
   Private Sub cmd_Play_Click()
   PlayMusic
   cmd_Stop.Enabled = True
   cmd_Play.Enabled = False
   cmd_Pause.Enabled = True
   End Sub
   
   Private Sub cmd_Stop_Click()
   StopMusic
   cmd_Stop.Enabled = False
   cmd_Play.Enabled = True
   cmd_Pause.Enabled = False
   End Sub
   
   Private Sub cmd_Pause_Click()
   PauseMusic
   End Sub
   
   Private Sub cmd_Beenden_Click()
   Unload Me
   End
   End Sub
   
   Private Sub MusicTimer_Timer()
   If Not bMusicPlay Then Exit Sub
   
   Dim pME As IMediaEvent
   Dim pMEPos As IMediaPosition
   Dim EventCode As Long
   
   Set pME = pMC
   
   On Error Resume Next
   pME.WaitForCompletion 0, EventCode
   Set pMEPos = pMC
   
   lbl_CurrentPos.Caption = _
   "aktuelle Position: " & pMEPos.CurrentPosition
   lbl_StopTime.Caption = "MP3-L?nge: " & pMEPos.Duration
   lbl_Rate.Caption = _
   "Rate (1=normal,.5=halftime,-1=r?ckw?rts): " & pMEPos.Rate
   
   Set pMEPos = Nothing
   Set pME = Nothing
   
   If EventCode = 0 Then Exit Sub
   
   MusicTimer.Enabled = False
   pMC.Stop
   Set pMC = Nothing
   bMusicPlay = False
   bPause = False
   PlayMusic
   End Sub
   
   aber ich will das auf einen Klick auf ne Commandbox eine im Code festgelegt MP? Datei abgespielt wird ohne Pause u. Stop Funktion
   
   Beitrag ge?ndert am 6.10.2005 14:16 von hoster90

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. all-merkel

   all-merkel hat kostenlosen Webspace.

   18:08, 6.10.2005

   Ich w?rde einfach unter Komponenten nen Windows Media Player(fast ganz unten in der Liste) einf?gen und ein Label so davorsetzen, dass man den Player nicht sieht.
   
   Dann im Button (z.B. Song1)
   
   ---Code---
   
   Private Sub Song1_Click()
   WindowsMediaPlayer1.URL = "C:/.../.../....mp3 oder http://www.meinepage.de/???.mp3"
   WindowsMediaPlayer1.Controls.play
   End Sub
   
   ---Code---
   
   Du musst die URl nat?rlich anpassen.
   
   mfg Alex

4. b*********t

   18:15, 6.10.2005

   Ich versteh dein Problem nicht ganz. Ne MP3 abspielen kannst du ja anscheinend schon, falls nicht, schau mal hier auf meine antwort:
   http://www.lima-city.de/boards.php?m=thread&id=36932
   Der Code Funktioniert auch mit Mp3.
   Und wo ist dein Problem?
5. Autor dieses Themas

   h******0

   11:06, 7.10.2005

   Danke f?r eure Tipps .
   
   Durch den Tipp mit dem Mediaplayer, hab ich es geschafft Thanks.

6. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?